carbon2-commit: Use #'subseq, not #'substring, in native-windows-specific code, make-docfile.el

[Aidan Kehoe]

changeset:   5148:e402e3506a53
user:        Aidan Kehoe <kehoea at parhasard.net>
date:        Thu Mar 04 16:47:16 2010 +0000
files:       lisp/ChangeLog lisp/make-docfile.el
description:
Use #'subseq, not #'substring, in native-windows-specific code, make-docfile.el

2010-03-04  Aidan Kehoe  <kehoea at parhasard.net>

	* make-docfile.el (process-args):
	Use #'subseq here, not #'substring, fixing the native Windows
	build. Thank you for the error report, Vin!


diff -r 4a6b680a9577 -r e402e3506a53 lisp/ChangeLog
--- 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 at 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 at parhasard.net>
 
 	Move byte code #o117 to #'subseq, not #'substring.
diff -r 4a6b680a9577 -r e402e3506a53 lisp/make-docfile.el
--- 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)