diff options
| author | Stefan Monnier | 2004-03-23 02:45:33 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2004-03-23 02:45:33 +0000 |
| commit | 98fdbd102f3e18de6c3bc88c1b2721ad898dd326 (patch) | |
| tree | 9e8ab696c0a41ea1c5d503d719718dd2c5a9d932 | |
| parent | 6aa69bd7c54552311267fb30ce71c87309583b04 (diff) | |
| download | emacs-98fdbd102f3e18de6c3bc88c1b2721ad898dd326.tar.gz emacs-98fdbd102f3e18de6c3bc88c1b2721ad898dd326.zip | |
(ad-subr-arglist): Undo part of last patch.
| -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)'." | |||
| 2579 | ;; the old way of doing things. | 2579 | ;; the old way of doing things. |
| 2580 | (let ((doc (or (ad-real-documentation subr-name t) ""))) | 2580 | (let ((doc (or (ad-real-documentation subr-name t) ""))) |
| 2581 | (if (not (string-match "\n\n\\((.+)\\)\\'" doc)) | 2581 | (if (not (string-match "\n\n\\((.+)\\)\\'" doc)) |
| 2582 | (error "The usage info is missing from the subr %s" subr-name) | 2582 | ;; Signalling an error leads to bugs during bootstrapping because |
| 2583 | ;; the DOC file is not yet built (which is an error, BTW). | ||
| 2584 | ;; (error "The usage info is missing from the subr %s" subr-name) | ||
| 2585 | '(&rest ad-subr-args) | ||
| 2583 | (ad-define-subr-args | 2586 | (ad-define-subr-args |
| 2584 | subr-name | 2587 | subr-name |
| 2585 | (cdr (car (read-from-string | 2588 | (cdr (car (read-from-string |