(latin1-char-displayable-p): Add leading "-" for X font pattern.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index afba62e8bd333e0a80259b34693d00d1f3012033..7730044ade28994bbc3388aa26cc47558bdd8db7 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2001-03-26  Miles Bader  <miles@gnu.org>
+
+       * international/latin1-disp.el (latin1-char-displayable-p): Add
+       leading "-" for X font pattern.
+
 2001-03-26  Kenichi Handa  <handa@etl.go.jp>
 
        * international/mule-diag.el (describe-coding-system): For

diff --git a/lisp/international/latin1-disp.el b/lisp/international/latin1-disp.el
index 49678cc95184b4ce47f76f1618d15ae0b3f81ca5..7c2abed603a6f1c8664d289ef0d0850f81e636f5 100644 (file)
--- a/lisp/international/latin1-disp.el
+++ b/lisp/international/latin1-disp.el
@@ -1,6 +1,6 @@
 ;;; latin1-disp.el --- display tables for other ISO 8859 on Latin-1 terminals -*- coding: emacs-mule -*-
 
-;; Copyright (C) 2000 Free Software Foundation, Inc.
+;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
 
 ;; Author: Dave Love <fx@gnu.org>
 ;; Keywords: i18n
@@ -181,7 +181,8 @@ character set: `latin-2', `hebrew' etc."
                 ;; Now FONT-PATTERN is a string or a cons of family
                 ;; field pattern and registry field pattern.
                 (or (stringp font-pattern)
-                    (setq font-pattern (concat (or (car font-pattern) "*")
+                    (setq font-pattern (concat "-"
+                                               (or (car font-pattern) "*")
                                                "-*-"
                                                (cdr font-pattern))))
                 (x-list-fonts font-pattern 'default (selected-frame) 1)))))