[Emacs-diffs] emacs-24 r117456: * emulation/cua-rect.el (cua--highlight-rectangle): Avoid error at point-min.

[Glenn Morris]

------------------------------------------------------------
revno: 117456
revision-id: address@hidden
parent: address@hidden
fixes bug: http://debbugs.gnu.org/18309
committer: Glenn Morris <address@hidden>
branch nick: emacs-24
timestamp: Mon 2014-08-25 12:40:53 -0400
message:
  * emulation/cua-rect.el (cua--highlight-rectangle): Avoid error at point-min.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emulation/cua-rect.el     cuarect.el-20091113204419-o5vbwnq5f7feedwu-2417

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2014-08-18 16:11:43 +0000
+++ b/lisp/ChangeLog    2014-08-25 16:40:53 +0000
@@ -1,3 +1,8 @@
+2014-08-25  Glenn Morris  <address@hidden>
+
+       * emulation/cua-rect.el (cua--highlight-rectangle):
+       Avoid error at point-min.  (Bug#18309)
+
 2014-08-18  Stefan Monnier  <address@hidden>
 
        * progmodes/python.el (python-shell-prompt-detect): Remove redundant

=== modified file 'lisp/emulation/cua-rect.el'
--- a/lisp/emulation/cua-rect.el        2014-07-06 23:58:52 +0000
+++ b/lisp/emulation/cua-rect.el        2014-08-25 16:40:53 +0000
@@ -794,7 +794,7 @@
                               (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