2004-11-15 change of `vc.el' makes it pass string as a face name to
`find-face'. But both in 21.4 and 21.5 `find-face' signals an error
if argument is neither face nor symbol.
Certainly having `find-face' use string argument as a name of symbol
that is face name makes sense, but until this is implemented, need the
* vc.el (vc-annotate-display): Pass symbol to `find-face' as face
name, not string. Fix 2004-11-15 change.
--- vc.el 24 Nov 2004 22:36:27 -0000 22.214.171.124
+++ vc.el 29 Nov 2004 23:41:35 -0000
＠＠ -2462,10 +2462,15 ＠＠
((cons nil vc-annotate-very-old-color))))
;; substring from index 1 to remove any leading `#' in the name
- (face-name (concat "vc-annotate-face-" (substring (cdr color) 1)))
;; Make the face if not done.
- (face (cond ((find-face face-name))
- ((make-face (intern face-name)))))
+ "vc-annotate-face-" (substring (cdr color) 1)))))
+ (cond ((find-face face-name))
+ ((make-face face-name)))))
(foo (forward-line 1))
(overlay (cond ((if (string-match "XEmacs" emacs-version)