aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman2003-06-28 11:54:47 +0000
committerRichard M. Stallman2003-06-28 11:54:47 +0000
commit821917cfe13a456b41730a80f15db07b78d10fe9 (patch)
treec166185746f935870e9af87503ac227823e737bd
parent3f9f1c1fba5a86d29330d2128e8d41b25be9541a (diff)
downloademacs-821917cfe13a456b41730a80f15db07b78d10fe9.tar.gz
emacs-821917cfe13a456b41730a80f15db07b78d10fe9.zip
(mule-menu-keymap): Delete mouse-set-fonts item here.
-rw-r--r--lisp/international/mule-cmds.el9
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)