Mercurial > hg > xemacs-beta

comparison lisp/coding.el @ 4478:ec442dc06fe1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge.
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 10 Jul 2008 23:37:52 +0200
parents e34711681f30
children 46ddeaa7c738
comparison
equal deleted inserted replaced
4476:dbf79a1732ba 4478:ec442dc06fe1
106 (defsubst terminal-coding-system () 106 (defsubst terminal-coding-system ()
107 "Return coding-system of your terminal." 107 "Return coding-system of your terminal."
108 terminal-coding-system) 108 terminal-coding-system)
109 109
110 (defun set-terminal-coding-system (coding-system) 110 (defun set-terminal-coding-system (coding-system)
111 "Set the coding system used for TTY display output. Currently broken." 111 "Set the coding system used for TTY display output."
112 (interactive "zterminal-coding-system: ") 112 (interactive "zterminal-coding-system: ")
113 (get-coding-system coding-system) ; correctness check 113 (get-coding-system coding-system) ; correctness check
114 (setq terminal-coding-system coding-system) 114 (setq terminal-coding-system coding-system)
115 ; #### should this affect all current tty consoles ? 115 ; #### should this affect all current tty consoles ?
116 (if (eq (device-type) 'tty) 116 (if (eq (device-type) 'tty)