procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ad-subr-arglist): Undo part of last patch.

Browse source
This commit is contained in:
Stefan Monnier 2004-03-23 02:45:33 +00:00
parent 6aa69bd7c5
commit 98fdbd102f
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/emacs-lisp/advice.el
View file

@ -2579,7 +2579,10 @@ that property, or otherwise use `(&rest ad-subr-args)'."
;; the old way of doing things.
(let ((doc (or (ad-real-documentation subr-name t) "")))
(if (not (string-match "\n\n\\((.+)\\)\\'" doc))
(error "The usage info is missing from the subr %s" subr-name)
;; Signalling an error leads to bugs during bootstrapping because
;; the DOC file is not yet built (which is an error, BTW).
;; (error "The usage info is missing from the subr %s" subr-name)
'(&rest ad-subr-args)
(ad-define-subr-args
subr-name
(cdr (car (read-from-string