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): |
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)) |
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 |