diff options
| author | Richard M. Stallman | 2007-03-26 03:30:53 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2007-03-26 03:30:53 +0000 |
| commit | 8bd91fd08df0a55b5142d8485a554fcd95a36077 (patch) | |
| tree | afcea8349b51be8eb260659d5f5268ad17e4216c | |
| parent | a2ebb43f91f82bc25cbcd0a8b7136c9227ca159b (diff) | |
| download | emacs-8bd91fd08df0a55b5142d8485a554fcd95a36077.tar.gz emacs-8bd91fd08df0a55b5142d8485a554fcd95a36077.zip | |
(byte-compile-file-form-defmumble): Use prin1 instead of princ.
| -rw-r--r-- | lisp/emacs-lisp/bytecomp.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/bytecomp.el b/lisp/emacs-lisp/bytecomp.el index f74e48c4635..31d21fd8720 100644 --- a/lisp/emacs-lisp/bytecomp.el +++ b/lisp/emacs-lisp/bytecomp.el | |||
| @@ -2341,7 +2341,7 @@ list that represents a doc string reference. | |||
| 2341 | (eq (car (car (cdr tail))) 'declare)) | 2341 | (eq (car (car (cdr tail))) 'declare)) |
| 2342 | (let ((declaration (car (cdr tail)))) | 2342 | (let ((declaration (car (cdr tail)))) |
| 2343 | (setcdr tail (cdr (cdr tail))) | 2343 | (setcdr tail (cdr (cdr tail))) |
| 2344 | (princ `(if macro-declaration-function | 2344 | (prin1 `(if macro-declaration-function |
| 2345 | (funcall macro-declaration-function | 2345 | (funcall macro-declaration-function |
| 2346 | ',name ',declaration)) | 2346 | ',name ',declaration)) |
| 2347 | outbuffer))))) | 2347 | outbuffer))))) |