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

[Glenn Morris]

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