Mercurial > hg > xemacs-beta

comparison lisp/coding.el @ 371:cc15677e0335 r21-2b1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b1
author cvs
date Mon, 13 Aug 2007 11:03:08 +0200
parents 7347b34c275b
children 74fd4e045ea6
comparison
equal deleted inserted replaced
370:bd866891f083 371:cc15677e0335
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))
110 (redraw-modeline t)) 107 (redraw-modeline t))
111 108
112 (defsubst terminal-coding-system () 109 (defsubst terminal-coding-system ()
113 "Return coding-system of your terminal." 110 "Return coding-system of your terminal."
114 terminal-coding-system) 111 terminal-coding-system)
116 (defun set-terminal-coding-system (coding-system) 113 (defun set-terminal-coding-system (coding-system)
117 "Set the coding system used for TTY display output. Currently broken." 114 "Set the coding system used for TTY display output. Currently broken."
118 (interactive "zterminal-coding-system: ") 115 (interactive "zterminal-coding-system: ")
119 (get-coding-system coding-system) ; correctness check 116 (get-coding-system coding-system) ; correctness check
120 (setq terminal-coding-system coding-system) 117 (setq terminal-coding-system coding-system)
121 ; #### should this affect all current tty consoles ? 118 (set-console-tty-coding-system (device-console) terminal-coding-system)
122 (if (eq (device-type) 'tty)
123 (set-console-tty-output-coding-system
124 (device-console) terminal-coding-system))
125 (redraw-modeline t)) 119 (redraw-modeline t))
126 120
127 (defun set-pathname-coding-system (coding-system) 121 (defun set-pathname-coding-system (coding-system)
128 "Set the coding system used for file system path names." 122 "Set the coding system used for file system path names."
129 (interactive "zPathname-coding-system: ") 123 (interactive "zPathname-coding-system: ")