Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-init.el @ 159:3bb7ccffb0c0 r20-3b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b6
author cvs
date Mon, 13 Aug 2007 09:41:43 +0200
parents 43dd3413c7c7
children acd284d43ca1
comparison
equal deleted inserted replaced
158:558dfa75ffb3 159:3bb7ccffb0c0
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) 48 ;; MULE keymap codes were moved to mule-cmds.el.
49 ;; "Keymap for Mule specific commands.")
50 ;; (fset 'mule-prefix mule-keymap)
51
52 ;; (define-key ctl-x-map "\C-n" 'mule-prefix)
53 49
54 ;; Alternative key definitions 50 ;; Alternative key definitions
55 ;; Original mapping will be altered by set-keyboard-coding-system. 51 ;; Original mapping will be altered by set-keyboard-coding-system.
56 (define-key global-map [(meta \#)] 'ispell-word) ;originally "$" 52 (define-key global-map [(meta \#)] 'ispell-word) ;originally "$"
57 ;; (define-key global-map [(meta {)] 'insert-parentheses) ;originally "(" 53 ;; (define-key global-map [(meta {)] 'insert-parentheses) ;originally "("
66 (setq-default modeline-format 62 (setq-default modeline-format
67 (cons (purecopy "") 63 (cons (purecopy "")
68 (cons 'modeline-multibyte-status 64 (cons 'modeline-multibyte-status
69 (cdr modeline-format)))) 65 (cdr modeline-format))))
70 66
71 ;; (define-key mule-keymap "f" 'set-buffer-file-coding-system) 67 ;; MULE keymap codes were moved to mule-cmds.el.
72 ;; (define-key mule-keymap "i" 'set-keyboard-coding-system)
73 ;; (define-key mule-keymap "d" 'set-terminal-coding-system)
74 ;; (define-key mule-keymap "p" 'set-current-process-coding-system)
75 ;; (define-key mule-keymap "F" 'set-default-buffer-file-coding-system)
76 ;; (define-key mule-keymap "P" 'set-default-process-coding-system)
77 ;; (define-key mule-keymap "c" 'list-coding-system-briefly)
78 ;; (define-key mule-keymap "C" 'list-coding-system)
79 ;; (define-key mule-keymap "r" 'toggle-display-direction)
80 68
81 (define-key help-map "T" 'help-with-tutorial-for-mule) 69 (define-key help-map "T" 'help-with-tutorial-for-mule)
82 70
83 (defvar help-with-tutorial-language-alist 71 (defvar help-with-tutorial-language-alist
84 '(("Japanese" . ".jp") 72 '(("Japanese" . ".jp")