Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
dc6ed037
Commit
dc6ed037
authored
Apr 13, 2005
by
Luc Teirlinck
Browse files
(xterm-mouse-mode): Change :init value.
parent
4d727d1a
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
16 deletions
+4
-16
lisp/xt-mouse.el
lisp/xt-mouse.el
+4
-16
No files found.
lisp/xt-mouse.el
View file @
dc6ed037
...
...
@@ -162,23 +162,11 @@ single clicks are supported. When turned on, the normal xterm
mouse functionality for such clicks is still available by holding
down the SHIFT key while pressing the mouse button."
:global
t
:group
'mouse
;;
Do not
change the
:init-value below, without corresponding
;; c
hanges in the related
code in startup.el.
;;
If you
change the
code below, you also need to change the
;; c
orresponding
code in startup.el.
:init-value
(
unless
(
or
noninteractive
window-system
(
null
term-file-prefix
))
(
let
((
term
(
getenv
"TERM"
))
hyphend
)
(
while
(
and
term
(
not
(
load
(
concat
term-file-prefix
term
)
t
t
)))
;; Strip off last hyphen and what follows, then
;; try again
(
setq
term
(
if
(
setq
hyphend
(
string-match
"[-_][^-_]+$"
term
))
(
substring
term
0
hyphend
)
nil
)))
window-system
)
(
let
((
term
(
getenv
"TERM"
)))
(
and
term
(
string-match
"^\\(xterm\\|rxvt\\|dtterm\\|eterm\\)"
term
)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment