mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -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

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