[Emacs-diffs] Changes to emacs/lisp/international/mule-cmds.el

[Dave Love]

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