Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-init.el @ 155:43dd3413c7c7 r20-3b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b4
author cvs
date Mon, 13 Aug 2007 09:39:39 +0200
parents cca96a509cfe
children 3bb7ccffb0c0
comparison
equal deleted inserted replaced
154:94141801dd7e 155:43dd3413c7c7
43 43
44 44
45 (setq language-environment-list 45 (setq language-environment-list
46 (sort (language-environment-list) 'string-lessp)) 46 (sort (language-environment-list) 'string-lessp))
47 47
48 (defvar mule-keymap (make-sparse-keymap) "Keymap for Mule specific commands.") 48 ;; (defvar mule-keymap (make-sparse-keymap)
49 (fset 'mule-prefix mule-keymap) 49 ;; "Keymap for Mule specific commands.")
50 ;; (fset 'mule-prefix mule-keymap)
50 51
51 (define-key ctl-x-map "\C-n" 'mule-prefix) 52 ;; (define-key ctl-x-map "\C-n" 'mule-prefix)
52 53
53 ;; Alternative key definitions 54 ;; Alternative key definitions
54 ;; Original mapping will be altered by set-keyboard-coding-system. 55 ;; Original mapping will be altered by set-keyboard-coding-system.
55 (define-key global-map [(meta \#)] 'ispell-word) ;originally "$" 56 (define-key global-map [(meta \#)] 'ispell-word) ;originally "$"
56 ;; (define-key global-map [(meta {)] 'insert-parentheses) ;originally "(" 57 ;; (define-key global-map [(meta {)] 'insert-parentheses) ;originally "("
65 (setq-default modeline-format 66 (setq-default modeline-format
66 (cons (purecopy "") 67 (cons (purecopy "")
67 (cons 'modeline-multibyte-status 68 (cons 'modeline-multibyte-status
68 (cdr modeline-format)))) 69 (cdr modeline-format))))
69 70
70 (define-key mule-keymap "f" 'set-buffer-file-coding-system) 71 ;; (define-key mule-keymap "f" 'set-buffer-file-coding-system)
71 (define-key mule-keymap "i" 'set-keyboard-coding-system) 72 ;; (define-key mule-keymap "i" 'set-keyboard-coding-system)
72 (define-key mule-keymap "d" 'set-terminal-coding-system) 73 ;; (define-key mule-keymap "d" 'set-terminal-coding-system)
73 (define-key mule-keymap "p" 'set-current-process-coding-system) 74 ;; (define-key mule-keymap "p" 'set-current-process-coding-system)
74 (define-key mule-keymap "F" 'set-default-buffer-file-coding-system) 75 ;; (define-key mule-keymap "F" 'set-default-buffer-file-coding-system)
75 (define-key mule-keymap "P" 'set-default-process-coding-system) 76 ;; (define-key mule-keymap "P" 'set-default-process-coding-system)
76 (define-key mule-keymap "c" 'list-coding-system-briefly) 77 ;; (define-key mule-keymap "c" 'list-coding-system-briefly)
77 (define-key mule-keymap "C" 'list-coding-system) 78 ;; (define-key mule-keymap "C" 'list-coding-system)
78 (define-key mule-keymap "r" 'toggle-display-direction) 79 ;; (define-key mule-keymap "r" 'toggle-display-direction)
79 80
80 (define-key help-map "T" 'help-with-tutorial-for-mule) 81 (define-key help-map "T" 'help-with-tutorial-for-mule)
81 82
82 (defvar help-with-tutorial-language-alist 83 (defvar help-with-tutorial-language-alist
83 '(("Japanese" . ".jp") 84 '(("Japanese" . ".jp")