Mercurial > emacs

changeset 90419:0118fa0c9112

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(font-weight-table, font-slant-table) (font-swidth-table): New customizable variables.
author Kenichi Handa <handa@m17n.org>
date Tue, 06 Jun 2006 03:53:59 +0000
parents f998539f09a9
children 8a1866284f74
files lisp/faces.el
diffstat 1 files changed, 58 insertions(+), 0 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/faces.el	Tue Jun 06 03:53:38 2006 +0000
+++ b/lisp/faces.el	Tue Jun 06 03:53:59 2006 +0000
@@ -103,6 +103,64 @@
 	   (internal-set-alternative-font-registry-alist value)))
 
 
+(defcustom font-weight-table
+  '((thin . 0)
+    (ultralight . 40) (ultra-light . 40) (extra-light . 40)
+    (light . 50)
+    (semilight . 65) (semi-light . 65)
+    (book . 75)
+    (normal . 80) (regular . 80)
+    (medium . 100)
+    (semibold . 180) (semi-bold . 180) (demibold . 180) (demi . 180)
+    (bold . 200)
+    (extrabold . 205) (extra-bold . 205)
+    (ultrabold . 205) (ultra-bold . 205)
+    (black . 210) (heavy . 210))
+  "*Alist of font weight symbols vs the corresponding numeric values."
+  :tag "Font weight table"
+  :version "23.1"
+  :group 'font-selection
+  :type '(repeat (cons symbol integer))
+  :set #'(lambda (symbol value)
+	   (set-default symbol value)
+	   (if (fboundp 'internal-set-font-style-table)
+	       (internal-set-font-style-table :weight value))))
+
+(defcustom font-slant-table
+  '((ro . 0)
+    (ri . 10)
+    (r . 100) (normal . 100)
+    (i . 200) (italic . 200) (ot . 200)
+    (o . 210) (oblique . 210))
+  "*Alist of font slant symbols vs the corresponding numeric values."
+  :tag "Font slant table"
+  :version "23.1"
+  :group 'font-selection
+  :type '(repeat (cons symbol integer))
+  :set #'(lambda (symbol value)
+	   (set-default symbol value)
+	   (if (fboundp 'internal-set-font-style-table)
+	       (internal-set-font-style-table :slant value))))
+
+(defcustom font-swidth-table
+  '((ultracondensed . 50) (ultra-condensed . 50)
+    (extracondensed . 63) (extra-condensed . 63)
+    (condensed . 75) (compressed . 75) (narrow . 75)
+    (semicondensed . 87) (semi-condensed . 87)
+    (normal . 100) (medium . 100) (regular . 100)
+    (semiexpanded . 113) (semi-expanded . 113) (demiexpanded . 113)
+    (expanded . 125)
+    (extraexpanded . 150) (extra-expanded . 150)
+    (ultraexpanded . 200) (ultra-expanded . 200) (wide . 200))
+  "*Alist of font swidth symbols vs the corresponding numeric values."
+  :tag "Font swidth table"
+  :version "23.1"
+  :group 'font-selection
+  :type '(repeat (cons symbol integer))
+  :set #'(lambda (symbol value)
+	   (set-default symbol value)
+	   (if (fboundp 'internal-set-font-style-table)
+	       (internal-set-font-style-table :width value))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; Creation, copying.