From 4b5c89eefeb70315056af58754f00ee79767cc21 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 5 Dec 2012 20:39:03 -0500 Subject: [PATCH] * lisp/minibuf-eldef.el (minibuf-eldef-update-minibuffer): Don't mess with the `intangible' property. Suggested by Christopher Schmidt --- lisp/ChangeLog | 6 ++++++ lisp/minibuf-eldef.el | 10 +++------- 2 files changed, 9 insertions(+), 7 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index c2e9609451c..cb5118cde40 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2012-12-06 Stefan Monnier + + * minibuf-eldef.el (minibuf-eldef-update-minibuffer): Don't mess with + the `intangible' property. + Suggested by Christopher Schmidt + 2012-12-05 Deniz Dogan * net/rcirc.el (rcirc-urls): Update documentation. diff --git a/lisp/minibuf-eldef.el b/lisp/minibuf-eldef.el index 950c28b227f..c9e663eedba 100644 --- a/lisp/minibuf-eldef.el +++ b/lisp/minibuf-eldef.el @@ -152,15 +152,11 @@ been set up by `minibuf-eldef-setup-minibuffer'." (and (= (point-max) minibuf-eldef-initial-buffer-length) (string-equal (minibuffer-contents-no-properties) minibuf-eldef-initial-input))) - ;; swap state + ;; Swap state. (setq minibuf-eldef-showing-default-in-prompt (not minibuf-eldef-showing-default-in-prompt)) - (cond (minibuf-eldef-showing-default-in-prompt - (overlay-put minibuf-eldef-overlay 'invisible nil) - (overlay-put minibuf-eldef-overlay 'intangible nil)) - (t - (overlay-put minibuf-eldef-overlay 'invisible t) - (overlay-put minibuf-eldef-overlay 'intangible t))))) + (overlay-put minibuf-eldef-overlay 'invisible + (not minibuf-eldef-showing-default-in-prompt)))) ;;;###autoload -- 2.39.5