From 4efbba2cb919d6f44dc817a4644f7a2b6deb3413 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Thu, 7 Jun 2007 06:46:25 +0000 Subject: [PATCH] (dframe-frame-parameter, dframe-mouse-event-p): Rewrite compatibility functions to silence byte-compiler. --- lisp/dframe.el | 20 +++++++++----------- 1 file changed, 9 insertions(+), 11 deletions(-) diff --git a/lisp/dframe.el b/lisp/dframe.el index eda6d45bf21..7971db19dd8 100644 --- a/lisp/dframe.el +++ b/lisp/dframe.el @@ -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 @@ Must be bound to event E." ;;; 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))) -- 2.39.2