mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(x-pointer-hand2, x-pointer-top-left-arrow): Add defvars.

Browse Source
This commit is contained in:
Juanma Barranquero 2005-10-06 08:19:10 +00:00
parent 01017d922c
commit 58eb29e58e
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lisp/dframe.el
View File

@ -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)