[Emacs-diffs] Changes to emacs/lisp/iswitchb.el

[Kim F . Storm]

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))))))