Andy Piper <andyp(a)bea.com&gt; writes: You're right. How about the one below? Also, I think it would help *a lot* if we just used the echo area for progress display. --- gutter-items.el.orig Tue Apr 4 19:26:20 2000 +++ gutter-items.el Tue Apr 4 19:44:40 2000 ＠＠ -513,7 +513,7 ＠＠ Do not modify this directly--use the `progress-display' or `display-progress-display'/`clear-progress-display' functions.") -(defvar progress-glyph-height 32 +(defvar progress-glyph-height 24 "Height of the gutter area for progress messages.") (defvar progress-display-popup-period 0.5 ＠＠ -532,21 +532,14 ＠＠ (defvar progress-layout-glyph (make-glyph - (vector - 'layout :orientation 'vertical :justify 'left - :items (list - progress-text-glyph - (make-glyph - (vector - 'layout :pixel-height progress-glyph-height - :orientation 'horizontal - :items (list - progress-gauge-glyph - (vector - 'button :pixel-height (- progress-glyph-height 8) - :descriptor " Stop " - ;; quit is a special callback - :callback 'quit)))))))) + `[layout + :orientation horizontal + :items (,progress-gauge-glyph + [button + :pixel-height ,(- progress-glyph-height 8) + :descriptor "Stop" + :callback 'quit] + ,progress-text-glyph)])) (defvar progress-abort-glyph (make-glyph