Mercurial > emacs

comparison lisp/progmodes/ebrowse.el @ 91239:2fcaae6177a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-300
author Miles Bader <miles@gnu.org>
date Sun, 16 Dec 2007 05:08:49 +0000
parents a0e466c4d599 e50a2e215441
children 606f2d163a64
comparison
equal deleted inserted replaced
91238:5cf14a2107b5 91239:2fcaae6177a5
894 TITLE is the title of the progress message. START non-nil means 894 TITLE is the title of the progress message. START non-nil means
895 this is the first progress message displayed." 895 this is the first progress message displayed."
896 (let (message-log-max) 896 (let (message-log-max)
897 (when start (setq ebrowse-n-boxes 0)) 897 (when start (setq ebrowse-n-boxes 0))
898 (setq ebrowse-n-boxes (mod (1+ ebrowse-n-boxes) ebrowse-max-boxes)) 898 (setq ebrowse-n-boxes (mod (1+ ebrowse-n-boxes) ebrowse-max-boxes))
899 (message (concat title ": " 899 (message "%s: %s" title
900 (propertize (make-string ebrowse-n-boxes 900 (propertize (make-string ebrowse-n-boxes
901 (if (display-color-p) ?\ ?+)) 901 (if (display-color-p) ?\ ?+))
902 'face 'ebrowse-progress))))) 902 'face 'ebrowse-progress))))
903 903
904 904
905 ;;; Reading a tree from disk 905 ;;; Reading a tree from disk
906 906
907 (defun ebrowse-read () 907 (defun ebrowse-read ()