diff options
| author | Juanma Barranquero | 2005-10-06 08:19:10 +0000 |
|---|---|---|
| committer | Juanma Barranquero | 2005-10-06 08:19:10 +0000 |
| commit | 58eb29e58ef1d4c63367e073e00d9d4221224ffe (patch) | |
| tree | bdeb668d1b1b97c5165597815c0f09b8f58458ee | |
| parent | 01017d922c94a5cd3efe1e5f8160bc28d9031f93 (diff) | |
| download | emacs-58eb29e58ef1d4c63367e073e00d9d4221224ffe.tar.gz emacs-58eb29e58ef1d4c63367e073e00d9d4221224ffe.zip | |
(x-pointer-hand2, x-pointer-top-left-arrow): Add defvars.
| -rw-r--r-- | lisp/dframe.el | 9 |
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) |