[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/advice.el

[Richard M . Stallman]

Index: emacs/lisp/emacs-lisp/advice.el
diff -c emacs/lisp/emacs-lisp/advice.el:1.38 
emacs/lisp/emacs-lisp/advice.el:1.39
*** emacs/lisp/emacs-lisp/advice.el:1.38        Tue Mar 23 02:45:33 2004
--- emacs/lisp/emacs-lisp/advice.el     Tue Nov  2 09:17:50 2004
***************
*** 3106,3112 ****
                          (not advised-interactive-form))
                     ;; Check whether we were called interactively
                     ;; in order to do proper prompting:
!                    `(if (interactive-p)
                          (call-interactively ',origname)
                        ,(ad-make-mapped-call orig-arglist
                                              advised-arglist
--- 3106,3112 ----
                          (not advised-interactive-form))
                     ;; Check whether we were called interactively
                     ;; in order to do proper prompting:
!                    `(if (called-interactively-p)
                          (call-interactively ',origname)
                        ,(ad-make-mapped-call orig-arglist
                                              advised-arglist