[Mew-dist 08091] Re: mew-cite-color.el
Hideyuki SHIRAI ( 白井秀行 )
shirai at example.com
1999年 3月 15日 (月) 19:51:33 JST
白井です。
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)
Mew-dist メーリングリストの案内