Mercurial > emacs
changeset 94091:14fafab62797
(minibuffer-message): Make sure we can put-text-property.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Mon, 14 Apr 2008 22:04:38 +0000 |
| parents | 6027fc6333c9 |
| children | 41edf72809eb |
| files | lisp/ChangeLog lisp/minibuffer.el |
| diffstat | 2 files changed, 6 insertions(+), 2 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Mon Apr 14 19:54:30 2008 +0000 +++ b/lisp/ChangeLog Mon Apr 14 22:04:38 2008 +0000 @@ -1,5 +1,7 @@ 2008-04-14 Stefan Monnier <monnier@iro.umontreal.ca> + * minibuffer.el (minibuffer-message): Make sure we can put-text-property. + * emacs-lisp/crm.el: Complete rewrite. * tmm.el (tmm-completion-delete-prompt): Don't hardcode point-min==1.
--- a/lisp/minibuffer.el Mon Apr 14 19:54:30 2008 +0000 +++ b/lisp/minibuffer.el Mon Apr 14 22:04:38 2008 +0000 @@ -172,8 +172,10 @@ If ARGS are provided, then pass MESSAGE through `format'." ;; Clear out any old echo-area message to make way for our new thing. (message nil) - (unless (and (null args) (string-match "\\[.+\\]" message)) - (setq message (concat " [" message "]"))) + (setq message (if (and (null args) (string-match "\\[.+\\]" message)) + ;; Make sure we can put-text-property. + (copy-sequence message) + (concat " [" message "]"))) (when args (setq message (apply 'format message args))) (let ((ol (make-overlay (point-max) (point-max) nil t t))) (unwind-protect