aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-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)