# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1080009933 0
# Node ID e20bae3e327023d590cd7dcf195150db772d144c
# Parent  192ac22b418210b7e73116d92e64dc6609b48b0b
(ad-subr-arglist): Undo part of last patch.

diff -r 192ac22b4182 -r e20bae3e3270 lisp/emacs-lisp/advice.el
--- a/lisp/emacs-lisp/advice.el	Tue Mar 23 02:35:36 2004 +0000
+++ b/lisp/emacs-lisp/advice.el	Tue Mar 23 02:45:33 2004 +0000
@@ -2579,7 +2579,10 @@
     ;; 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