Mercurial > emacs
changeset 36990:1d714221177a
(latin1-char-displayable-p): Add leading "-" for X font pattern.
| author | Miles Bader <miles@gnu.org> |
|---|---|
| date | Mon, 26 Mar 2001 07:17:55 +0000 |
| parents | ce090eb0edda |
| children | 92f1f1aa52c7 |
| files | lisp/international/latin1-disp.el |
| diffstat | 1 files changed, 3 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- 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)))))