emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: Kim F . Storm
Subject: [Emacs-diffs] Changes to emacs/lisp/ido.el
Date: Mon, 06 Jun 2005 08:48:02 -0400

Index: emacs/lisp/ido.el
diff -c emacs/lisp/ido.el:1.58 emacs/lisp/ido.el:1.59
*** emacs/lisp/ido.el:1.58      Fri Jun  3 23:21:58 2005
--- emacs/lisp/ido.el   Mon Jun  6 12:48:02 2005
***************
*** 299,306 ****
  ;; ------------
  
  ;; The highlighting of matching items is controlled via ido-use-faces.
! ;; The faces used are ido-first-match-face, ido-only-match-face and
! ;; ido-subdir-face.
  ;; Colouring of the matching item was suggested by
  ;; Carsten Dominik (address@hidden).
  
--- 299,306 ----
  ;; ------------
  
  ;; The highlighting of matching items is controlled via ido-use-faces.
! ;; The faces used are ido-first-match, ido-only-match and
! ;; ido-subdir.
  ;; Colouring of the matching item was suggested by
  ;; Carsten Dominik (address@hidden).
  
***************
*** 740,756 ****
    :type 'boolean
    :group 'ido)
  
! (defface ido-first-match-face  '((t (:bold t)))
    "*Font used by ido for highlighting first match."
    :group 'ido)
  
! (defface ido-only-match-face  '((((class color))
                                   (:foreground "ForestGreen"))
                                  (t (:italic t)))
    "*Font used by ido for highlighting only match."
    :group 'ido)
  
! (defface ido-subdir-face  '((((min-colors 88) (class color))
                               (:foreground "red1"))
                            (((class color))
                               (:foreground "red"))
--- 740,756 ----
    :type 'boolean
    :group 'ido)
  
! (defface ido-first-match  '((t (:bold t)))
    "*Font used by ido for highlighting first match."
    :group 'ido)
  
! (defface ido-only-match  '((((class color))
                                   (:foreground "ForestGreen"))
                                  (t (:italic t)))
    "*Font used by ido for highlighting only match."
    :group 'ido)
  
! (defface ido-subdir  '((((min-colors 88) (class color))
                               (:foreground "red1"))
                            (((class color))
                               (:foreground "red"))
***************
*** 758,764 ****
    "*Font used by ido for highlighting subdirs in the alternatives."
    :group 'ido)
  
! (defface ido-indicator-face  '((((min-colors 88) (class color))
                                (:foreground "yellow1"
                                 :background "red1"
                                 :width condensed))
--- 758,764 ----
    "*Font used by ido for highlighting subdirs in the alternatives."
    :group 'ido)
  
! (defface ido-indicator  '((((min-colors 88) (class color))
                                (:foreground "yellow1"
                                 :background "red1"
                                 :width condensed))
***************
*** 4039,4045 ****
         first)
  
      (if (and ind ido-use-faces)
!       (put-text-property 0 1 'face 'ido-indicator-face ind))
  
      (if (and ido-use-faces comps)
        (let* ((fn (ido-name (car comps)))
--- 4039,4045 ----
         first)
  
      (if (and ind ido-use-faces)
!       (put-text-property 0 1 'face 'ido-indicator ind))
  
      (if (and ido-use-faces comps)
        (let* ((fn (ido-name (car comps)))
***************
*** 4047,4054 ****
          (setq first (format "%s" fn))
          (put-text-property 0 ln 'face
                             (if (= (length comps) 1)
!                                'ido-only-match-face
!                              'ido-first-match-face)
                             first)
          (if ind (setq first (concat first ind)))
          (setq comps (cons first (cdr comps)))))
--- 4047,4054 ----
          (setq first (format "%s" fn))
          (put-text-property 0 ln 'face
                             (if (= (length comps) 1)
!                                'ido-only-match
!                              'ido-first-match)
                             first)
          (if ind (setq first (concat first ind)))
          (setq comps (cons first (cdr comps)))))
***************
*** 4091,4097 ****
                                       (if (and ido-use-faces
                                                (not (string= str first))
                                                (ido-final-slash str))
!                                          (put-text-property 0 (length str) 
'face 'ido-subdir-face str))
                                       str)))))
                           comps))))))
  
--- 4091,4097 ----
                                       (if (and ido-use-faces
                                                (not (string= str first))
                                                (ido-final-slash str))
!                                          (put-text-property 0 (length str) 
'face 'ido-subdir str))
                                       str)))))
                           comps))))))
  




reply via email to

[Prev in Thread] Current Thread [Next in Thread]