GNU bug report logs - #18047
24.4.50; Wrong type argument: arrayp, nil for `cua-mark-rectangle-mode'

Previous Next

To add a comment to this bug, you must first unarchive it, by sending
a message to control AT debbugs.gnu.org, with unarchive 18047 in the body.
You can then email your comments to 18047 AT debbugs.gnu.org in the normal way.

Toggle the display of automated, internal messages from the tracker.

Message #5 received at submit <at> debbugs.gnu.org (full text, mbox):

From: Drew Adams <drew.adams <at> oracle.com>
To: bug-gnu-emacs <at> gnu.org
Subject: 24.4.50; Wrong type argument: arrayp, nil for
 `cua-mark-rectangle-mode'
Date: Thu, 17 Jul 2014 23:03:14 -0700 (PDT)

emacs -Q

1. M-x load-library cua-rect.el

2. M-x set-variable debug-on-error t

3. Select text with the mouse, so its beginning and end are on different
   lines and columns (so they define a rectangle).

4. M-x cua-rectangle-mark-mode RET
   C-g

Repeat 3 & 4, selecting a different rectangle for 3.

You get this backtrace (or similar):

Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
  aref(nil 6)
  (and (aref cua--rectangle 6))
  cua--rectangle-virtual-edges()
  (if (cua--rectangle-virtual-edges) " [R]" "")
  (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)
  cua--activate-rectangle()
  (progn (if (and reopen cua--last-rectangle (eq (car cua--last-rectangle) (current-buffer))) (goto-char (car (cdr cua--last-rectangle))) (if (not mark-active) (push-mark nil nil t))) (cua--activate-rectangle) (cua--rectangle-set-corners) (if cua-enable-rectangle-auto-help (cua-help-for-rectangle t)))
  (if (not cua--rectangle) (progn (if (and reopen cua--last-rectangle (eq (car cua--last-rectangle) (current-buffer))) (goto-char (car (cdr cua--last-rectangle))) (if (not mark-active) (push-mark nil nil t))) (cua--activate-rectangle) (cua--rectangle-set-corners) (if cua-enable-rectangle-auto-help (cua-help-for-rectangle t))))
  cua-set-rectangle-mark()
  (cond (cua-rectangle-mark-mode (add-hook (quote deactivate-mark-hook) (function (lambda nil (cua-rectangle-mark-mode -1)))) (add-hook (quote post-command-hook) (function cua--rectangle-post-command) nil t) (cua-set-rectangle-mark)) (t (cua--deactivate-rectangle) (remove-hook (quote post-command-hook) (function cua--rectangle-post-command) t)))
  (let ((last-message (current-message))) (setq cua-rectangle-mark-mode (if (eq arg (quote toggle)) (not cua-rectangle-mark-mode) (> (prefix-numeric-value arg) 0))) (cond (cua-rectangle-mark-mode (add-hook (quote deactivate-mark-hook) (function (lambda nil (cua-rectangle-mark-mode -1)))) (add-hook (quote post-command-hook) (function cua--rectangle-post-command) nil t) (cua-set-rectangle-mark)) (t (cua--deactivate-rectangle) (remove-hook (quote post-command-hook) (function cua--rectangle-post-command) t))) (run-hooks (quote cua-rectangle-mark-mode-hook) (if cua-rectangle-mark-mode (quote cua-rectangle-mark-mode-on-hook) (quote cua-rectangle-mark-mode-off-hook))) (if (called-interactively-p (quote any)) (progn nil (if (and (current-message) (not (equal last-message (current-message)))) nil (message "Cua-Rectangle-Mark mode %sabled" (if cua-rectangle-mark-mode "en" "dis"))))))
  cua-rectangle-mark-mode(toggle)
  funcall-interactively(cua-rectangle-mark-mode toggle)
  call-interactively(cua-rectangle-mark-mode record nil)
  command-execute(cua-rectangle-mark-mode record)
  execute-extended-command(nil "cua-rectangle-mark-mode")
  funcall-interactively(execute-extended-command nil "cua-rectangle-mark-mode")
  call-interactively(execute-extended-command nil nil)
  command-execute(execute-extended-command)

In GNU Emacs 24.4.50.1 (i686-pc-mingw32)
 of 2014-06-28 on ODIEONE
Bzr revision: 117431 rgm <at> gnu.org-20140628015517-eku6hj8mpgcvfnso
Windowing system distributor `Microsoft Corp.', version 6.1.7601
Configured using:
 `configure --prefix=3D/c/Devel/emacs/snapshot/trunk
 --enable-checking=3Dyes,glyphs 'CFLAGS=3D-O0 -g3'
 LDFLAGS=3D-Lc:/Devel/emacs/lib 'CPPFLAGS=3D-DGC_MCHECK=3D1
 -Ic:/Devel/emacs/include''

Message #14 received at 18047 <at> debbugs.gnu.org (full text, mbox):

From: Drew Adams <drew.adams <at> oracle.com>
To: "18047 <at> debbugs.gnu.org" <18047 <at> debbugs.gnu.org>
Subject: RE: bug#18047: 24.4.50; Wrong type argument: arrayp, nil for
 `cua-mark-rectangle-mode'
Date: Fri, 22 Oct 2021 23:01:29 +0000

[Message part 1 (text/plain, inline)]

ping.  It's been 7 years.

This was force-merged with bug #17877, and a fix was
supposedly applied to some branch, but the bug is still open.

[winmail.dat (application/ms-tnef, attachment)]

Message #17 received at 18047 <at> debbugs.gnu.org (full text, mbox):

From: Lars Ingebrigtsen <larsi <at> gnus.org>
To: Drew Adams <drew.adams <at> oracle.com>
Cc: "18047 <at> debbugs.gnu.org" <18047 <at> debbugs.gnu.org>
Subject: Re: bug#18047: 24.4.50; Wrong type argument: arrayp, nil for
 `cua-mark-rectangle-mode'
Date: Sun, 24 Oct 2021 15:34:03 +0200

Drew Adams <drew.adams <at> oracle.com> writes:

> ping.  It's been 7 years.
>
> This was force-merged with bug #17877, and a fix was
> supposedly applied to some branch, but the bug is still open.

It was merged with a closed report, so I think that means that this one
is closed, too?

(And I'm not able to reproduce the error.)

-- 
(domestic pets only, the antidote for overdose, milk.)
   bloggy blog: http://lars.ingebrigtsen.no

Message #20 received at 18047 <at> debbugs.gnu.org (full text, mbox):

From: Drew Adams <drew.adams <at> oracle.com>
To: Lars Ingebrigtsen <larsi <at> gnus.org>
Cc: "18047 <at> debbugs.gnu.org" <18047 <at> debbugs.gnu.org>
Subject: RE: [External] : Re: bug#18047: 24.4.50; Wrong type argument: arrayp,
 nil for `cua-mark-rectangle-mode'
Date: Sun, 24 Oct 2021 21:44:06 +0000

> It was merged with a closed report, so I think that means that this one
> is closed, too?
> 
> (And I'm not able to reproduce the error.)

Sorry; my bad.  I misread it.

Previous Next

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