Mercurial > emacs
changeset 81213:1ad744f279f0
(dframe-frame-parameter, dframe-mouse-event-p): Rewrite compatibility
functions to silence byte-compiler.
| author | Glenn Morris <rgm@gnu.org> |
|---|---|
| date | Thu, 07 Jun 2007 06:46:25 +0000 |
| parents | 43ae6381f214 |
| children | 3177ffd9842f |
| files | lisp/dframe.el |
| diffstat | 1 files changed, 9 insertions(+), 11 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/dframe.el Thu Jun 07 06:46:12 2007 +0000 +++ b/lisp/dframe.el Thu Jun 07 06:46:25 2007 +0000 @@ -152,13 +152,11 @@ ;;; Compatibility functions ;; -(if (fboundp 'frame-parameter) - - (defalias 'dframe-frame-parameter 'frame-parameter) - - (defun dframe-frame-parameter (frame parameter) - "Return FRAME's PARAMETER value." - (cdr (assoc parameter (frame-parameters frame))))) +(defun dframe-frame-parameter (frame parameter) + "Return FRAME's PARAMETER value." + (if (fboundp 'frame-parameter) + (frame-parameter frame parameter) + (cdr (assoc parameter (frame-parameters frame))))) ; XEmacs ;;; Variables @@ -887,10 +885,10 @@ ;;; Interactive user functions for the mouse ;; -(if dframe-xemacsp - (defalias 'dframe-mouse-event-p 'button-press-event-p) - (defun dframe-mouse-event-p (event) - "Return t if the event is a mouse related event." +(defun dframe-mouse-event-p (event) + "Return t if the event is a mouse related event." + (if (fboundp 'button-press-event-p) + (button-press-event-p event) ; XEmacs (if (and (listp event) (member (event-basic-type event) '(mouse-1 mouse-2 mouse-3)))