# HG changeset patch
# User Glenn Morris <rgm@gnu.org>
# Date 1181198785 0
# Node ID 1ad744f279f031096e03679598d676e546525678
# Parent  43ae6381f214e02da219ff8973c81010c8c36bd8
(dframe-frame-parameter, dframe-mouse-event-p): Rewrite compatibility
functions to silence byte-compiler.

diff -r 43ae6381f214 -r 1ad744f279f0 lisp/dframe.el
--- 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)))