Mercurial > emacs

comparison lisp/international/encoded-kb.el @ 17754:8be34c35fa73

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(encoded-kbd-mode): Doc-string modified. (encoded-kbd-select-terminal): The function deleted. (encoded-kbd-set-coding-system): New function.
author Kenichi Handa <handa@m17n.org>
date Mon, 12 May 1997 06:56:19 +0000
parents a3ca5e15c82a
children 601f43ce92b5
comparison
equal deleted inserted replaced
17753:de6be7f3b904 17754:8be34c35fa73
229 "Toggle Encoded-kbd minor mode. 229 "Toggle Encoded-kbd minor mode.
230 With arg, turn Keyboard-kbd mode on in and only if arg is positive. 230 With arg, turn Keyboard-kbd mode on in and only if arg is positive.
231 231
232 When in Encoded-kbd mode, a text sent from a terminal keyboard 232 When in Encoded-kbd mode, a text sent from a terminal keyboard
233 is accepted as a multilingual text encoded in a coding system 233 is accepted as a multilingual text encoded in a coding system
234 set by the command `set-keyboard-coding-system'" 234 set by the command `encoded-kbd-set-coding-system'"
235 (interactive "P") 235 (interactive "P")
236 (setq encoded-kbd-mode 236 (setq encoded-kbd-mode
237 (if (null arg) (null encoded-kbd-mode) 237 (if (null arg) (null encoded-kbd-mode)
238 (> (prefix-numeric-value arg) 0))) 238 (> (prefix-numeric-value arg) 0)))
239 (if encoded-kbd-mode 239 (if encoded-kbd-mode
283 (setq describe-current-input-method-function nil) 283 (setq describe-current-input-method-function nil)
284 (setq current-input-method nil)) 284 (setq current-input-method nil))
285 (force-mode-line-update)) 285 (force-mode-line-update))
286 286
287 ;;;###autoload 287 ;;;###autoload
288 (defun encoded-kbd-select-terminal (terminal coding-system) 288 (defun encoded-kbd-set-coding-system (coding-system)
289 "Activate Encoded-Kbd mode appropriately for TERMINAL using CODING-SYSTEM." 289 "Activate Encoded-kbd mode appropriately for a terminal using CODING-SYSTEM.
290 (interactive "STerminal name: \nzcoding-system: ") 290 If you specify nil for CODING-SYSTEM, Encoded-kbd mode is toggled off."
291 (interactive "zCoding system: ")
291 (if window-system 292 (if window-system
292 (error "Should run emacs on an ordinary terminal")) 293 (error "Should run emacs on an ordinary terminal"))
293 (set-terminal-coding-system coding-system) 294 (if (check-coding-system coding-system)
294 (set-keyboard-coding-system coding-system) 295 (progn
295 (setq current-input-method-title terminal) 296 (set-keyboard-coding-system coding-system)
296 (encoded-kbd-mode t)) 297 (encoded-kbd-mode 1))
298 (set-keyboard-coding-system nil)
299 (encoded-kbd-mode 0)))
297 300
298 ;;; encoded-kb.el ends here 301 ;;; encoded-kb.el ends here