GNU bug report logs - #17877
24.3.92; Errors from cua-rectangle-mark-mode

Previous Next

Full log

View this message in rfc822 format

From: Mat Smiglarski <penthief <at> SDF.ORG>
To: 17877 <at> debbugs.gnu.org
Subject: bug#17877: 24.3.92; Errors from cua-rectangle-mark-mode
Date: Sun, 06 Jul 2014 15:25:00 +0100

On 2014-06-30 00:38, Glenn Morris wrote:
> penthief wrote:
> 
>> cua--activate-rectangle: Wrong type argument: arrayp, nil
> 
> With almost no testing, this seems to fix it:

Yes, your patch seems to work perfectly.

> 
> *** lisp/emulation/cua-rect.el	2014-01-01 07:43:34 +0000
> --- lisp/emulation/cua-rect.el	2014-06-29 23:36:26 +0000
> ***************
> *** 726,735 ****
>     ;; Set cua--rectangle to indicate we're marking a rectangle.
>     ;; Be careful if we are already marking a rectangle.
>     (setq cua--rectangle
> !         (if (and cua--last-rectangle
>                    (eq (car cua--last-rectangle) (current-buffer))
> !                  (eq (car (cdr cua--last-rectangle)) (point)))
> !             (cdr (cdr cua--last-rectangle))
>             (cua--rectangle-get-corners))
>           cua--status-string (if (cua--rectangle-virtual-edges) " [R]" 
> "")
>           cua--last-rectangle nil)
> --- 726,735 ----
>     ;; Set cua--rectangle to indicate we're marking a rectangle.
>     ;; Be careful if we are already marking a rectangle.
>     (setq cua--rectangle
> !         (or (and cua--last-rectangle
>                    (eq (car cua--last-rectangle) (current-buffer))
> !                  (eq (car (cdr cua--last-rectangle)) (point))
> !                  (cdr (cdr cua--last-rectangle)))
>               (cua--rectangle-get-corners))
>           cua--status-string (if (cua--rectangle-virtual-edges) " [R]" 
> "")
>           cua--last-rectangle nil)

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.