diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-09-07 16:14:55 -0400 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-09-07 16:14:55 -0400 |
commit | daac280ae09b00e8a218ba3b6f9205d2372e93db (patch) | |
tree | 70d4f49db955edcafd8ea948e6ed0c921c6f5dff /lisp/emacs-lisp/byte-run.el | |
parent | 9dd40b000598aff88c6249ecf2b5a866935e9321 (diff) | |
download | emacs-daac280ae09b00e8a218ba3b6f9205d2372e93db.tar.gz emacs-daac280ae09b00e8a218ba3b6f9205d2372e93db.tar.bz2 emacs-daac280ae09b00e8a218ba3b6f9205d2372e93db.zip |
* lisp/emacs-lisp/byte-run.el (defun): Tweak message. Simplify code.
Diffstat (limited to 'lisp/emacs-lisp/byte-run.el')
-rw-r--r-- | lisp/emacs-lisp/byte-run.el | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index 9b66c8ffd60..d1382f42b19 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el @@ -185,11 +185,10 @@ The return value is undefined. ((and (featurep 'cl) (memq (car x) ;C.f. cl-do-proclaim. '(special inline notinline optimize warn))) - (if (null (stringp docstring)) - (push (list 'declare x) body) - (setcdr body (cons (list 'declare x) (cdr body)))) + (push (list 'declare x) + (if (stringp docstring) (cdr body) body)) nil) - (t (message "Warning: Unknown defun property %S in %S" + (t (message "Warning: Unknown defun property `%S' in %S" (car x) name))))) decls)) (def (list 'defalias |