Mercurial > hg > xemacs-beta

comparison lisp/coding.el @ 416:ebe98a74bd68 r21-2-16

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-16
author cvs
date Mon, 13 Aug 2007 11:22:23 +0200
parents 697ef44129c6
children
comparison
equal deleted inserted replaced
415:a27f76b40c83 416:ebe98a74bd68
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: ")
202 (copy-coding-system 'undecided 'iso-8859-2))) 204 (copy-coding-system 'undecided 'iso-8859-2)))
203 205
204 ;; compatibility for old XEmacsen (don't use it) 206 ;; compatibility for old XEmacsen (don't use it)
205 (copy-coding-system 'undecided 'automatic-conversion) 207 (copy-coding-system 'undecided 'automatic-conversion)
206 208
207 (copy-coding-system 'no-conversion 'raw-text)
208
209 (make-compatible-variable 'enable-multibyte-characters "Unimplemented") 209 (make-compatible-variable 'enable-multibyte-characters "Unimplemented")
210 210
211 (define-obsolete-variable-alias 211 (define-obsolete-variable-alias
212 'pathname-coding-system 'file-name-coding-system) 212 'pathname-coding-system 'file-name-coding-system)
213 213