diff options
| author | Glenn Morris | 2013-10-30 16:03:07 -0400 |
|---|---|---|
| committer | Glenn Morris | 2013-10-30 16:03:07 -0400 |
| commit | 4f85b47922a2e316ccd05be6be85842b2b5c03e3 (patch) | |
| tree | 8bb0bd87c7ecdc4b6a7615e89d6a457f613ab8a4 | |
| parent | 947518dbb88bbb43c86aa71516b12014839a8ddd (diff) | |
| download | emacs-4f85b47922a2e316ccd05be6be85842b2b5c03e3.tar.gz emacs-4f85b47922a2e316ccd05be6be85842b2b5c03e3.zip | |
* lisp/emacs-lisp/autoload.el (autoload-generate-file-autoloads):
`newline' does not respect `standard-output', so use `princ'.
Otherwise you can get \n inserted in the wrong buffer, eg
http://lists.gnu.org/archive/html/emacs-diffs/2013-10/msg00379.html
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | lisp/emacs-lisp/autoload.el | 2 |
2 files changed, 6 insertions, 1 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 114896f070e..070e2cf247d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog | |||
| @@ -1,3 +1,8 @@ | |||
| 1 | 2013-10-30 Glenn Morris <rgm@gnu.org> | ||
| 2 | |||
| 3 | * emacs-lisp/autoload.el (autoload-generate-file-autoloads): | ||
| 4 | `newline' does not respect `standard-output', so use `princ'. | ||
| 5 | |||
| 1 | 2013-10-30 Alp Aker <alp.tekin.aker@gmail.com> | 6 | 2013-10-30 Alp Aker <alp.tekin.aker@gmail.com> |
| 2 | 7 | ||
| 3 | Ensure unmarking in buffer menu clears 'S' marks. (Bug#15761) | 8 | Ensure unmarking in buffer menu clears 'S' marks. (Bug#15761) |
diff --git a/lisp/emacs-lisp/autoload.el b/lisp/emacs-lisp/autoload.el index e531bc0bdae..099f06d9135 100644 --- a/lisp/emacs-lisp/autoload.el +++ b/lisp/emacs-lisp/autoload.el | |||
| @@ -553,7 +553,7 @@ Return non-nil if and only if FILE adds no autoloads to OUTFILE | |||
| 553 | (princ `(push (purecopy | 553 | (princ `(push (purecopy |
| 554 | ',(cons (intern package) version)) | 554 | ',(cons (intern package) version)) |
| 555 | package--builtin-versions)) | 555 | package--builtin-versions)) |
| 556 | (newline))))) | 556 | (princ "\n"))))) |
| 557 | 557 | ||
| 558 | (goto-char (point-min)) | 558 | (goto-char (point-min)) |
| 559 | (while (not (eobp)) | 559 | (while (not (eobp)) |