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> 2001-03-26 Kenichi Handa <handa@etl.go.jp>
   
* international/mule-diag.el (describe-coding-system): For * international/mule-diag.el (describe-coding-system): For
......
;;; latin1-disp.el --- display tables for other ISO 8859 on Latin-1 terminals -*- coding: emacs-mule -*- ;;; 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> ;; Author: Dave Love <fx@gnu.org>
;; Keywords: i18n ;; Keywords: i18n
...@@ -181,7 +181,8 @@ character set: `latin-2', `hebrew' etc." ...@@ -181,7 +181,8 @@ character set: `latin-2', `hebrew' etc."
;; Now FONT-PATTERN is a string or a cons of family ;; Now FONT-PATTERN is a string or a cons of family
;; field pattern and registry field pattern. ;; field pattern and registry field pattern.
(or (stringp font-pattern) (or (stringp font-pattern)
(setq font-pattern (concat (or (car font-pattern) "*") (setq font-pattern (concat "-"
(or (car font-pattern) "*")
"-*-" "-*-"
(cdr font-pattern)))) (cdr font-pattern))))
(x-list-fonts font-pattern 'default (selected-frame) 1))))) (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