From: Kenichi Handa Date: Wed, 24 Jun 1998 02:41:08 +0000 (+0000) Subject: (x-style-funcs-alist): Remove duplicated code. X-Git-Tag: emacs-20.3~518 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=2fa8603a523c3e414e5a81be754eec5ec5d5e778;p=emacs.git (x-style-funcs-alist): Remove duplicated code. --- 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)