* emulation/cua-rect.el (cua--highlight-rectangle): Avoid error at point-min.

Fixes: debbugs:18309

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 53707b23670edd111b8dc740d6b59098a430ea75..3a53d8f9ce5957aaffaf0637ab7ce4d4ac170898 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2014-08-25  Glenn Morris  <rgm@gnu.org>
+
+       * emulation/cua-rect.el (cua--highlight-rectangle):
+       Avoid error at point-min.  (Bug#18309)
+
 2014-08-18  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * progmodes/python.el (python-shell-prompt-detect): Remove redundant

diff --git a/lisp/emulation/cua-rect.el b/lisp/emulation/cua-rect.el
index 31dd137a6b9b52eb42fc4bc0c641a05f90bb03e1..4620b0e8c0fcb784c24709e231f05bfaa2a747bd 100644 (file)
--- a/lisp/emulation/cua-rect.el
+++ b/lisp/emulation/cua-rect.el
@@ -794,7 +794,7 @@ If command is repeated at same position, delete the rectangle."
                               (make-string
                                (- l cl0 (if (and (= le pl) (/= le lb)) 1 0))
                                (if cua--virtual-edges-debug ?. ?\s))
-                              'face (or (get-text-property (1- s) 'face) 'default)))
+                              'face (or (get-text-property (max (1- s) (point-min)) 'face) 'default)))
                     (if (/= pl le)
                         (setq s (1- s))))
                   (cond