;;(setq default-keyboard-coding-system coding-system)
(setq keyboard-coding-system coding-system)
;;(setq default-process-coding-system (cons coding-system coding-system))
+ ;; Refer to coding-system-for-read and coding-system-for-write
+ ;; so that C-x RET c works.
(add-hook 'comint-exec-hook
`(lambda ()
(let ((proc (get-buffer-process (current-buffer))))
- (set-process-input-coding-system proc ',coding-system)
- (set-process-output-coding-system proc ',coding-system)))
+ (set-process-input-coding-system
+ proc (or coding-system-for-read ',coding-system))
+ (set-process-output-coding-system
+ proc (or coding-system-for-write ',coding-system))))
'append)
(setq file-name-coding-system coding-system))
(input-method (completing-read prompt input-method-alist
nil t nil 'input-method-history
default)))
+ (if (and input-method (symbolp input-method))
+ (setq input-method (symbol-name input-method)))
(if (> (length input-method) 0)
input-method
(if inhibit-null