Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-cmds.el @ 209:41ff10fd062f r20-4b3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-4b3
author cvs
date Mon, 13 Aug 2007 10:04:58 +0200
parents e45d5e7c476e
children 78f53ef88e17
comparison
equal deleted inserted replaced
208:f427b8ec4379 209:41ff10fd062f
97 (setq terminal-coding-system coding-system) 97 (setq terminal-coding-system coding-system)
98 ;;(setq default-keyboard-coding-system coding-system) 98 ;;(setq default-keyboard-coding-system coding-system)
99 (setq keyboard-coding-system coding-system) 99 (setq keyboard-coding-system coding-system)
100 ;;(setq default-process-coding-system (cons coding-system coding-system)) 100 ;;(setq default-process-coding-system (cons coding-system coding-system))
101 (add-hook 'comint-exec-hook 101 (add-hook 'comint-exec-hook
102 (lambda () 102 `(lambda ()
103 (let ((proc (get-buffer-process (current-buffer)))) 103 (let ((proc (get-buffer-process (current-buffer))))
104 (set-process-input-coding-system proc coding-system) 104 (set-process-input-coding-system proc ',coding-system)
105 (set-process-output-coding-system proc coding-system) 105 (set-process-output-coding-system proc ',coding-system)))
106 ))) 106 'append)
107 (setq file-name-coding-system coding-system) 107 (setq file-name-coding-system coding-system))
108 )
109 108
110 (defun prefer-coding-system (coding-system) 109 (defun prefer-coding-system (coding-system)
111 "Add CODING-SYSTEM at the front of the priority list for automatic detection. 110 "Add CODING-SYSTEM at the front of the priority list for automatic detection.
112 This also sets the following coding systems to CODING-SYSTEM: 111 This also sets the following coding systems to CODING-SYSTEM:
113 o coding system of a newly created buffer 112 o coding system of a newly created buffer