[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
fixing quote display
fixing quote display
Wed, 20 Aug 2003 20:20:15 +0100
Gnus/5.1003 (Gnus v5.10.3) Emacs/21.2 (gnu/linux)
The XFree86 4 fonts are annoying, and I've had to operate recently on
systems where I hadn't fixed them up. I think this change is the best
solution. I think such a system should always be able to display the
`' characters, but I'm not sure, so I haven't installed it.
[Removing the emacs-mule code for NBSP is incidental, but means it
works in Emacs 22 too.]
RCS file: /cvsroot/emacs/emacs/lisp/international/mule-cmds.el,v
retrieving revision 1.242
diff -u -p -r1.242 mule-cmds.el
--- international/mule-cmds.el 21 Jul 2003 09:54:34 -0000 1.242
+++ international/mule-cmds.el 20 Aug 2003 19:09:15 -0000
@@ -1,4 +1,4 @@
-;;; mule-cmds.el --- commands for mulitilingual environment
+;;; mule-cmds.el --- commands for mulitilingual environment -*-coding:
;; Copyright (C) 1995, 2003 Electrotechnical Laboratory, JAPAN.
;; Licensed to the Free Software Foundation.
;; Copyright (C) 2000, 2001, 2002, 2003 Free Software Foundation, Inc.
@@ -1800,7 +1809,7 @@ specifies the character set for the majo
(aset standard-display-table 160 )
;; With luck, non-Latin-1 fonts are more recent and so don't
;; have this bug.
- (aset standard-display-table 2208 ) ; Latin-1 NBSP
+ (aset standard-display-table (make-char 'latin-iso8859-1 160) )
;; 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,7 +1817,21 @@ specifies the character set for the majo
;; 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 ))))
+ (aset standard-display-table 146 )
+ ;; 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)
+ (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)
(defun set-language-environment-coding-systems (language-name
|[Prev in Thread]
||[Next in Thread]|
- fixing quote display,
Dave Love <=