Mercurial > hg > xemacs-beta
changeset 5098:e402e3506a53
Use #'subseq, not #'substring, in native-windows-specific code, make-docfile.el
2010-03-04 Aidan Kehoe <kehoea@parhasard.net>
* make-docfile.el (process-args):
Use #'subseq here, not #'substring, fixing the native Windows
build. Thank you for the error report, Vin!
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Thu, 04 Mar 2010 16:47:16 +0000 |
| parents | 4a6b680a9577 |
| children | a24f2ab0093b |
| files | lisp/ChangeLog lisp/make-docfile.el |
| diffstat | 2 files changed, 8 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Mar 04 07:26:05 2010 -0600 +++ b/lisp/ChangeLog Thu Mar 04 16:47:16 2010 +0000 @@ -1,3 +1,9 @@ +2010-03-04 Aidan Kehoe <kehoea@parhasard.net> + + * make-docfile.el (process-args): + Use #'subseq here, not #'substring, fixing the native Windows + build. Thank you for the error report, Vin! + 2010-03-03 Aidan Kehoe <kehoea@parhasard.net> Move byte code #o117 to #'subseq, not #'substring.
--- a/lisp/make-docfile.el Thu Mar 04 07:26:05 2010 -0600 +++ b/lisp/make-docfile.el Thu Mar 04 16:47:16 2010 +0000 @@ -92,7 +92,7 @@ ;; no generate-new-buffer so use its implementation. (let ((buf (get-buffer-create (generate-new-buffer-name "foo")))) (set-buffer buf) - (insert-file-contents-internal (substring arg 1)) + (insert-file-contents-internal (subseq arg 1)) ;; now majorly grind up the response file. ;; backslashes get doubled, quotes around strings, ;; get rid of pesky CR's and NL's, and put parens around @@ -123,8 +123,7 @@ (concat (file-name-nondirectory ;; no match-string so use its implementation. - (substring arg (match-beginning 1) - (match-end 1))) + (subseq arg (match-beginning 1) (match-end 1))) ".c") source-src))) (if (and (null docfile-out-of-date)