HCoop
/
bpt
/
emacs.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
4c62200
)
rm lazy macro use
author
Robin Templeton
<robin@terpri.org>
Sun, 22 Jun 2014 04:42:07 +0000
(
00:42
-0400)
committer
Robin Templeton
<robin@terpri.org>
Mon, 20 Apr 2015 04:29:01 +0000
(
00:29
-0400)
lisp/emacs-lisp/byte-run.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/emacs-lisp/byte-run.el
b/lisp/emacs-lisp/byte-run.el
index
0a9a394
..
b9fc8d8
100644
(file)
--- 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)))))