Mercurial > hg > xemacs-beta

comparison 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
comparison
equal deleted inserted replaced
192:9d35321dd38c 193:f53b5ca2e663
436 436
437 (defun outline-add-glyphs () 437 (defun outline-add-glyphs ()
438 "Add annotations and glyphs to all heading lines that don't have them." 438 "Add annotations and glyphs to all heading lines that don't have them."
439 (interactive) 439 (interactive)
440 (save-excursion 440 (save-excursion
441 (and outline-scanning-message (message outline-scanning-message 0)) 441 (and outline-scanning-message (display-message
442 'progress
443 (format outline-scanning-message 0)))
442 (goto-char (point-min)) 444 (goto-char (point-min))
443 (if (not (outline-on-heading-p)) (outline-next-visible-heading-safe)) 445 (if (not (outline-on-heading-p)) (outline-next-visible-heading-safe))
444 (while 446 (while
445 (progn 447 (progn
446 (outline-heading-add-glyph-1) 448 (outline-heading-add-glyph-1)
447 (and outline-scanning-message 449 (and outline-scanning-message
448 (message outline-scanning-message (fume-relative-position))) 450 (display-message
451 'progress
452 (format outline-scanning-message (fume-relative-position))))
449 (outline-next-visible-heading-safe))) 453 (outline-next-visible-heading-safe)))
450 (and outline-scanning-message 454 (and outline-scanning-message
451 (message "%s done" (format outline-scanning-message 100))))) 455 (display-message
456 'progress
457 (format "%s done" (format outline-scanning-message 100))))))
452 458
453 (defun outline-delete-glyphs () 459 (defun outline-delete-glyphs ()
454 "Remove annotations and glyphs from heading lines." 460 "Remove annotations and glyphs from heading lines."
455 (save-excursion 461 (save-excursion
456 (mapcar 'outline-heading-delete-glyph (annotation-list)))) 462 (mapcar 'outline-heading-delete-glyph (annotation-list))))