diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2001-03-29 14:11:46 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2001-03-29 14:11:46 +0000 |
| commit | e2b8a8307614d0b603bbf98beed3b154e67a95c4 (patch) | |
| tree | a9cd47e0fb3d53c9f7159cffc2f729aa4c429111 /lisp/emacs-lisp/advice.el | |
| parent | d320078883e811c787ebdac0ed6aba82bb16a2a9 (diff) | |
| download | emacs-e2b8a8307614d0b603bbf98beed3b154e67a95c4.tar.gz | |
(ad-make-advised-definition): Call
interactive-form to obtain the interactive spec of subrs.
Diffstat (limited to 'lisp/emacs-lisp/advice.el')
| -rw-r--r-- | lisp/emacs-lisp/advice.el | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/lisp/emacs-lisp/advice.el b/lisp/emacs-lisp/advice.el index 4d32929ee9b..0333c51df64 100644 --- a/lisp/emacs-lisp/advice.el +++ b/lisp/emacs-lisp/advice.el @@ -1,6 +1,6 @@ ;;; advice.el --- an overloading mechanism for Emacs Lisp functions -;; Copyright (C) 1993,1994,2000 Free Software Foundation, Inc. +;; Copyright (C) 1993,1994,2000, 2001 Free Software Foundation, Inc. ;; Author: Hans Chalupsky <hans@cs.buffalo.edu> ;; Maintainer: FSF @@ -3072,12 +3072,7 @@ Example: `(ad-map-arglists '(a &rest args) '(w x y z))' will return ;; Otherwise we must have a subr: make it interactive if ;; we have to and initialize required arguments in case ;; it is called interactively: - (orig-interactive-p - (let ((reqargs (car (ad-parse-arglist advised-arglist)))) - (if reqargs - (` (interactive - '(, (make-list (length reqargs) nil)))) - '(interactive)))))) + (orig-interactive-p (interactive-form origdef)))) (orig-form (cond ((or orig-special-form-p orig-macro-p) ;; Special forms and macros will be advised into macros. |