* cua-rect.el (cua--activate-rectangle): Avoid setting cua--rectangle to nil.

Fixes: debbugs:17877

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index d97faa780c23768eae26f4f8eaf3894b3f82de15..bfa5c5cd24b5ebcedada8f403ddb025619d53588 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-07-06  Glenn Morris  <rgm@gnu.org>
+
+       * emulation/cua-rect.el (cua--activate-rectangle):
+       Avoid setting cua--rectangle to nil.  (Bug#17877)
+
 2014-07-06  Stephen Berman  <stephen.berman@gmx.net>
 
        * calendar/todo-mode.el: Fix wrong-type-argument error when

diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index d516bd4c7ccda1257436f9d9e5a3f7fe170415f6..31dd137a6b9b52eb42fc4bc0c641a05f90bb03e1 100644 (file)
--- a/lisp/emulation/cua-rect.el
+++ b/lisp/emulation/cua-rect.el
@@ -726,11 +726,11 @@ If command is repeated at same position, delete the rectangle."
   ;; Set cua--rectangle to indicate we're marking a rectangle.
   ;; Be careful if we are already marking a rectangle.
   (setq cua--rectangle
-        (if (and cua--last-rectangle
+        (or (and cua--last-rectangle
                  (eq (car cua--last-rectangle) (current-buffer))
-                 (eq (car (cdr cua--last-rectangle)) (point)))
-            (cdr (cdr cua--last-rectangle))
-          (cua--rectangle-get-corners))
+                 (eq (car (cdr cua--last-rectangle)) (point))
+                 (cdr (cdr cua--last-rectangle)))
+            (cua--rectangle-get-corners))
         cua--status-string (if (cua--rectangle-virtual-edges) " [R]" "")
         cua--last-rectangle nil)
   (activate-mark))