Mercurial > hg > xemacs-beta

comparison lisp/coding.el @ 357:4711e16a8e49 r21-1-8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-8
author cvs
date Mon, 13 Aug 2007 10:57:04 +0200
parents 405dd6d1825b
children 7347b34c275b
comparison
equal deleted inserted replaced
356:e85f639a32f3 357:4711e16a8e49
113 (defun set-terminal-coding-system (coding-system) 113 (defun set-terminal-coding-system (coding-system)
114 "Set the coding system used for TTY display output. Currently broken." 114 "Set the coding system used for TTY display output. Currently broken."
115 (interactive "zterminal-coding-system: ") 115 (interactive "zterminal-coding-system: ")
116 (get-coding-system coding-system) ; correctness check 116 (get-coding-system coding-system) ; correctness check
117 (setq terminal-coding-system coding-system) 117 (setq terminal-coding-system coding-system)
118 (set-console-tty-coding-system (device-console) terminal-coding-system) 118 ; #### should this affect all current tty consoles ?
119 (if (eq (device-type) 'tty)
120 (set-console-tty-coding-system (device-console) terminal-coding-system))
119 (redraw-modeline t)) 121 (redraw-modeline t))
120 122
121 (defun set-pathname-coding-system (coding-system) 123 (defun set-pathname-coding-system (coding-system)
122 "Set the coding system used for file system path names." 124 "Set the coding system used for file system path names."
123 (interactive "zPathname-coding-system: ") 125 (interactive "zPathname-coding-system: ")