Mercurial > hg > xemacs-beta

comparison lisp/coding.el @ 361:7347b34c275b r21-1-10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-10
author cvs
date Mon, 13 Aug 2007 10:58:40 +0200
parents 4711e16a8e49
children cc15677e0335
comparison
equal deleted inserted replaced
360:0f00b38cfccb 361:7347b34c275b
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: ")