Commit b278604e authored by Kenichi Handa's avatar Kenichi Handa

international/mule.el (set-keyboard-coding-system): Recover input meta mode...

international/mule.el (set-keyboard-coding-system): Recover input meta mode when the new coding system doesn not use 8-bit.  Supply TERMINAL arg to set-input-meta-mode.
parent 59684652
2012-10-17 Kenichi Handa <handa@gnu.org>
* international/mule.el (set-keyboard-coding-system): Recover
input meta mode when the new coding system doesn not use 8-bit.
Supply TERMINAL arg to set-input-meta-mode.
2012-10-17 Michael Heerdegen <michael_heerdegen@web.de> (tiny change) 2012-10-17 Michael Heerdegen <michael_heerdegen@web.de> (tiny change)
* wdired.el (wdired-old-marks): New variable. * wdired.el (wdired-old-marks): New variable.
......
...@@ -1355,19 +1355,25 @@ graphical terminals." ...@@ -1355,19 +1355,25 @@ graphical terminals."
(t (t
(error "Unsupported coding system for keyboard: %s" (error "Unsupported coding system for keyboard: %s"
coding-system))) coding-system)))
(when accept-8-bit (if accept-8-bit
(or saved-meta-mode (progn
(set-terminal-parameter terminal (or saved-meta-mode
'keyboard-coding-saved-meta-mode (set-terminal-parameter terminal
(cons (nth 2 (current-input-mode)) 'keyboard-coding-saved-meta-mode
nil))) (cons (nth 2 (current-input-mode))
(set-input-meta-mode 8)) nil)))
(set-input-meta-mode 8 terminal))
(when saved-meta-mode
(set-input-meta-mode (car saved-meta-mode) terminal)
(set-terminal-parameter terminal
'keyboard-coding-saved-meta-mode
nil)))
;; Avoid end-of-line conversion. ;; Avoid end-of-line conversion.
(setq coding-system (setq coding-system
(coding-system-change-eol-conversion coding-system 'unix))) (coding-system-change-eol-conversion coding-system 'unix)))
(when saved-meta-mode (when saved-meta-mode
(set-input-meta-mode (car saved-meta-mode)) (set-input-meta-mode (car saved-meta-mode) terminal)
(set-terminal-parameter terminal (set-terminal-parameter terminal
'keyboard-coding-saved-meta-mode 'keyboard-coding-saved-meta-mode
nil)))) nil))))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment