# HG changeset patch # User Kim F. Storm # Date 1118067674 0 # Node ID 7e902750d940b95c4e0c6c2f325cc913181e4809 # Parent 0f67f7670d1dcbe878f457a6f77a925d896b276d 2005-06-06 Matt Hodges * iswitchb.el: Rename faces. diff -r 0f67f7670d1d -r 7e902750d940 lisp/iswitchb.el --- a/lisp/iswitchb.el Mon Jun 06 14:20:55 2005 +0000 +++ b/lisp/iswitchb.el Mon Jun 06 14:21:14 2005 +0000 @@ -404,21 +404,21 @@ :type 'hook :group 'iswitchb) -(defface iswitchb-single-match-face +(defface iswitchb-single-match '((t (:inherit font-lock-comment-face))) "Iswitchb face for single matching buffer name." :version "22.1" :group 'iswitchb) -(defface iswitchb-current-match-face +(defface iswitchb-current-match '((t (:inherit font-lock-function-name-face))) "Iswitchb face for current matching buffer name." :version "22.1" :group 'iswitchb) -(defface iswitchb-virtual-matches-face +(defface iswitchb-virtual-matches '((t (:inherit font-lock-builtin-face))) "Iswitchb face for matching virtual buffer names. @@ -426,7 +426,7 @@ :version "22.1" :group 'iswitchb) -(defface iswitchb-invalid-regexp-face +(defface iswitchb-invalid-regexp '((t (:inherit font-lock-warning-face))) "Iswitchb face for indicating invalid regexp. " @@ -1299,9 +1299,9 @@ (put-text-property 0 (length first) 'face (if (= (length comps) 1) (if iswitchb-invalid-regexp - 'iswitchb-invalid-regexp-face - 'iswitchb-single-match-face) - 'iswitchb-current-match-face) + 'iswitchb-invalid-regexp + 'iswitchb-single-match) + 'iswitchb-current-match) first) (setq comps (cons first (cdr comps))))) @@ -1330,7 +1330,7 @@ (let ((comp comps)) (while comp (put-text-property 0 (length (car comp)) - 'face 'iswitchb-virtual-matches-face + 'face 'iswitchb-virtual-matches (car comp)) (setq comp (cdr comp))))))