procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* lisp/emacs-lisp/byte-run.el (defun): Tweak message. Simplify code.

Browse source
This commit is contained in:
Stefan Monnier 2012-09-07 16:14:55 -04:00
parent 9dd40b0005
commit daac280ae0
2 changed files with 11 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/byte-run.el
View file

@ -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