[mhc:00199] Re: 0.23-appha

[Yoshinari NOMURA <nom@xxxxxxxxxxxxxxxxxxx>]

On Fri, 29 Oct 1999 15:04:08 +0900,
	井上　潔(Kiyoshi Inoue) <inoue@xxxxxxxxxx> said:

>   Symbol's function definition is void: facep
> 
> となってしまうようです。(泣)

ごめんなさい。努力します。以下でどうでしょうか。

apel というパッケージがあるらしいですが、それを使うとこの手の問
題を解決してくれるのでしょうか。

Index: mhc.el
===================================================================
RCS file: /u/nom/prj/cvsroot/mhc/emacs/mhc.el,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -r1.3 -r1.4
--- mhc.el	1999/10/28 08:44:19	1.3
+++ mhc.el	1999/10/29 06:52:41	1.4
@@ -3,7 +3,7 @@
 ;; Author:  Yoshinari Nomura <nom@xxxxxxx>
 ;;
 ;; Created: 1994/07/04
-;; Revised: $Date: 1999/10/28 08:44:19 $
+;; Revised: $Date: 1999/10/29 06:52:41 $
 
 ;;;
 ;;; Commentay:
@@ -624,17 +624,16 @@
     ("Private"  . (nil "Green"  nil))))
 
 (defun mhc-category-string-to-face (category)
-  (let ((face (intern (format "mhc-category-face-%s" (downcase category))))
-	face-cel)
-    (if (facep face)
-	face
-      (if (setq face-cel (assoc category mhc-category-face-alist))
-	  (mhc-make-face
-	   face
-	   (nth 0 (cdr face-cel))
-	   (nth 1 (cdr face-cel))
-	   (nth 2 (cdr face-cel)))
-	nil))))
+  (let ((face-name (format "mhc-category-face-%s" (downcase category)))
+	face-attr)
+    (or (intern-soft face-name)
+	(if (setq face-attr (assoc category mhc-category-face-alist))
+	    (mhc-make-face
+	     (intern face-name)
+	     (nth 0 (cdr face-attr))
+	     (nth 1 (cdr face-attr))
+	     (nth 2 (cdr face-attr)))
+	  'default))))
 
 (defun mhc-make-face (face-sym parent-face fg bg)
   (if parent-face


で、知ってる方がおられたら教えて下さい。emacs 19.28 な mule
を一番楽にインストールするにはどうしたらいいでしょうか。もはや 
FreeBSD にはパッケージがないのです。

プラットホームは、FreeBSD 3.3R, Debian 2.2, Windows98 のどれか。
できれば Windows は避けたいです。

# note は 20.4, デスクトップは 19.34 な僕。
--
nom