Mercurial > hg > xemacs-beta
diff lisp/gutter-items.el @ 5885:c8bbb32fe124
Always return a string, #'current-message.
lisp/ChangeLog addition:
2015-04-04 Aidan Kehoe <kehoea@parhasard.net>
* gutter-items.el (append-progress-feedback):
* gutter-items.el (abort-progress-feedback):
Correct comments in both these functions, it's the progress stack
being adjusted, not the message stack.
* simple.el (message-stack):
Describe my recent change in the structure of this.
* simple.el (current-message):
Adjust the implementation of this to always return the string
displayed.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Sat, 04 Apr 2015 13:49:30 +0100 |
| parents | cc6f0266bc36 |
| children |
line wrap: on
line diff
--- a/lisp/gutter-items.el Fri Apr 03 00:27:59 2015 +0100 +++ b/lisp/gutter-items.el Sat Apr 04 13:49:30 2015 +0100 @@ -543,7 +543,7 @@ (defun append-progress-feedback (label message &optional value frame) (or frame (setq frame (selected-frame))) - ;; Add a new entry to the message-stack, or modify an existing one + ;; Add a new entry to the progress-stack, or modify an existing one (let* ((top (car progress-stack)) (tmsg (cdr top))) (if (eq label (car top)) @@ -568,7 +568,7 @@ progress-feedback-use-echo-area) (display-message label (concat message "aborted.") frame) (or frame (setq frame (selected-frame))) - ;; Add a new entry to the message-stack, or modify an existing one + ;; Add a new entry to the progress-stack, or modify an existing one (let* ((top (car progress-stack)) (inhibit-read-only t)) (if (eq label (car top))