(set-case-syntax-charset, set-case-syntax-1)

[bpt/emacs.git] / lisp / term / internal.el

diff --git a/lisp/term/internal.el b/lisp/term/internal.el
index 2c70762..1aa3c5b 100644 (file)
--- a/lisp/term/internal.el
+++ b/lisp/term/internal.el
@@ -183,7 +183,7 @@
        "*x" "<<" "~" "--" "(R)" "'-" "^o" "+-" "^2" "^3"
        "'" "u" ".P" "^." "'," "^1" "-:" ">>" "1/4" "1/2"
        "3/4" nil ":'" "v:" "-:" "-':" ".'" ".." "v'" "-'"
-       "-," "`." nil "\\." "(.)" "|'" "`-" nil "||" nil
+       "-," "`." nil "\\." "(.)" "|'" "`-" "`=" "||" nil
        nil "::" nil nil nil nil nil nil nil "LRO"
        "RLO" "PDF" nil "=2" "A+" "B+" "G+" "D+" "H+" "W+"
        "Z+" "X+" "Tj" "J+" "K%" "K+" "L+" "M%" "M+" "N%"
@@ -607,6 +607,9 @@ display tables, and the language environment options as appropriate."
      (setq default-terminal-coding-system (intern (concat cp
                                                          "-unix"))))
     (IT-display-table-setup cp)
+    ;; It's time: too many input methods in leim/quail produce
+    ;; Unicode characters.  Let the user see them.
+    (IT-setup-unicode-display)
     (prefer-coding-system (intern (concat cp "-dos")))
     (if default-enable-multibyte-characters
        ;; We want this in multibyte version only, since unibyte version
@@ -705,6 +708,9 @@ list.  You can (and should) also run it whenever the value of
       ;; Assume they support non-ASCII Latin characters like the IBM
       ;; codepage 437 does.
       (IT-display-table-setup "cp437")
+      ;; It's time: too many input methods in leim/quail produce
+      ;; Unicode characters.  Let the user see them.
+      (IT-setup-unicode-display)
       (prefer-coding-system coding-dos)
       (if default-enable-multibyte-characters
          (setq unibyte-display-via-language-environment t))