Commit a0d59316 authored by Miles Bader's avatar Miles Bader
Browse files

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

parent 97b14492
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
......
;;; 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)))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment