X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=emh-face.el;h=17fc9a66e9b8e8fac878c5402bfa785c964b2db8;hb=54b8848da5c50d192e1e3b3d439f5a22a3722e6c;hp=2014d2316a2434bc6bc1597e63f47a8e2920996f;hpb=42191d429e7c2ea22bf479419c4356051cbb21ef;p=elisp%2Femh.git diff --git a/emh-face.el b/emh-face.el index 2014d23..17fc9a6 100644 --- a/emh-face.el +++ b/emh-face.el @@ -1,10 +1,9 @@ ;;; emh-face.el --- header highlighting in emh. -;; Copyright (C) 1997 MORIOKA Tomohiko +;; Copyright (C) 1997,2000 MORIOKA Tomohiko -;; Author: MORIOKA Tomohiko +;; Author: MORIOKA Tomohiko ;; Created: 1997/3/4 -;; Version: $Id: emh-face.el,v 0.5 1997-09-25 15:11:34 morioka Exp $ ;; Keywords: header, highlighting ;; This file is part of emh. @@ -26,21 +25,19 @@ ;;; Code: -(require 'emu) +(require 'emh-def) +(require 'std11) (defsubst emh-set-face-foreground (face color) (condition-case err (set-face-foreground face color) - (error (message "Color `%s' is not found." color)) - )) + (error (message "Color `%s' is not found." color)))) (defsubst emh-make-face-bold (face) - (set-face-font face (face-font 'bold)) - ) + (set-face-font face (face-font 'bold))) (defsubst emh-make-face-italic (face) - (set-face-font face (face-font 'italic)) - ) + (set-face-font face (face-font 'italic))) (or (find-face 'from-field-body) (progn