Mercurial > hg > xemacs-beta

comparison lisp/coding.el @ 404:2f8bb876ab1d r21-2-32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-32
author cvs
date Mon, 13 Aug 2007 11:16:07 +0200
parents 74fd4e045ea6
children 697ef44129c6
comparison
equal deleted inserted replaced
403:9f011ab08d48 404:2f8bb876ab1d
102 (defun set-keyboard-coding-system (coding-system) 102 (defun set-keyboard-coding-system (coding-system)
103 "Set the coding system used for TTY keyboard input. Currently broken." 103 "Set the coding system used for TTY keyboard input. Currently broken."
104 (interactive "zkeyboard-coding-system: ") 104 (interactive "zkeyboard-coding-system: ")
105 (get-coding-system coding-system) ; correctness check 105 (get-coding-system coding-system) ; correctness check
106 (setq keyboard-coding-system coding-system) 106 (setq keyboard-coding-system coding-system)
107 (if (eq (device-type) 'tty)
108 (set-console-tty-input-coding-system
109 (device-console) keyboard-coding-system))
107 (redraw-modeline t)) 110 (redraw-modeline t))
108 111
109 (defsubst terminal-coding-system () 112 (defsubst terminal-coding-system ()
110 "Return coding-system of your terminal." 113 "Return coding-system of your terminal."
111 terminal-coding-system) 114 terminal-coding-system)
115 (interactive "zterminal-coding-system: ") 118 (interactive "zterminal-coding-system: ")
116 (get-coding-system coding-system) ; correctness check 119 (get-coding-system coding-system) ; correctness check
117 (setq terminal-coding-system coding-system) 120 (setq terminal-coding-system coding-system)
118 ; #### should this affect all current tty consoles ? 121 ; #### should this affect all current tty consoles ?
119 (if (eq (device-type) 'tty) 122 (if (eq (device-type) 'tty)
120 (set-console-tty-coding-system (device-console) terminal-coding-system)) 123 (set-console-tty-output-coding-system
124 (device-console) terminal-coding-system))
121 (redraw-modeline t)) 125 (redraw-modeline t))
122 126
123 (defun set-pathname-coding-system (coding-system) 127 (defun set-pathname-coding-system (coding-system)
124 "Set the coding system used for file system path names." 128 "Set the coding system used for file system path names."
125 (interactive "zPathname-coding-system: ") 129 (interactive "zPathname-coding-system: ")