aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorMark Oteiza2016-07-21 16:54:03 -0400
committerMark Oteiza2016-07-21 16:54:03 -0400
commit52cf0d5d98c51c3591ca5d376fd4e85cd9b72d7f (patch)
treebcebafcf50ca28e36047ca009209cc417bdad529
parent6a3d031a12e4812fd792f97587981afe578040eb (diff)
downloademacs-52cf0d5d98c51c3591ca5d376fd4e85cd9b72d7f.tar.gz
emacs-52cf0d5d98c51c3591ca5d376fd4e85cd9b72d7f.zip
Do not show string-rectangle preview if minibuffer is empty
* lisp/rect.el (rectangle--string-preview): Remove condition that sets preview string to the default replacement string.
-rw-r--r--lisp/rect.el3
1 files changed, 0 insertions, 3 deletions
diff --git a/lisp/rect.el b/lisp/rect.el
index fb85b187d77..70a542d6724 100644
--- a/lisp/rect.el
+++ b/lisp/rect.el
@@ -410,9 +410,6 @@ With a prefix (or a FILL) argument, also fill too short lines."
410(defun rectangle--string-preview () 410(defun rectangle--string-preview ()
411 (when rectangle-preview 411 (when rectangle-preview
412 (let ((str (minibuffer-contents))) 412 (let ((str (minibuffer-contents)))
413 (when (equal str "")
414 (setq str (or (car-safe minibuffer-default)
415 (if (stringp minibuffer-default) minibuffer-default))))
416 (when str (setq str (propertize str 'face 'rectangle-preview))) 413 (when str (setq str (propertize str 'face 'rectangle-preview)))
417 (with-selected-window rectangle--string-preview-window 414 (with-selected-window rectangle--string-preview-window
418 (unless (or (null rectangle--string-preview-state) 415 (unless (or (null rectangle--string-preview-state)