diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-10-11 16:36:23 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-10-11 16:36:23 -0400 |
| commit | 9f1a4aa5053253b83b776ff52ed332b5efbae2ca (patch) | |
| tree | 0a28753fb5ec4c71cc6f95b5385433dd8f1ff4e1 /lisp/emacs-lisp/cl-macs.el | |
| parent | 389a94a53dfc947c5dc9964b5617e0098513bbe0 (diff) | |
| download | emacs-9f1a4aa5053253b83b776ff52ed332b5efbae2ca.tar.gz emacs-9f1a4aa5053253b83b776ff52ed332b5efbae2ca.tar.bz2 emacs-9f1a4aa5053253b83b776ff52ed332b5efbae2ca.zip | |
* lisp/emacs-lisp/cl-lib.el (cl--defsubst-expand): Undo last change.
* lisp/emacs-lisp/cl-macs.el (cl--defsubst-expand): Idem.
Diffstat (limited to 'lisp/emacs-lisp/cl-macs.el')
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 1a701e9047a..592c33d21c5 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el @@ -2595,9 +2595,6 @@ surrounded by (cl-block NAME ...). ,(and (memq '&key args) 'cl-whole) ,unsafe ,@argns))) (cl-defun ,name ,args ,@body)))) -;; Make sure functions defined with cl-defsubst can be inlined even in -;; packages which do not require CL. -;;;###autoload (defun cl--defsubst-expand (argns body simple whole unsafe &rest argvs) (if (and whole (not (cl--safe-expr-p (cons 'progn argvs)))) whole (if (cl--simple-exprs-p argvs) (setq simple t)) |