Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-cmds.el @ 404:2f8bb876ab1d r21-2-32

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-32
author cvs
date Mon, 13 Aug 2007 11:16:07 +0200
parents a86b2b5e0111
children b8cc9ab3f761
comparison
equal deleted inserted replaced
403:9f011ab08d48 404:2f8bb876ab1d
160 ;; (setq default-file-name-coding-system coding-system)) 160 ;; (setq default-file-name-coding-system coding-system))
161 ;; If coding-system is nil, honor that on MS-DOS as well, so 161 ;; If coding-system is nil, honor that on MS-DOS as well, so
162 ;; that they could reset the terminal coding system. 162 ;; that they could reset the terminal coding system.
163 ;; (unless (and (eq window-system 'pc) coding-system) 163 ;; (unless (and (eq window-system 'pc) coding-system)
164 ;; (setq default-terminal-coding-system coding-system)) 164 ;; (setq default-terminal-coding-system coding-system))
165 (setq terminal-coding-system coding-system) 165 (set-terminal-coding-system coding-system)
166 ;;(setq default-keyboard-coding-system coding-system) 166 ;;(setq default-keyboard-coding-system coding-system)
167 (setq keyboard-coding-system coding-system) 167 (set-keyboard-coding-system coding-system)
168 ;;(setq default-process-coding-system (cons coding-system coding-system)) 168 ;;(setq default-process-coding-system (cons coding-system coding-system))
169 ;; Refer to coding-system-for-read and coding-system-for-write 169 ;; Refer to coding-system-for-read and coding-system-for-write
170 ;; so that C-x RET c works. 170 ;; so that C-x RET c works.
171 (add-hook 'comint-exec-hook 171 (add-hook 'comint-exec-hook
172 `(lambda () 172 `(lambda ()