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 ([EMAIL PROTECTED]).
--- 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 ([EMAIL PROTECTED]).
***************
*** 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))))))
_______________________________________________
Emacs-diffs mailing list
Emacs-diffs@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-diffs
