1 |
;;; mule-cmds.el --- commands for mulitilingual environment |
;;; mule-cmds.el --- commands for mulitilingual environment -*-coding: iso-2022-7bit -*- |
2 |
;; Copyright (C) 1995, 2003 Electrotechnical Laboratory, JAPAN. |
;; Copyright (C) 1995, 2003 Electrotechnical Laboratory, JAPAN. |
3 |
;; Licensed to the Free Software Foundation. |
;; Licensed to the Free Software Foundation. |
4 |
;; Copyright (C) 2000, 2001, 2002, 2003 Free Software Foundation, Inc. |
;; Copyright (C) 2000, 2001, 2002, 2003 Free Software Foundation, Inc. |
887 |
(insert "\n") |
(insert "\n") |
888 |
(fill-region-as-paragraph pos (point))) |
(fill-region-as-paragraph pos (point))) |
889 |
(insert "Or specify any other coding system |
(insert "Or specify any other coding system |
890 |
on your risk of losing the problematic characters.\n"))) |
at the risk of losing the problematic characters.\n"))) |
891 |
|
|
892 |
;; Read a coding system. |
;; Read a coding system. |
893 |
(setq default-coding-system (or (car safe) (car codings))) |
(setq default-coding-system (or (car safe) (car codings))) |
1800 |
(aset standard-display-table 160 [32]) |
(aset standard-display-table 160 [32]) |
1801 |
;; With luck, non-Latin-1 fonts are more recent and so don't |
;; With luck, non-Latin-1 fonts are more recent and so don't |
1802 |
;; have this bug. |
;; have this bug. |
1803 |
(aset standard-display-table 2208 [32]) ; Latin-1 NBSP |
(aset standard-display-table (make-char 'latin-iso8859-1 160) [32]) |
1804 |
;; Most Windows programs send out apostrophes as \222. Most X fonts |
;; Most Windows programs send out apostrophes as \222. Most X fonts |
1805 |
;; don't contain a character at that position. Map it to the ASCII |
;; don't contain a character at that position. Map it to the ASCII |
1806 |
;; apostrophe. [This is actually RIGHT SINGLE QUOTATION MARK, |
;; apostrophe. [This is actually RIGHT SINGLE QUOTATION MARK, |
1808 |
;; fonts probably have the appropriate glyph at this position, |
;; fonts probably have the appropriate glyph at this position, |
1809 |
;; so they could use standard-display-8bit. It's better to use a |
;; so they could use standard-display-8bit. It's better to use a |
1810 |
;; proper windows-1252 coding system. --fx] |
;; proper windows-1252 coding system. --fx] |
1811 |
(aset standard-display-table 146 [39])))) |
(aset standard-display-table 146 [39]) |
1812 |
|
;; XFree86 4 has changed most of the fonts from their designed |
1813 |
|
;; versions such that `' no longer appears as balanced quotes. |
1814 |
|
;; Assume it has iso10646 fonts installed, so we can display |
1815 |
|
;; balanced quotes. |
1816 |
|
(when (and (eq window-system 'x) |
1817 |
|
(string= "The XFree86 Project, Inc" (x-server-vendor)) |
1818 |
|
(> (aref (number-to-string (nth 2 (x-server-version))) 0) |
1819 |
|
?3)) |
1820 |
|
(aset standard-display-table ?' [?$,1ry(B]) |
1821 |
|
(aset standard-display-table ?` [?$,1rx(B]) |
1822 |
|
;; The fonts don't have the relevant bug. |
1823 |
|
(aset standard-display-table 160 nil) |
1824 |
|
(aset standard-display-table (make-char 'latin-iso8859-1 160) |
1825 |
|
nil))))) |
1826 |
|
|
1827 |
(defun set-language-environment-coding-systems (language-name |
(defun set-language-environment-coding-systems (language-name |
1828 |
&optional eol-type) |
&optional eol-type) |