[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/iswitchb.el
From: |
Kim F . Storm |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/iswitchb.el |
Date: |
Mon, 06 Jun 2005 10:21:14 -0400 |
Index: emacs/lisp/iswitchb.el
diff -c emacs/lisp/iswitchb.el:1.57 emacs/lisp/iswitchb.el:1.58
*** emacs/lisp/iswitchb.el:1.57 Sat Jun 4 19:10:07 2005
--- emacs/lisp/iswitchb.el Mon Jun 6 14:21:14 2005
***************
*** 404,424 ****
:type 'hook
:group 'iswitchb)
! (defface iswitchb-single-match-face
'((t
(:inherit font-lock-comment-face)))
"Iswitchb face for single matching buffer name."
:version "22.1"
:group 'iswitchb)
! (defface iswitchb-current-match-face
'((t
(:inherit font-lock-function-name-face)))
"Iswitchb face for current matching buffer name."
:version "22.1"
:group 'iswitchb)
! (defface iswitchb-virtual-matches-face
'((t
(:inherit font-lock-builtin-face)))
"Iswitchb face for matching virtual buffer names.
--- 404,424 ----
:type 'hook
:group 'iswitchb)
! (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
'((t
(:inherit font-lock-function-name-face)))
"Iswitchb face for current matching buffer name."
:version "22.1"
:group 'iswitchb)
! (defface iswitchb-virtual-matches
'((t
(:inherit font-lock-builtin-face)))
"Iswitchb face for matching virtual buffer names.
***************
*** 426,432 ****
:version "22.1"
:group 'iswitchb)
! (defface iswitchb-invalid-regexp-face
'((t
(:inherit font-lock-warning-face)))
"Iswitchb face for indicating invalid regexp. "
--- 426,432 ----
:version "22.1"
:group 'iswitchb)
! (defface iswitchb-invalid-regexp
'((t
(:inherit font-lock-warning-face)))
"Iswitchb face for indicating invalid regexp. "
***************
*** 1299,1307 ****
(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)
first)
(setq comps (cons first (cdr comps)))))
--- 1299,1307 ----
(put-text-property 0 (length first) 'face
(if (= (length comps) 1)
(if iswitchb-invalid-regexp
! 'iswitchb-invalid-regexp
! 'iswitchb-single-match)
! 'iswitchb-current-match)
first)
(setq comps (cons first (cdr comps)))))
***************
*** 1330,1336 ****
(let ((comp comps))
(while comp
(put-text-property 0 (length (car comp))
! 'face 'iswitchb-virtual-matches-face
(car comp))
(setq comp (cdr comp))))))
--- 1330,1336 ----
(let ((comp comps))
(while comp
(put-text-property 0 (length (car comp))
! 'face 'iswitchb-virtual-matches
(car comp))
(setq comp (cdr comp))))))