procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(ad-special-forms): Use track-mouse iff bound.

Browse source
This commit is contained in:
Karl Heuer 1999-08-14 03:55:01 +00:00
parent 0b6e8742b7
commit 65a44e9fc0
1 changed files with 10 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

17
lisp/emacs-lisp/advice.el
View file

@ -2472,13 +2472,16 @@ will clear the cache."
;; There is no way to determine whether some subr is a special form or not,
;; hence we need this list (which is probably out of date):
(defvar ad-special-forms
(mapcar 'symbol-function
'(and catch cond condition-case defconst defmacro
defun defvar function if interactive let let*
or prog1 prog2 progn quote save-current-buffer
save-excursion save-restriction save-window-excursion
setq setq-default track-mouse unwind-protect while
with-output-to-temp-buffer)))
(let ((tem '(and catch cond condition-case defconst defmacro
defun defvar function if interactive let let*
or prog1 prog2 progn quote save-current-buffer
save-excursion save-restriction save-window-excursion
setq setq-default track-mouse unwind-protect while
with-output-to-temp-buffer)))
;; track-mouse could be void in some configurations.
(if (fboundp 'track-mouse)
(setq tem (cons 'track-mouse tem)))
(mapcar 'symbol-function tem)))
(defmacro ad-special-form-p (definition)
;;"non-nil if DEFINITION is a special form."