[Mew-Win32 01252] Re: [Mew-dist 08083] mew-cite-color.el

[Hideyuki SHIRAI ( 白井秀行 )]

白井です。

mew-cite-color を使っていただけて、もし、facep が無いよって怒ら
れる方は、~/.emacs か mew-cite-color.el に以下のものをつけて下さい。

(or (fboundp 'facep)
    ;; Introduced in Emacs 19.29.
    (defun facep (x)
      "Return t if X is a face name or an internal face vector."
      (and (or (and (fboundp 'internal-facep) (internal-facep x))
	       (and 
		(symbolp x) 
		(assq x (and (boundp 'global-face-data) global-face-data))))
	   t)))

# Emacs 19.28 default では facep() が無いのですね。ついさっき気
# 付きました。m(__)m

ついでに、パッチにするとこんな風になります。

--- mew-cite-color.el~  Mon Mar 15 10:08:20 1999
+++ mew-cite-color.el   Mon Mar 15 19:44:41 1999
@@ -64,6 +64,17 @@
 (defvar mew-cite-color-comment-face nil)
 (defvar mew-cite-color-face-list nil)
 (defvar mew-cite-color-face-alist nil)
+
+;; for Emacs 19.28
+(or (fboundp 'facep)
+    ;; Introduced in Emacs 19.29.
+    (defun facep (x)
+      "Return t if X is a face name or an internal face vector."
+      (and (or (and (fboundp 'internal-facep) (internal-facep x))
+              (and 
+               (symbolp x) 
+               (assq x (and (boundp 'global-face-data) global-face-data))))
+          t)))
 
 (defun mew-cite-color ()
   (if (or window-system mew-xemacs-p)