mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-04 11:00:45 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/help-fns.el (describe-function-1): Handle autoloads w/o docstrings.

Browse source 
* lisp/emacs-lisp/cl-lib.el (cl--defsubst-expand): Move autoload...
* lisp/emacs-lisp/cl-macs.el (cl--defsubst-expand): ...here.
This commit is contained in:
Stefan Monnier 2012-10-11 16:11:23 -04:00
parent 5253a5fd75
commit d8cc4c00ea
4 changed files with 8 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/emacs-lisp/cl-lib.el
View file

@ -727,9 +727,6 @@ If ALIST is non-nil, the new pairs are prepended to it."
;;;###autoload
(progn
;; Make sure functions defined with cl-defsubst can be inlined even in
;; packages which do not require CL.
(autoload 'cl--defsubst-expand "cl-macs")
;; Autoload, so autoload.el and font-lock can use it even when CL
;; is not loaded.
(put 'cl-defun 'doc-string-elt 3)

3
lisp/emacs-lisp/cl-macs.el
View file

@ -2595,6 +2595,9 @@ 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))