Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-init.el @ 110:fe104dbd9147 r20-1b7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-1b7
author cvs
date Mon, 13 Aug 2007 09:19:45 +0200
parents cf808b4c4290
children cca96a509cfe
comparison
equal deleted inserted replaced
109:e183fc049578 110:fe104dbd9147
28 ;;; `set-primary-environment'. For instance, 28 ;;; `set-primary-environment'. For instance,
29 ;;; (set-primary-environment 'chinese) 29 ;;; (set-primary-environment 'chinese)
30 ;;; makes Chinese the primary environment. 30 ;;; makes Chinese the primary environment.
31 ;;; If you are still not satisfied with the settings, you can 31 ;;; If you are still not satisfied with the settings, you can
32 ;;; override them after the above line. For instance, 32 ;;; override them after the above line. For instance,
33 ;;; (set-default-file-coding-system 'big5) 33 ;;; (set-default-buffer-file-coding-system 'big5)
34 ;;; makes big5 be used for file I/O by default. 34 ;;; makes big5 be used for file I/O by default.
35 ;;; If you are not satisfied with other default settings in this file, 35 ;;; If you are not satisfied with other default settings in this file,
36 ;;; override any of them also in `./lisp/site-init.el'. For instance, 36 ;;; override any of them also in `./lisp/site-init.el'. For instance,
37 ;;; (define-program-coding-system nil ".*mail.*" 'iso-8859-1) 37 ;;; (define-program-coding-system nil ".*mail.*" 'iso-8859-1)
38 ;;; makes the coding-system 'iso-8859-1 be used in mail. 38 ;;; makes the coding-system 'iso-8859-1 be used in mail.
65 (setq-default modeline-format 65 (setq-default modeline-format
66 (cons (purecopy "") 66 (cons (purecopy "")
67 (cons 'modeline-multibyte-status 67 (cons 'modeline-multibyte-status
68 (cdr modeline-format)))) 68 (cdr modeline-format))))
69 69
70 (define-key mule-keymap "f" 'set-file-coding-system) 70 (define-key mule-keymap "f" 'set-buffer-file-coding-system)
71 (define-key mule-keymap "i" 'set-keyboard-coding-system) 71 (define-key mule-keymap "i" 'set-keyboard-coding-system)
72 (define-key mule-keymap "d" 'set-terminal-coding-system) 72 (define-key mule-keymap "d" 'set-terminal-coding-system)
73 (define-key mule-keymap "p" 'set-current-process-coding-system) 73 (define-key mule-keymap "p" 'set-current-process-coding-system)
74 (define-key mule-keymap "F" 'set-default-file-coding-system) 74 (define-key mule-keymap "F" 'set-default-buffer-file-coding-system)
75 (define-key mule-keymap "P" 'set-default-process-coding-system) 75 (define-key mule-keymap "P" 'set-default-process-coding-system)
76 (define-key mule-keymap "c" 'list-coding-system-briefly) 76 (define-key mule-keymap "c" 'list-coding-system-briefly)
77 (define-key mule-keymap "C" 'list-coding-system) 77 (define-key mule-keymap "C" 'list-coding-system)
78 (define-key mule-keymap "r" 'toggle-display-direction) 78 (define-key mule-keymap "r" 'toggle-display-direction)
79 79