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

2 files changed, 8 insertions, 2 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index afba62e8bd3..7730044ade2 100644
--- 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 49678cc9518..7c2abed603a 100644
--- 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)))))