-

[gnu-emacs] / lisp / term / linux.el

diff --git a/lisp/term/linux.el b/lisp/term/linux.el
index 147367497860413c2b30f057820fd8255786e33b..00bcdfdf5427d91550cc633561512ddc7544a88d 100644 (file)
--- a/lisp/term/linux.el
+++ b/lisp/term/linux.el
@@ -1,16 +1,16 @@
-;; -*- no-byte-compile: t -*-
 ;; The Linux console handles Latin-1 by default.
 
+(declare-function gpm-mouse-enable "t-mouse" ())
+
 (defun terminal-init-linux ()
-  "Terminal initialization function for linux."  
+  "Terminal initialization function for linux."
   (unless (terminal-coding-system)
     (set-terminal-coding-system 'iso-latin-1))
 
   ;; It can't really display underlines.
   (tty-no-underline)
 
-  (condition-case nil (t-mouse-mode 1)
-    (error nil))
+  (ignore-errors (when gpm-mouse-mode (require 't-mouse) (gpm-mouse-enable)))
 
   ;; Make Latin-1 input characters work, too.
   ;; Meta will continue to work, because the kernel
@@ -19,5 +19,4 @@
   ;; The arg only matters in that it is not t or nil.
   (set-input-meta-mode 'iso-latin-1))
 
-;; arch-tag: 5d0c4f63-739b-4862-abf3-041fe42adb8f
 ;;; linux.el ends here