Mercurial > emacs

comparison lisp/international/latin1-disp.el @ 36990:1d714221177a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(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 8bc87faaa40f
children 8c0b69283972
comparison
equal deleted inserted replaced
36989:ce090eb0edda 36990:1d714221177a
1 ;;; latin1-disp.el --- display tables for other ISO 8859 on Latin-1 terminals -*- coding: emacs-mule -*- 1 ;;; latin1-disp.el --- display tables for other ISO 8859 on Latin-1 terminals -*- coding: emacs-mule -*-
2 2
3 ;; Copyright (C) 2000 Free Software Foundation, Inc. 3 ;; Copyright (C) 2000, 2001 Free Software Foundation, Inc.
4 4
5 ;; Author: Dave Love <fx@gnu.org> 5 ;; Author: Dave Love <fx@gnu.org>
6 ;; Keywords: i18n 6 ;; Keywords: i18n
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
179 (if font-pattern 179 (if font-pattern
180 (progn 180 (progn
181 ;; Now FONT-PATTERN is a string or a cons of family 181 ;; Now FONT-PATTERN is a string or a cons of family
182 ;; field pattern and registry field pattern. 182 ;; field pattern and registry field pattern.
183 (or (stringp font-pattern) 183 (or (stringp font-pattern)
184 (setq font-pattern (concat (or (car font-pattern) "*") 184 (setq font-pattern (concat "-"
185 (or (car font-pattern) "*")
185 "-*-" 186 "-*-"
186 (cdr font-pattern)))) 187 (cdr font-pattern))))
187 (x-list-fonts font-pattern 'default (selected-frame) 1))))) 188 (x-list-fonts font-pattern 'default (selected-frame) 1)))))
188 (t 189 (t
189 (let ((coding (terminal-coding-system))) 190 (let ((coding (terminal-coding-system)))