aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorJuanma Barranquero2005-10-06 08:19:10 +0000
committerJuanma Barranquero2005-10-06 08:19:10 +0000
commit58eb29e58ef1d4c63367e073e00d9d4221224ffe (patch)
treebdeb668d1b1b97c5165597815c0f09b8f58458ee
parent01017d922c94a5cd3efe1e5f8160bc28d9031f93 (diff)
downloademacs-58eb29e58ef1d4c63367e073e00d9d4221224ffe.tar.gz
emacs-58eb29e58ef1d4c63367e073e00d9d4221224ffe.zip
(x-pointer-hand2, x-pointer-top-left-arrow): Add defvars.
-rw-r--r--lisp/dframe.el9
1 files 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 @@
109;; * The timer managers doesn't handle multiple different timeouts. 109;; * The timer managers doesn't handle multiple different timeouts.
110;; * You can't specify continuous timouts (as opposed to just lidle timers.) 110;; * You can't specify continuous timouts (as opposed to just lidle timers.)
111 111
112(defvar x-pointer-hand2)
113(defvar x-pointer-top-left-arrow)
114
112;;; Code: 115;;; Code:
113(defvar dframe-xemacsp (string-match "XEmacs" emacs-version) 116(defvar dframe-xemacsp (string-match "XEmacs" emacs-version)
114 "Non-nil if we are running in the XEmacs environment.") 117 "Non-nil if we are running in the XEmacs environment.")
@@ -151,7 +154,7 @@
151(if (fboundp 'frame-parameter) 154(if (fboundp 'frame-parameter)
152 155
153 (defalias 'dframe-frame-parameter 'frame-parameter) 156 (defalias 'dframe-frame-parameter 'frame-parameter)
154 157
155 (defun dframe-frame-parameter (frame parameter) 158 (defun dframe-frame-parameter (frame parameter)
156 "Return FRAME's PARAMETER value." 159 "Return FRAME's PARAMETER value."
157 (cdr (assoc parameter (frame-parameters frame))))) 160 (cdr (assoc parameter (frame-parameters frame)))))
@@ -716,7 +719,7 @@ Optionally select that frame if necessary."
716 (when (or (not (dframe-mouse-event-p last-input-event)) 719 (when (or (not (dframe-mouse-event-p last-input-event))
717 dframe-activity-change-focus-flag) 720 dframe-activity-change-focus-flag)
718 (dframe-select-attached-frame) 721 (dframe-select-attached-frame)
719 ;; KB: For what is this - raising the frame?? 722 ;; KB: For what is this - raising the frame??
720 (other-frame 0))) 723 (other-frame 0)))
721 724
722 725
@@ -903,7 +906,7 @@ Must be bound to event E."
903 (windowp (posn-window (event-end event))) ; Sometimes 906 (windowp (posn-window (event-end event))) ; Sometimes
904 ; there is no window to jump into. 907 ; there is no window to jump into.
905 )) 908 ))
906 909
907 (funcall dframe-track-mouse-function event))) 910 (funcall dframe-track-mouse-function event)))
908 911
909(defun dframe-track-mouse-xemacs (event) 912(defun dframe-track-mouse-xemacs (event)