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

Fixes: debbugs:18309

lisp/ChangeLog

+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

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