Commit 52cf0d5d authored by Mark Oteiza's avatar Mark Oteiza
Browse files

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.
parent 6a3d031a
...@@ -410,9 +410,6 @@ With a prefix (or a FILL) argument, also fill too short lines." ...@@ -410,9 +410,6 @@ With a prefix (or a FILL) argument, also fill too short lines."
(defun rectangle--string-preview () (defun rectangle--string-preview ()
(when rectangle-preview (when rectangle-preview
(let ((str (minibuffer-contents))) (let ((str (minibuffer-contents)))
(when (equal str "")
(setq str (or (car-safe minibuffer-default)
(if (stringp minibuffer-default) minibuffer-default))))
(when str (setq str (propertize str 'face 'rectangle-preview))) (when str (setq str (propertize str 'face 'rectangle-preview)))
(with-selected-window rectangle--string-preview-window (with-selected-window rectangle--string-preview-window
(unless (or (null rectangle--string-preview-state) (unless (or (null rectangle--string-preview-state)
......
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