diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-12-05 20:39:03 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2012-12-05 20:39:03 -0500 |
| commit | 4b5c89eefeb70315056af58754f00ee79767cc21 (patch) | |
| tree | e1d237c64141877fef04c9f2ac404f21d86fe6b8 /lisp/minibuf-eldef.el | |
| parent | 644d3f0dbf38eca7a746e0fb5a7a0dd20d214949 (diff) | |
| download | emacs-4b5c89eefeb70315056af58754f00ee79767cc21.tar.gz | |
* lisp/minibuf-eldef.el (minibuf-eldef-update-minibuffer): Don't mess with
the `intangible' property.
Suggested by Christopher Schmidt <christopher@ch.ristopher.com>
Diffstat (limited to 'lisp/minibuf-eldef.el')
| -rw-r--r-- | lisp/minibuf-eldef.el | 10 |
1 files changed, 3 insertions, 7 deletions
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 |