mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-28 10:56:36 +00:00
Code Issues Releases Activity

(face-font-registry-alternatives): New user-option.

Browse Source
This commit is contained in:
Gerd Moellmann 2000-11-10 14:34:23 +00:00
parent 30d276a402
commit 18f1dcb449
1 changed files with 17 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
lisp/faces.el
View File

@ -58,7 +58,8 @@ a font height that isn't optimal."
(set-default symbol value) (set-default symbol value)
(internal-set-font-selection-order value))) (internal-set-font-selection-order value)))
;; This is defined originally in {w32,x}faces.c.
;; This is defined originally in xfaces.c.
(defcustom face-font-family-alternatives (defcustom face-font-family-alternatives
'(("courier" "fixed") '(("courier" "fixed")
("helv" "helvetica" "arial" "fixed")) ("helv" "helvetica" "arial" "fixed"))
@ -74,6 +75,21 @@ ALTERNATIVE2 etc."
(internal-set-alternative-font-family-alist value))) (internal-set-alternative-font-family-alist value)))
;; This is defined originally in xfaces.c.
(defcustom face-font-registry-alternatives
'(("muletibetan-2" "muletibetan-0"))
"*Alist of alternative font registry names.
Each element has the the form (REGISTRY ALTERNATIVE1 ALTERNATIVE2 ...).
If fonts of registry REGISTRY can't be loaded, try ALTERNATIVE1, then
ALTERNATIVE2 etc."
:tag "Alternative font registries to try."
:type '(repeat (repeat string))
:group 'font-selection
:set #'(lambda (symbol value)
(set-default symbol value)
(internal-set-alternative-font-registry-alist value)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; Creation, copying. ;;; Creation, copying.