/[emacs]/emacs/lisp/emacs-lisp/advice.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/advice.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.43 by rfrancoise, Sat Sep 24 13:43:59 2005 UTC revision 1.44 by monnier, Mon Oct 24 16:14:34 2005 UTC
# Line 3109  in any of these classes." Line 3109  in any of these classes."
3109                       ;; in order to do proper prompting:                       ;; in order to do proper prompting:
3110                       `(if (called-interactively-p)                       `(if (called-interactively-p)
3111                            (call-interactively ',origname)                            (call-interactively ',origname)
3112                          ,(ad-make-mapped-call orig-arglist                          ,(ad-make-mapped-call advised-arglist
3113                                                advised-arglist                                                orig-arglist
3114                                                origname)))                                                origname)))
3115                      ;; And now for normal functions and non-interactive subrs                      ;; And now for normal functions and non-interactive subrs
3116                      ;; (or subrs whose interactive behavior was advised):                      ;; (or subrs whose interactive behavior was advised):
# Line 3812  documentation of the advised function ca Line 3812  documentation of the advised function ca
3812  during preloading.  during preloading.
3813    
3814  See Info node `(elisp)Advising Functions' for comprehensive documentation."  See Info node `(elisp)Advising Functions' for comprehensive documentation."
3815      (declare (doc-string 3))
3816    (if (not (ad-name-p function))    (if (not (ad-name-p function))
3817        (error "defadvice: Invalid function name: %s" function))        (error "defadvice: Invalid function name: %s" function))
3818    (let* ((class (car args))    (let* ((class (car args))
# Line 3986  Use only in REAL emergencies." Line 3987  Use only in REAL emergencies."
3987    
3988  (provide 'advice)  (provide 'advice)
3989    
3990  ;;; arch-tag: 29f8c9a1-8c88-471f-95d7-e28541c6b7c0  ;; arch-tag: 29f8c9a1-8c88-471f-95d7-e28541c6b7c0
3991  ;;; advice.el ends here  ;;; advice.el ends here

Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26