bug#18309: 24.3.93; cua-rectangle-mark-mode error

[Glenn Morris <rgm@gnu.org>]

João Távora wrote:

> In the *scratch* buffer
>
>    M-x beginning-of-buffer
>    M-x newline
>    M-x forward-word
>    M-x cua-rectangle-mark-mode
>    M-x cua-resize-rectangle-left
>    M-x cua-resize-rectangle-up
>
> An error is signalled
>
>    Error in post-command-hook (cua--rectangle-post-command):
>    (args-out-of-range 0 0)

This seems to avoid the error, but I never use this stuff...

*** lisp/emulation/cua-rect.el	2014-07-06 23:58:52 +0000
--- lisp/emulation/cua-rect.el	2014-08-21 20:44:23 +0000
***************
*** 794,800 ****
  			       (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)))
  		     (if (/= pl le)
  			 (setq s (1- s))))
  		   (cond
--- 794,800 ----
  			       (make-string
  				(- l cl0 (if (and (= le pl) (/= le lb)) 1 0))
  				(if cua--virtual-edges-debug ?. ?\s))
! 			       'face (or (get-text-property (max (1- s) (point-min)) 'face) 'default)))
  		     (if (/= pl le)
  			 (setq s (1- s))))
  		   (cond