From 2fa8603a523c3e414e5a81be754eec5ec5d5e778 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 24 Jun 1998 02:41:08 +0000 Subject: [PATCH] (x-style-funcs-alist): Remove duplicated code. --- lisp/international/fontset.el | 15 --------------- 1 file changed, 15 deletions(-) diff --git a/lisp/international/fontset.el b/lisp/international/fontset.el index 365bc3f3921..f3834074a36 100644 --- a/lisp/international/fontset.el +++ b/lisp/international/fontset.el @@ -402,21 +402,6 @@ STYLE is a style of FONTSET, one of the followings: bold-italic, demibold-italic, bold-oblique, demibold-oblique. FONTLIST is an alist of charsets vs font names to be used in FONSET.") -(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) (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) -- 2.39.2