diff options
| author | Mark Oteiza | 2016-07-21 16:54:03 -0400 |
|---|---|---|
| committer | Mark Oteiza | 2016-07-21 16:54:03 -0400 |
| commit | 52cf0d5d98c51c3591ca5d376fd4e85cd9b72d7f (patch) | |
| tree | bcebafcf50ca28e36047ca009209cc417bdad529 | |
| parent | 6a3d031a12e4812fd792f97587981afe578040eb (diff) | |
| download | emacs-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.el | 3 |
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) |