procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ad-make-advised-definition): Call

Browse source 
interactive-form to obtain the interactive spec of subrs.
This commit is contained in:
Gerd Moellmann 2001-03-29 14:11:46 +00:00
parent d320078883
commit e2b8a83076
2 changed files with 9 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/emacs-lisp/advice.el
View file

@ -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.