;;; emh-face.el --- header highlighting in emh.
-;; Copyright (C) 1997 MORIOKA Tomohiko
+;; Copyright (C) 1997,2000 MORIOKA Tomohiko
-;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
+;; Author: MORIOKA Tomohiko <tomo@m17n.org>
;; Created: 1997/3/4
-;; Version: $Id: emh-face.el,v 1.1.2.1 2000/02/03 05:02:30 tomo Exp $
;; Keywords: header, highlighting
;; This file is part of emh.
;;; 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