From: morioka <morioka>
Date: Thu, 22 May 1997 03:24:36 +0000 (+0000)
Subject: (emh-make-face-bold, emh-make-face-italic): New implementation.
X-Git-Tag: emh-0_21~11
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=d40cb1df98db97f6290eb6cc190fe0cf11a49a3c;p=elisp%2Femh.git

(emh-make-face-bold, emh-make-face-italic): New implementation.
---

diff --git a/emh-face.el b/emh-face.el
index ec9db7f..3d6f42a 100644
--- a/emh-face.el
+++ b/emh-face.el
@@ -4,7 +4,7 @@
 
 ;; Author: MORIOKA Tomohiko <morioka@jaist.ac.jp>
 ;; Created: 1997/3/4
-;; Version: $Id: emh-face.el,v 0.3 1997-03-14 05:41:55 morioka Exp $
+;; Version: $Id: emh-face.el,v 0.4 1997-05-22 03:24:36 morioka Exp $
 ;; Keywords: header, highlighting
 
 ;; This file is part of emh.
@@ -35,16 +35,12 @@
     ))
 
 (defsubst emh-make-face-bold (face)
-  (condition-case err
-      (make-face-bold face)
-    (error (message "Can not make bold face `%s'." face))
-    ))
+  (set-face-font face (face-font 'bold))
+  )
 
 (defsubst emh-make-face-italic (face)
-  (condition-case err
-      (make-face-bold face)
-    (error (message "Can not make italic face `%s'." face))
-    ))
+  (set-face-font face (face-font 'italic))
+  )
 
 (or (find-face 'from-field-body)
     (progn