Commit e2b8a830 authored by Gerd Moellmann's avatar Gerd Moellmann
Browse files

(ad-make-advised-definition): Call

interactive-form to obtain the interactive spec of subrs.
parent d3200788
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.
......
;;; 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.
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment