procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Do not show string-rectangle preview if minibuffer is empty

Browse source 
* lisp/rect.el (rectangle--string-preview): Remove condition that sets
preview string to the default replacement string.
This commit is contained in:
Mark Oteiza 2016-07-21 16:54:03 -04:00
parent 6a3d031a12
commit 52cf0d5d98
1 changed files with 0 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lisp/rect.el
View file

@ -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)