Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-cmds.el @ 361:7347b34c275b r21-1-10

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-10
author cvs
date Mon, 13 Aug 2007 10:58:40 +0200
parents 7c94d56991e1
children a4f53d9b3154
comparison
equal deleted inserted replaced
360:0f00b38cfccb 361:7347b34c275b
92 o default coding system for subprocess I/O" 92 o default coding system for subprocess I/O"
93 (check-coding-system coding-system) 93 (check-coding-system coding-system)
94 ;;(setq-default buffer-file-coding-system coding-system) 94 ;;(setq-default buffer-file-coding-system coding-system)
95 (set-default-buffer-file-coding-system coding-system) 95 (set-default-buffer-file-coding-system coding-system)
96 ;;(setq default-terminal-coding-system coding-system) 96 ;;(setq default-terminal-coding-system coding-system)
97 (setq terminal-coding-system coding-system) 97 (set-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 (set-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)