diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-09-30 21:59:26 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2008-09-30 21:59:26 +0000 |
| commit | ffaa90dd9847e4bd6abc10f30efa1197a05001d9 (patch) | |
| tree | d30c57414923bc5113cffc30df34e0039ef035b8 /lisp/term | |
| parent | 0ef5099349fdb9075cfde8fbc7bf36f9648e327c (diff) | |
| download | emacs-ffaa90dd9847e4bd6abc10f30efa1197a05001d9.tar.gz | |
(xterm-turn-on-modify-other-keys)
(xterm-turn-off-modify-other-keys, xterm-remove-modify-other-keys):
Don't forget to pass `terminal' to `send-string-to-terminal'.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/xterm.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/term/xterm.el b/lisp/term/xterm.el index 559bd037ffd..b01adf4995b 100644 --- a/lisp/term/xterm.el +++ b/lisp/term/xterm.el @@ -624,27 +624,27 @@ versions of xterm." (clear-face-cache))) (defun xterm-turn-on-modify-other-keys () - "Turn on the modifyOtherKeys feature of xterm." + "Turn the modifyOtherKeys feature of xterm back on." (let ((terminal (frame-terminal (selected-frame)))) (when (and (terminal-live-p terminal) (memq terminal xterm-modify-other-keys-terminal-list)) - (send-string-to-terminal "\e[>4;1m")))) + (send-string-to-terminal "\e[>4;1m" terminal)))) (defun xterm-turn-off-modify-other-keys (&optional frame) - "Turn off the modifyOtherKeys feature of xterm." + "Temporarily turn off the modifyOtherKeys feature of xterm." (let ((terminal (when frame (frame-terminal frame)))) - (when (and (frame-live-p terminal) + (when (and (terminal-live-p terminal) (memq terminal xterm-modify-other-keys-terminal-list)) - (send-string-to-terminal "\e[>4m")))) + (send-string-to-terminal "\e[>4m" terminal)))) (defun xterm-remove-modify-other-keys (&optional terminal) - "Turn off the modifyOtherKeys feature of xterm and remove frame from consideration." + "Turn off the modifyOtherKeys feature of xterm for good." (setq terminal (and terminal (frame-terminal (selected-frame)))) (when (and (terminal-live-p terminal) (memq terminal xterm-modify-other-keys-terminal-list)) (setq xterm-modify-other-keys-terminal-list (delq terminal xterm-modify-other-keys-terminal-list)) - (send-string-to-terminal "\e[>4m"))) + (send-string-to-terminal "\e[>4m" terminal))) ;; arch-tag: 12e7ebdd-1e6c-4b25-b0f9-35ace25e855a ;;; xterm.el ends here |