From 31ca1841d2e25983fbcc44302ee9eff0b3a1554a Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 18 Jul 2014 21:43:29 -0400 Subject: [PATCH] * lisp/rect.el (rectangle--string-preview): Don't assume there a non-nil default. Fixes: debbugs:17984 --- lisp/ChangeLog | 5 +++++ lisp/rect.el | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index ac591963c0f..a468cbfc801 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2014-07-19 Stefan Monnier + + * rect.el (rectangle--string-preview): Don't assume there + a non-nil default (bug#17984). + 2014-07-16 Glenn Morris * desktop.el (after-init-hook): Disable startup frame restoration diff --git a/lisp/rect.el b/lisp/rect.el index 4c3aa08d7bd..e536e3e372c 100644 --- a/lisp/rect.el +++ b/lisp/rect.el @@ -396,7 +396,7 @@ With a prefix (or a FILL) argument, also fill too short lines." (when (equal str "") (setq str (or (car-safe minibuffer-default) (if (stringp minibuffer-default) minibuffer-default)))) - (setq str (propertize str 'face 'region)) + (when str (setq str (propertize str 'face 'region))) (with-selected-window rectangle--string-preview-window (unless (or (null rectangle--string-preview-state) (equal str (car rectangle--string-preview-state))) -- 2.39.5