mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(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

7
lisp/ChangeLog
View file

@ -1,3 +1,10 @@
2001-03-29 Gerd Moellmann <gerd@gnu.org>
* emacs-lisp/advice.el (ad-make-advised-definition): Call
interactive-form to obtain the interactive spec of subrs.
* subr.el (interactive-form): New function.
2001-03-29 Andre Spiegel <spiegel@gnu.org>
* vc-sccs.el (vc-sccs-register): Use relative file names.

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.