Commit bd5c2732 authored by Stefan Monnier's avatar Stefan Monnier
Browse files

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

parent 66787d51
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.
......
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment