Mercurial > hg > xemacs-beta

comparison lisp/mule/mule-cmds.el @ 442:abe6d1db359e r21-2-36

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-36
author cvs
date Mon, 13 Aug 2007 11:35:02 +0200
parents 8de8e3f6228a
children 576fb035e263
comparison
equal deleted inserted replaced
441:72a7cfa4a488 442:abe6d1db359e
45 ;;(define-key mule-keymap "c" 'list-coding-system-briefly) ; XEmacs 45 ;;(define-key mule-keymap "c" 'list-coding-system-briefly) ; XEmacs
46 (define-key mule-keymap "C" 'describe-coding-system) ; XEmacs 46 (define-key mule-keymap "C" 'describe-coding-system) ; XEmacs
47 (define-key mule-keymap "r" 'toggle-display-direction) ; XEmacs 47 (define-key mule-keymap "r" 'toggle-display-direction) ; XEmacs
48 (define-key mule-keymap "l" 'set-language-environment) 48 (define-key mule-keymap "l" 'set-language-environment)
49 49
50 (define-key help-map "\C-L" 'describe-language-support)
51 (define-key help-map "L" 'describe-language-environment) 50 (define-key help-map "L" 'describe-language-environment)
52 (define-key help-map "\C-\\" 'describe-input-method) 51 (define-key help-map "\C-\\" 'describe-input-method)
53 (define-key help-map "I" 'describe-input-method) 52 (define-key help-map "I" 'describe-input-method)
54 (define-key help-map "C" 'describe-coding-system)
55 (define-key help-map "h" 'view-hello-file) 53 (define-key help-map "h" 'view-hello-file)
56 54
57 ;; Menu for XEmacs were moved to menubar-items.el. 55 ;; Menu for XEmacs were moved to menubar-items.el.
58 56
59 57
97 coding-system 95 coding-system
98 (coding-system-property coding-system eol-type)) 96 (coding-system-property coding-system eol-type))
99 (let ((base (coding-system-base coding-system))) 97 (let ((base (coding-system-base coding-system)))
100 (if (not eol-type) 98 (if (not eol-type)
101 base 99 base
102 (if (= eol-type orig-eol-type) 100 (if (eq eol-type orig-eol-type)
103 coding-system 101 coding-system
104 (setq orig-eol-type (coding-system-eol-type base)) 102 (setq orig-eol-type (coding-system-eol-type base))
105 (if (null orig-eol-type) 103 (if (null orig-eol-type)
106 (coding-system-property base eol-type)))))))) 104 (coding-system-property base eol-type))))))))
107 105
162 ;; (setq default-file-name-coding-system coding-system)) 160 ;; (setq default-file-name-coding-system coding-system))
163 ;; If coding-system is nil, honor that on MS-DOS as well, so 161 ;; If coding-system is nil, honor that on MS-DOS as well, so
164 ;; that they could reset the terminal coding system. 162 ;; that they could reset the terminal coding system.
165 ;; (unless (and (eq window-system 'pc) coding-system) 163 ;; (unless (and (eq window-system 'pc) coding-system)
166 ;; (setq default-terminal-coding-system coding-system)) 164 ;; (setq default-terminal-coding-system coding-system))
167 (setq terminal-coding-system coding-system) 165 (set-terminal-coding-system coding-system)
168 ;;(setq default-keyboard-coding-system coding-system) 166 ;;(setq default-keyboard-coding-system coding-system)
169 (setq keyboard-coding-system coding-system) 167 (set-keyboard-coding-system coding-system)
170 ;;(setq default-process-coding-system (cons coding-system coding-system)) 168 ;;(setq default-process-coding-system (cons coding-system coding-system))
171 ;; Refer to coding-system-for-read and coding-system-for-write 169 ;; Refer to coding-system-for-read and coding-system-for-write
172 ;; so that C-x RET c works. 170 ;; so that C-x RET c works.
173 (add-hook 'comint-exec-hook 171 (add-hook 'comint-exec-hook
174 `(lambda () 172 `(lambda ()
611 ;; (cons lang-env 'describe-specified-language-support) t) 609 ;; (cons lang-env 'describe-specified-language-support) t)
612 (when (featurep 'menubar) 610 (when (featurep 'menubar)
613 (eval-after-load 611 (eval-after-load
614 "menubar-items.elc" 612 "menubar-items.elc"
615 `(add-menu-button 613 `(add-menu-button
616 '("Mule" "Describe Language Support") 614 '("%_Edit" "%_Multilingual (\"Mule\")"
615 "%_Describe Language Support")
617 (vector ,lang-env 616 (vector ,lang-env
618 '(describe-language-environment ,lang-env) 617 '(describe-language-environment ,lang-env)
619 t)))) 618 t))))
620 )) 619 ))
621 ;; (define-key-after setup-map (vector (intern lang-env)) 620 ;; (define-key-after setup-map (vector (intern lang-env))
622 ;; (cons lang-env 'setup-specified-language-environment) t) 621 ;; (cons lang-env 'setup-specified-language-environment) t)
623 (when (featurep 'menubar) 622 (when (featurep 'menubar)
624 (eval-after-load 623 (eval-after-load
625 "menubar-items.elc" 624 "menubar-items.elc"
626 `(add-menu-button 625 `(add-menu-button
627 '("Mule" "Set Language Environment") 626 '("%_Edit" "%_Multilingual (\"Mule\")"
627 "%_Set Language Environment")
628 (vector ,lang-env 628 (vector ,lang-env
629 '(set-language-environment ,lang-env) 629 '(set-language-environment ,lang-env)
630 t)))) 630 t))))
631 631
632 (while alist 632 (while alist
633 (set-language-info lang-env (car (car alist)) (cdr (car alist))) 633 (set-language-info lang-env (car (car alist)) (cdr (car alist)))
634 (setq alist (cdr alist))))) 634 (setq alist (cdr alist)))))
635 635
636 (defun read-language-name (key prompt &optional default) 636 (defun read-language-name (key prompt &optional default)
994 or candidate translations corresponding to the sequence, 994 or candidate translations corresponding to the sequence,
995 at point in the current buffer. 995 at point in the current buffer.
996 But, if this flag is non-nil, it displays them in echo area instead.") 996 But, if this flag is non-nil, it displays them in echo area instead.")
997 997
998 (defvar input-method-exit-on-invalid-key nil 998 (defvar input-method-exit-on-invalid-key nil
999 "This flag controls the behaviour of an input method on invalid key input. 999 "This flag controls the behavior of an input method on invalid key input.
1000 Usually, when a user types a key which doesn't start any character 1000 Usually, when a user types a key which doesn't start any character
1001 handled by the input method, the key is handled by turning off the 1001 handled by the input method, the key is handled by turning off the
1002 input method temporarily. After that key, the input method is re-enabled. 1002 input method temporarily. After that key, the input method is re-enabled.
1003 But, if this flag is non-nil, the input method is never back on.") 1003 But, if this flag is non-nil, the input method is never back on.")
1004 1004