Mercurial > emacs

changeset 22561:3b18bf846d3c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(x-style-funcs-alist): Remove duplicated code.
author Kenichi Handa <handa@m17n.org>
date Wed, 24 Jun 1998 02:41:08 +0000
parents ce6e85fd8036
children ddb3fd464b77
files lisp/international/fontset.el
diffstat 1 files changed, 0 insertions(+), 15 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/international/fontset.el	Tue Jun 23 20:31:53 1998 +0000
+++ b/lisp/international/fontset.el	Wed Jun 24 02:41:08 1998 +0000
@@ -409,21 +409,6 @@
     (oblique . x-make-font-oblique)
     (bold-italic . x-make-font-bold-italic)
     (demibold-italic
-     . ,(function (lambda (x) (x-make-font-italic (x-make-font-demibold x)))))
-    (demibold-oblique
-     . ,(function (lambda (x) (x-make-font-oblique (x-make-font-demibold x)))))
-    (bold-oblique
-     . ,(function (lambda (x) (x-make-font-oblique (x-make-font-bold x))))))
-  "Alist of font style vs function to generate a X font name of the style.
-The function is called with one argument, a font name.")
-
-(defconst x-style-funcs-alist
-  `((bold . x-make-font-bold)
-    (demibold . x-make-font-demibold)
-    (italic . x-make-font-italic)
-    (oblique . x-make-font-oblique)
-    (bold-italic . x-make-font-bold-italic)
-    (demibold-italic
      . ,(function (lambda (x)
 		    (let ((y (x-make-font-demibold x)))
 		      (and y (x-make-font-italic y))))))