mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-27 10:54:40 +00:00
Code Issues Releases Activity

Stop cl-lib loading pcase at runtime

Browse Source 
The cause was an unexpanded pcase-defmacro in cl-loaddefs.
* lisp/emacs-lisp/autoload.el (make-autoload):
Treat pcase-defmacro like defmacro.
This commit is contained in:
Glenn Morris 2017-04-19 16:28:48 -04:00
parent 3533623c4a
commit 41a5b76f79
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lisp/emacs-lisp/autoload.el
View File

@ -164,7 +164,8 @@ expression, in which case we want to handle forms differently."
((and (memq car '(easy-mmode-define-global-mode define-global-minor-mode ((and (memq car '(easy-mmode-define-global-mode define-global-minor-mode
define-globalized-minor-mode defun defmacro define-globalized-minor-mode defun defmacro
easy-mmode-define-minor-mode define-minor-mode easy-mmode-define-minor-mode define-minor-mode
define-inline cl-defun cl-defmacro cl-defgeneric)) define-inline cl-defun cl-defmacro cl-defgeneric
pcase-defmacro))
(macrop car) (macrop car)
(setq expand (let ((load-file-name file)) (macroexpand form))) (setq expand (let ((load-file-name file)) (macroexpand form)))
(memq (car expand) '(progn prog1 defalias))) (memq (car expand) '(progn prog1 defalias)))