Mercurial > hg > xemacs-beta

diff lisp/modes/outl-mouse.el @ 193:f53b5ca2e663 r20-3b23

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b23
author cvs
date Mon, 13 Aug 2007 09:58:30 +0200
parents 9b50b4588a93
children
line wrap: on
line diff
--- a/lisp/modes/outl-mouse.el	Mon Aug 13 09:57:40 2007 +0200
+++ b/lisp/modes/outl-mouse.el	Mon Aug 13 09:58:30 2007 +0200
@@ -438,17 +438,23 @@
   "Add annotations and glyphs to all heading lines that don't have them."
   (interactive)
   (save-excursion
-    (and outline-scanning-message (message outline-scanning-message 0))
+    (and outline-scanning-message (display-message
+				   'progress
+				   (format outline-scanning-message 0)))
     (goto-char (point-min))
     (if (not (outline-on-heading-p)) (outline-next-visible-heading-safe))
     (while 
 	(progn
 	  (outline-heading-add-glyph-1)
 	  (and outline-scanning-message 
-	       (message outline-scanning-message (fume-relative-position)))
+	       (display-message
+		'progress
+		(format outline-scanning-message (fume-relative-position))))
 	  (outline-next-visible-heading-safe)))
     (and outline-scanning-message 
-	 (message "%s done" (format outline-scanning-message 100)))))
+	 (display-message
+	  'progress
+	  (format "%s done" (format outline-scanning-message 100))))))
 
 (defun outline-delete-glyphs ()
   "Remove annotations and glyphs from heading lines."