diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-03-23 02:45:33 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2004-03-23 02:45:33 +0000 |
| commit | 98fdbd102f3e18de6c3bc88c1b2721ad898dd326 (patch) | |
| tree | 9e8ab696c0a41ea1c5d503d719718dd2c5a9d932 /lisp/emacs-lisp | |
| parent | 6aa69bd7c54552311267fb30ce71c87309583b04 (diff) | |
| download | emacs-98fdbd102f3e18de6c3bc88c1b2721ad898dd326.tar.gz emacs-98fdbd102f3e18de6c3bc88c1b2721ad898dd326.tar.bz2 emacs-98fdbd102f3e18de6c3bc88c1b2721ad898dd326.zip | |
(ad-subr-arglist): Undo part of last patch.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/advice.el | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el index 09ef27528d2..7686722c5be 100644 --- a/lisp/emacs-lisp/advice.el +++ b/lisp/emacs-lisp/advice.el @@ -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 |