diff options
| author | Richard M. Stallman | 2003-06-28 11:54:47 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2003-06-28 11:54:47 +0000 |
| commit | 821917cfe13a456b41730a80f15db07b78d10fe9 (patch) | |
| tree | c166185746f935870e9af87503ac227823e737bd | |
| parent | 3f9f1c1fba5a86d29330d2128e8d41b25be9541a (diff) | |
| download | emacs-821917cfe13a456b41730a80f15db07b78d10fe9.tar.gz emacs-821917cfe13a456b41730a80f15db07b78d10fe9.zip | |
(mule-menu-keymap): Delete mouse-set-fonts item here.
| -rw-r--r-- | lisp/international/mule-cmds.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/international/mule-cmds.el b/lisp/international/mule-cmds.el index b2306a954dc..b04d30ac3f4 100644 --- a/lisp/international/mule-cmds.el +++ b/lisp/international/mule-cmds.el | |||
| @@ -64,10 +64,6 @@ | |||
| 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) |
| @@ -1688,11 +1684,16 @@ The default status is as follows: | |||
| 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) |