mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-05 07:01:11 -08:00
Code Issues Projects Releases Wiki Activity

(minibuffer-message): Make sure we can put-text-property.

Browse source
This commit is contained in:
Stefan Monnier 2008-04-14 22:04:38 +00:00
parent 66787d5102
commit bd5c2732aa
2 changed files with 6 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lisp/ChangeLog
View file

@ -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.

6
lisp/minibuffer.el
View file

@ -172,8 +172,10 @@ Enclose MESSAGE in [...] if this is not yet the case.
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