diff options
| author | Richard M. Stallman <rms@gnu.org> | 2002-04-30 04:20:25 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 2002-04-30 04:20:25 +0000 |
| commit | bd421bc2ddb2115709d2a51f31fbd0847e317dea (patch) | |
| tree | 6ad799b7ad3c659e303379281b78b9318c81ba97 /lisp/emacs-lisp | |
| parent | f1b693270ad9e33b382e2d75189baef0f79e8d9b (diff) | |
| download | emacs-bd421bc2ddb2115709d2a51f31fbd0847e317dea.tar.gz emacs-bd421bc2ddb2115709d2a51f31fbd0847e317dea.tar.bz2 emacs-bd421bc2ddb2115709d2a51f31fbd0847e317dea.zip | |
(documentation): Add ad-define-subr-args call.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/advice.el | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el index b03dd3603bd..34e2a92ed37 100644 --- a/lisp/emacs-lisp/advice.el +++ b/lisp/emacs-lisp/advice.el @@ -3925,6 +3925,10 @@ undone on exit of this macro." ;; Use the advice mechanism to advise `documentation' to make it ;; generate proper documentation strings for advised definitions: +;; This makes sure we get the right arglist for `documentation' +;; during bootstrapping. +(ad-define-subr-args 'documentation '(function &optional raw)) + (defadvice documentation (after ad-advised-docstring first disable preact) "Builds an advised docstring if FUNCTION is advised." ;; Because we get the function name from the advised docstring |