diff options
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 |