procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Miles Bader 2001-03-26 07:20:09 +00:00
parent 97b14492ef
commit a0d59316c8
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -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

5
lisp/international/latin1-disp.el
View file

@ -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)))))