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:
f4d364b
)
autoloading eval-when forms
author
Robin Templeton
<robin@terpri.org>
Tue, 12 Aug 2014 11:42:29 +0000
(07:42 -0400)
committer
Robin Templeton
<robin@terpri.org>
Mon, 9 Feb 2015 18:04:26 +0000
(13:04 -0500)
lisp/emacs-lisp/autoload.el
patch
|
blob
|
blame
|
history
diff --git
a/lisp/emacs-lisp/autoload.el
b/lisp/emacs-lisp/autoload.el
index
361e8fa
..
9bd7cc1
100644
(file)
--- a/
lisp/emacs-lisp/autoload.el
+++ b/
lisp/emacs-lisp/autoload.el
@@
-127,7
+127,9
@@
expression, in which case we want to handle forms differently."
;; (message "autoload of %S" (nth 1 form))
`(autoload ,(nth 1 form) ,file ,doc ,interactive ,type)))
- ((and expansion (memq car '(progn prog1)))
+ ((and expansion
+ (or (memq car '(progn prog1))
+ (and (eq car 'eval-when) (setq form (cdr form)))))
(let ((end (memq :autoload-end form)))
(when end ;Cut-off anything after the :autoload-end marker.
(setq form (copy-sequence form))