Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-cmds.el @ 438:84b14dcb0985 r21-2-27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-27
author cvs
date Mon, 13 Aug 2007 11:32:25 +0200
parents 3ecd8885ac67
children 8de8e3f6228a
comparison
equal deleted inserted replaced
437:e2a4e8b94b82 438:84b14dcb0985
166 ;; (setq default-terminal-coding-system coding-system)) 166 ;; (setq default-terminal-coding-system coding-system))
167 (setq terminal-coding-system coding-system) 167 (setq terminal-coding-system coding-system)
168 ;;(setq default-keyboard-coding-system coding-system) 168 ;;(setq default-keyboard-coding-system coding-system)
169 (setq keyboard-coding-system coding-system) 169 (setq keyboard-coding-system coding-system)
170 ;;(setq default-process-coding-system (cons coding-system coding-system)) 170 ;;(setq default-process-coding-system (cons coding-system coding-system))
171 ;; Refer to coding-system-for-read and coding-system-for-write
172 ;; so that C-x RET c works.
171 (add-hook 'comint-exec-hook 173 (add-hook 'comint-exec-hook
172 `(lambda () 174 `(lambda ()
173 (let ((proc (get-buffer-process (current-buffer)))) 175 (let ((proc (get-buffer-process (current-buffer))))
174 (set-process-input-coding-system proc ',coding-system) 176 (set-process-input-coding-system
175 (set-process-output-coding-system proc ',coding-system))) 177 proc (or coding-system-for-read ',coding-system))
178 (set-process-output-coding-system
179 proc (or coding-system-for-write ',coding-system))))
176 'append) 180 'append)
177 (setq file-name-coding-system coding-system)) 181 (setq file-name-coding-system coding-system))
178 182
179 (defun prefer-coding-system (coding-system) 183 (defun prefer-coding-system (coding-system)
180 "Add CODING-SYSTEM at the front of the priority list for automatic detection. 184 "Add CODING-SYSTEM at the front of the priority list for automatic detection.