From 58eb29e58ef1d4c63367e073e00d9d4221224ffe Mon Sep 17 00:00:00 2001 From: Juanma Barranquero Date: Thu, 6 Oct 2005 08:19:10 +0000 Subject: [PATCH] (x-pointer-hand2, x-pointer-top-left-arrow): Add defvars. --- lisp/dframe.el | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/lisp/dframe.el b/lisp/dframe.el index f0aa72d0f1f..4be0ee8f097 100644 --- a/lisp/dframe.el +++ b/lisp/dframe.el @@ -109,6 +109,9 @@ ;; * The timer managers doesn't handle multiple different timeouts. ;; * You can't specify continuous timouts (as opposed to just lidle timers.) +(defvar x-pointer-hand2) +(defvar x-pointer-top-left-arrow) + ;;; Code: (defvar dframe-xemacsp (string-match "XEmacs" emacs-version) "Non-nil if we are running in the XEmacs environment.") @@ -151,7 +154,7 @@ (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))))) @@ -716,7 +719,7 @@ Optionally select that frame if necessary." (when (or (not (dframe-mouse-event-p last-input-event)) dframe-activity-change-focus-flag) (dframe-select-attached-frame) - ;; KB: For what is this - raising the frame?? + ;; KB: For what is this - raising the frame?? (other-frame 0))) @@ -903,7 +906,7 @@ Must be bound to event E." (windowp (posn-window (event-end event))) ; Sometimes ; there is no window to jump into. )) - + (funcall dframe-track-mouse-function event))) (defun dframe-track-mouse-xemacs (event) -- 2.39.5