* lisp/minibuf-eldef.el (minibuf-eldef-update-minibuffer): Don't mess with

the `intangible' property.
Suggested by Christopher Schmidt <christopher@ch.ristopher.com>

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index c2e9609451c7cc8a0ba266f4553f1bd2214b2018..cb5118cde4036de928df86fdf7ffcbbbe9bdcdde 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,9 @@
+2012-12-06  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * minibuf-eldef.el (minibuf-eldef-update-minibuffer): Don't mess with
+       the `intangible' property.
+       Suggested by Christopher Schmidt <christopher@ch.ristopher.com>
+
 2012-12-05  Deniz Dogan  <deniz@dogan.se>
 
        * net/rcirc.el (rcirc-urls): Update documentation.

diff --git a/lisp/minibuf-eldef.el b/lisp/minibuf-eldef.el
index 950c28b227f89d1f18101d694ad052c102923f85..c9e663eedbabe72b7aa4f4892376135535899d74 100644 (file)
--- 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))))
 
 \f
 ;;;###autoload