From: Stefan Monnier Date: Thu, 18 Oct 2007 19:07:49 +0000 (+0000) Subject: Don't require xt-mouse. X-Git-Url: https://git.hcoop.net/bpt/emacs.git/commitdiff_plain/4387d9f4f93d1614c1718b797f0375e96f84c353?hp=af020a0464b03976a56041e25087f132e7d38160 Don't require xt-mouse. (terminal-init-xterm): Run terminal-init-xterm-hook rather than calling turn-on-xterm-mouse-tracking-on-terminal directly. --- diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1714b9e850..15309eac95 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,9 @@ 2007-10-18 Stefan Monnier + * term/xterm.el: Don't require xt-mouse. + (terminal-init-xterm): Run terminal-init-xterm-hook rather than + calling turn-on-xterm-mouse-tracking-on-terminal directly. + * xt-mouse.el: Don't change the global function-key-map anny more. (xterm-mouse-mode): Use terminal-init-xterm-hook. Don't use after-make-frame-functions now that term/xterm.el calls diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index 1c4b60706a..a60aa90255 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el @@ -27,8 +27,6 @@ ;;; Code: -(eval-when-compile (require 'xt-mouse)) - (defvar xterm-function-map (let ((map (make-sparse-keymap))) @@ -469,12 +467,8 @@ ;; This recomputes all the default faces given the colors we've just set up. (tty-set-up-initial-frame-faces) - (when xterm-mouse-mode - (turn-on-xterm-mouse-tracking-on-terminal - (frame-terminal (selected-frame)))) - ;; Try to turn on the modifyOtherKeys feature on modern xterms. - ;; When it is turned on much more key bindings work: things like + ;; When it is turned on many more key bindings work: things like ;; C-. C-, etc. ;; To do that we need to find out if the current terminal supports ;; modifyOtherKeys. At this time only xterm does. @@ -506,7 +500,9 @@ ;; need to deal with modify-other-keys. (push (frame-terminal (selected-frame)) xterm-modify-other-keys-terminal-list) - (xterm-turn-on-modify-other-keys))))))) + (xterm-turn-on-modify-other-keys)))))) + + (run-hooks 'terminal-init-xterm-hook)) ;; Set up colors, for those versions of xterm that support it. (defvar xterm-standard-colors