/[emacs]/emacs/lisp/international/mule-cmds.el
ViewVC logotype

Diff of /emacs/lisp/international/mule-cmds.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.243 by miles, Mon Sep 1 15:45:28 2003 UTC revision 1.244 by fx, Mon Sep 1 18:14:22 2003 UTC
# Line 1  Line 1 
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.
# Line 887  one of the following safe coding systems Line 887  one of the following safe coding systems
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)))
# Line 1800  specifies the character set for the majo Line 1800  specifies the character set for the majo
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,
# Line 1808  specifies the character set for the majo Line 1808  specifies the character set for the majo
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)

Legend:
Removed from v.1.243  
changed lines
  Added in v.1.244

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26