# HG changeset patch
# User Miles Bader <miles@gnu.org>
# Date 985591075 0
# Node ID 1d714221177aee36ca94b1d115d0b66dad2f1286
# Parent  ce090eb0eddac918ff68472ed452a0e05a8f3c95
(latin1-char-displayable-p): Add leading "-" for X font pattern.

diff -r ce090eb0edda -r 1d714221177a lisp/international/latin1-disp.el
--- a/lisp/international/latin1-disp.el	Mon Mar 26 04:11:28 2001 +0000
+++ b/lisp/international/latin1-disp.el	Mon Mar 26 07:17:55 2001 +0000
@@ -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 @@
 		 ;; 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)))))