From 98fdbd102f3e18de6c3bc88c1b2721ad898dd326 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 23 Mar 2004 02:45:33 +0000 Subject: [PATCH] (ad-subr-arglist): Undo part of last patch. --- lisp/emacs-lisp/advice.el | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) 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 -- 2.39.2