Mercurial > emacs

comparison lisp/iswitchb.el @ 63075:7e902750d940

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
2005-06-06 Matt Hodges <MPHodges@member.fsf.org> * iswitchb.el: Rename faces.
author Kim F. Storm <storm@cua.dk>
date Mon, 06 Jun 2005 14:21:14 +0000
parents 3ae2519a0cfd
children eca4e949db45 173dee4e2611
comparison
equal deleted inserted replaced
63074:0f67f7670d1d 63075:7e902750d940
402 will constrain the minibuffer to a maximum height of 3 lines when 402 will constrain the minibuffer to a maximum height of 3 lines when
403 iswitchb is running." 403 iswitchb is running."
404 :type 'hook 404 :type 'hook
405 :group 'iswitchb) 405 :group 'iswitchb)
406 406
407 (defface iswitchb-single-match-face 407 (defface iswitchb-single-match
408 '((t 408 '((t
409 (:inherit font-lock-comment-face))) 409 (:inherit font-lock-comment-face)))
410 "Iswitchb face for single matching buffer name." 410 "Iswitchb face for single matching buffer name."
411 :version "22.1" 411 :version "22.1"
412 :group 'iswitchb) 412 :group 'iswitchb)
413 413
414 (defface iswitchb-current-match-face 414 (defface iswitchb-current-match
415 '((t 415 '((t
416 (:inherit font-lock-function-name-face))) 416 (:inherit font-lock-function-name-face)))
417 "Iswitchb face for current matching buffer name." 417 "Iswitchb face for current matching buffer name."
418 :version "22.1" 418 :version "22.1"
419 :group 'iswitchb) 419 :group 'iswitchb)
420 420
421 (defface iswitchb-virtual-matches-face 421 (defface iswitchb-virtual-matches
422 '((t 422 '((t
423 (:inherit font-lock-builtin-face))) 423 (:inherit font-lock-builtin-face)))
424 "Iswitchb face for matching virtual buffer names. 424 "Iswitchb face for matching virtual buffer names.
425 See also `iswitchb-use-virtual-buffers'." 425 See also `iswitchb-use-virtual-buffers'."
426 :version "22.1" 426 :version "22.1"
427 :group 'iswitchb) 427 :group 'iswitchb)
428 428
429 (defface iswitchb-invalid-regexp-face 429 (defface iswitchb-invalid-regexp
430 '((t 430 '((t
431 (:inherit font-lock-warning-face))) 431 (:inherit font-lock-warning-face)))
432 "Iswitchb face for indicating invalid regexp. " 432 "Iswitchb face for indicating invalid regexp. "
433 :version "22.1" 433 :version "22.1"
434 :group 'iswitchb) 434 :group 'iswitchb)
1297 (setq first (car comps)) 1297 (setq first (car comps))
1298 (setq first (format "%s" first)) 1298 (setq first (format "%s" first))
1299 (put-text-property 0 (length first) 'face 1299 (put-text-property 0 (length first) 'face
1300 (if (= (length comps) 1) 1300 (if (= (length comps) 1)
1301 (if iswitchb-invalid-regexp 1301 (if iswitchb-invalid-regexp
1302 'iswitchb-invalid-regexp-face 1302 'iswitchb-invalid-regexp
1303 'iswitchb-single-match-face) 1303 'iswitchb-single-match)
1304 'iswitchb-current-match-face) 1304 'iswitchb-current-match)
1305 first) 1305 first)
1306 (setq comps (cons first (cdr comps))))) 1306 (setq comps (cons first (cdr comps)))))
1307 1307
1308 ;; If no buffers matched, and virtual buffers are being used, then 1308 ;; If no buffers matched, and virtual buffers are being used, then
1309 ;; consult the list of past visited files, to see if we can find 1309 ;; consult the list of past visited files, to see if we can find
1328 (setq iswitchb-virtual-buffers (nreverse iswitchb-virtual-buffers) 1328 (setq iswitchb-virtual-buffers (nreverse iswitchb-virtual-buffers)
1329 comps (mapcar 'car iswitchb-virtual-buffers)) 1329 comps (mapcar 'car iswitchb-virtual-buffers))
1330 (let ((comp comps)) 1330 (let ((comp comps))
1331 (while comp 1331 (while comp
1332 (put-text-property 0 (length (car comp)) 1332 (put-text-property 0 (length (car comp))
1333 'face 'iswitchb-virtual-matches-face 1333 'face 'iswitchb-virtual-matches
1334 (car comp)) 1334 (car comp))
1335 (setq comp (cdr comp)))))) 1335 (setq comp (cdr comp))))))
1336 1336
1337 (cond ((null comps) (format " %sNo match%s" 1337 (cond ((null comps) (format " %sNo match%s"
1338 open-bracket-determined 1338 open-bracket-determined