Mercurial > emacs
changeset 107496:893b1b725ad5
Close bug#4427.
* emacs-lisp/cl-macs.el (defsubst*): Add autoload cookie. (Bug#4427)
* emacs-lisp/cl-loaddefs.el: Regenerate.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 11 Mar 2010 19:19:17 -0800 |
| parents | 64f6b7b30092 |
| children | b09401cc9d96 |
| files | lisp/ChangeLog lisp/emacs-lisp/cl-loaddefs.el lisp/emacs-lisp/cl-macs.el |
| diffstat | 3 files changed, 18 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Thu Mar 11 08:25:46 2010 -0800 +++ b/lisp/ChangeLog Thu Mar 11 19:19:17 2010 -0800 @@ -1,3 +1,7 @@ +2010-03-12 Glenn Morris <rgm@gnu.org> + + * emacs-lisp/cl-macs.el (defsubst*): Add autoload cookie. (Bug#4427) + 2010-03-11 Wilson Snyder <wsnyder@wsnyder.org> * files.el (auto-mode-alist): Accept more verilog file patterns.
--- a/lisp/emacs-lisp/cl-loaddefs.el Thu Mar 11 08:25:46 2010 -0800 +++ b/lisp/emacs-lisp/cl-loaddefs.el Thu Mar 11 19:19:17 2010 -0800 @@ -273,8 +273,8 @@ ;;;*** -;;;### (autoloads (compiler-macroexpand define-compiler-macro assert -;;;;;; check-type typep deftype cl-struct-setf-expander defstruct +;;;### (autoloads (defsubst* compiler-macroexpand define-compiler-macro +;;;;;; assert check-type typep deftype cl-struct-setf-expander defstruct ;;;;;; define-modify-macro callf2 callf letf* letf rotatef shiftf ;;;;;; remf cl-do-pop psetf setf get-setf-method defsetf define-setf-method ;;;;;; declare the locally multiple-value-setq multiple-value-bind @@ -282,7 +282,7 @@ ;;;;;; flet progv psetq do-all-symbols do-symbols dotimes dolist ;;;;;; do* do loop return-from return block etypecase typecase ecase ;;;;;; case load-time-value eval-when destructuring-bind function* -;;;;;; defmacro* defun* gentemp gensym) "cl-macs" "cl-macs.el" "e10a7e42199c08dc39460f67dd2d424b") +;;;;;; defmacro* defun* gentemp gensym) "cl-macs" "cl-macs.el" "273ba25f4a116c61a464dbe55f1f8c63") ;;; Generated autoloads from cl-macs.el (autoload 'gensym "cl-macs" "\ @@ -739,6 +739,14 @@ \(fn FORM)" nil nil) +(autoload 'defsubst* "cl-macs" "\ +Define NAME as a function. +Like `defun', except the function is automatically declared `inline', +ARGLIST allows full Common Lisp conventions, and BODY is implicitly +surrounded by (block NAME ...). + +\(fn NAME ARGLIST [DOCSTRING] BODY...)" nil (quote macro)) + ;;;*** ;;;### (autoloads (tree-equal nsublis sublis nsubst-if-not nsubst-if
--- a/lisp/emacs-lisp/cl-macs.el Thu Mar 11 08:25:46 2010 -0800 +++ b/lisp/emacs-lisp/cl-macs.el Thu Mar 11 19:19:17 2010 -0800 @@ -1,7 +1,7 @@ ;;; cl-macs.el --- Common Lisp macros -;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009, 2010 -;; Free Software Foundation, Inc. +;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, +;; 2009, 2010 Free Software Foundation, Inc. ;; Author: Dave Gillespie <daveg@synaptics.com> ;; Version: 2.02 @@ -2596,6 +2596,7 @@ (byte-compile-normal-call form) (byte-compile-form form))) +;;;###autoload (defmacro defsubst* (name args &rest body) "Define NAME as a function. Like `defun', except the function is automatically declared `inline',