aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRoland McGrath1994-03-03 22:13:45 +0000
committerRoland McGrath1994-03-03 22:13:45 +0000
commit52859db83c36cbcb200fe98e41ddaaaa9658b8fd (patch)
treece4fabc475ddf6d95a7d94f0cab242ffa1e554b2
parent74cc295951e81ce474d4c13f4fe99305e27e20de (diff)
downloademacs-52859db83c36cbcb200fe98e41ddaaaa9658b8fd.tar.gz
emacs-52859db83c36cbcb200fe98e41ddaaaa9658b8fd.zip
(generate-file-autoloads): Move misplaced paren in match clause of cond
so copying the rest of the line to the output is the else clause of if (eolp), not after the if.
-rw-r--r--lisp/emacs-lisp/autoload.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el
index d54837374d4..22d06cc20f0 100644
--- a/lisp/emacs-lisp/autoload.el
+++ b/lisp/emacs-lisp/autoload.el
@@ -206,11 +206,11 @@ are used."
206 outbuf)) 206 outbuf))
207 (terpri outbuf))) 207 (terpri outbuf)))
208 (let ((print-escape-newlines t)) 208 (let ((print-escape-newlines t))
209 (print autoload outbuf))) 209 (print autoload outbuf))))
210 ;; Copy the rest of the line to the output. 210 ;; Copy the rest of the line to the output.
211 (let ((begin (point))) 211 (let ((begin (point)))
212 (forward-line 1) 212 (forward-line 1)
213 (princ (buffer-substring begin (point)) outbuf))))) 213 (princ (buffer-substring begin (point)) outbuf))))
214 ((looking-at ";") 214 ((looking-at ";")
215 ;; Don't read the comment. 215 ;; Don't read the comment.
216 (forward-line 1)) 216 (forward-line 1))