Mercurial > emacs
comparison lisp/emacs-lisp/advice.el @ 45019:c726a3eeeb0f
(documentation): Add ad-define-subr-args call.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Tue, 30 Apr 2002 04:20:16 +0000 |
parents | 2fba35852455 |
children | 73cafacdf14f |
comparison
equal
deleted
inserted
replaced
45018:ee50e9257543 | 45019:c726a3eeeb0f |
---|---|
3923 ;; @@ Advising `documentation': | 3923 ;; @@ Advising `documentation': |
3924 ;; ============================ | 3924 ;; ============================ |
3925 ;; Use the advice mechanism to advise `documentation' to make it | 3925 ;; Use the advice mechanism to advise `documentation' to make it |
3926 ;; generate proper documentation strings for advised definitions: | 3926 ;; generate proper documentation strings for advised definitions: |
3927 | 3927 |
3928 ;; This makes sure we get the right arglist for `documentation' | |
3929 ;; during bootstrapping. | |
3930 (ad-define-subr-args 'documentation '(function &optional raw)) | |
3931 | |
3928 (defadvice documentation (after ad-advised-docstring first disable preact) | 3932 (defadvice documentation (after ad-advised-docstring first disable preact) |
3929 "Builds an advised docstring if FUNCTION is advised." | 3933 "Builds an advised docstring if FUNCTION is advised." |
3930 ;; Because we get the function name from the advised docstring | 3934 ;; Because we get the function name from the advised docstring |
3931 ;; this will work for function names as well as for definitions: | 3935 ;; this will work for function names as well as for definitions: |
3932 (if (and (stringp ad-return-value) | 3936 (if (and (stringp ad-return-value) |