diff options
author | Robin Templeton <[email protected]> | 2014-06-22 00:42:07 -0400 |
---|---|---|
committer | Robin Templeton <[email protected]> | 2015-04-20 00:29:01 -0400 |
commit | b139508b6f9b1cd6828c21d2c82422e2ef5648d0 (patch) | |
tree | 7e38917271028dcbbc5c5fceaa16dbd73ccdece7 /lisp | |
parent | 4c62200977c0483198ee28c4e1bb940e19300ee2 (diff) |
rm lazy macro use
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/emacs-lisp/byte-run.el | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/lisp/emacs-lisp/byte-run.el b/lisp/emacs-lisp/byte-run.el index 0a9a39422d..b9fc8d855d 100644 --- a/lisp/emacs-lisp/byte-run.el +++ b/lisp/emacs-lisp/byte-run.el @@ -232,14 +232,7 @@ The return value is undefined. ((and (featurep 'cl) (memq (car x) ;C.f. cl-do-proclaim. '(special inline notinline optimize warn))) - (push (list 'declare x) - (if (stringp docstring) - (if (eq (car-safe (cadr body)) 'interactive) - (cddr body) - (cdr body)) - (if (eq (car-safe (car body)) 'interactive) - (cdr body) - body))) + (setq body (cons (list 'declare x) body)) nil) (t (message "Warning: Unknown defun property `%S' in %S" (car x) name))))) |