Mercurial > emacs
comparison lisp/international/mule-cmds.el @ 51688:a5090ef2f76b
(mule-menu-keymap): Delete mouse-set-fonts item here.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Sat, 28 Jun 2003 11:54:47 +0000 |
parents | f4620c9305c7 |
children | 0012fe6ed043 |
comparison
equal
deleted
inserted
replaced
51687:64b052fa52ff | 51688:a5090ef2f76b |
---|---|
62 (make-sparse-keymap "Set Coding System")) | 62 (make-sparse-keymap "Set Coding System")) |
63 | 63 |
64 (define-key-after mule-menu-keymap [set-language-environment] | 64 (define-key-after mule-menu-keymap [set-language-environment] |
65 (list 'menu-item "Set Language Environment" setup-language-environment-map | 65 (list 'menu-item "Set Language Environment" setup-language-environment-map |
66 :help "Multilingual environment suitable for a specific language")) | 66 :help "Multilingual environment suitable for a specific language")) |
67 (define-key-after menu-bar-options-menu [mouse-set-font] | |
68 '(menu-item "Set Font/Fontset" mouse-set-font | |
69 :visible (fboundp 'generate-fontset-menu) | |
70 :help "Select a font from list of known fonts/fontsets")) | |
71 (define-key-after mule-menu-keymap [separator-mule] | 67 (define-key-after mule-menu-keymap [separator-mule] |
72 '("--") | 68 '("--") |
73 t) | 69 t) |
74 (define-key-after mule-menu-keymap [toggle-input-method] | 70 (define-key-after mule-menu-keymap [toggle-input-method] |
75 '(menu-item "Toggle Input Method" toggle-input-method) | 71 '(menu-item "Toggle Input Method" toggle-input-method) |
1686 (defun set-display-table-and-terminal-coding-system (language-name) | 1682 (defun set-display-table-and-terminal-coding-system (language-name) |
1687 "Set up the display table and terminal coding system for LANGUAGE-NAME." | 1683 "Set up the display table and terminal coding system for LANGUAGE-NAME." |
1688 (let ((coding (get-language-info language-name 'unibyte-display))) | 1684 (let ((coding (get-language-info language-name 'unibyte-display))) |
1689 (if coding | 1685 (if coding |
1690 (standard-display-european-internal) | 1686 (standard-display-european-internal) |
1687 <<<<<<< mule-cmds.el | |
1688 (dotimes (i 128) | |
1689 (aset standard-display-table (+ i 128) nil)) | |
1690 ======= | |
1691 ;; The following 2 lines undo the 8-bit display that we set up | 1691 ;; The following 2 lines undo the 8-bit display that we set up |
1692 ;; in standard-display-european-internal, which see. This is in | 1692 ;; in standard-display-european-internal, which see. This is in |
1693 ;; case the user has used standard-display-european earlier in | 1693 ;; case the user has used standard-display-european earlier in |
1694 ;; this session. (The MS-DOS port doesn't use that setup, so it | 1694 ;; this session. (The MS-DOS port doesn't use that setup, so it |
1695 ;; doesn't need to undo it.) | 1695 ;; doesn't need to undo it.) |
1696 >>>>>>> 1.234 | |
1696 (standard-display-default (if (eq window-system 'pc) 128 160) 255) | 1697 (standard-display-default (if (eq window-system 'pc) 128 160) 255) |
1697 (aset standard-display-table 146 nil)) | 1698 (aset standard-display-table 146 nil)) |
1698 (or (eq window-system 'pc) | 1699 (or (eq window-system 'pc) |
1699 (set-terminal-coding-system coding)))) | 1700 (set-terminal-coding-system coding)))) |
1700 | 1701 |