GNU bug report logs - #9726
vc-dir error for directory ignored by bzr

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 9726 in the body.
You can then email your comments to 9726 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: Christoph Scholtes <cschol2112 <at> googlemail.com>
To: bug-gnu-emacs <at> gnu.org
Subject: 24.0.90; vc-dir: error in process sentinel - Wrong argument type
Date: Mon, 10 Oct 2011 22:03:23 -0600

Running Emacs 24.0.90 (r106044) with Windows 7/64bit.

The following errors occur when using vc-dir in the Emacs /bin directory
of the trunk tree:

error in process sentinel: vc-dir-node-directory: Wrong type argument:
arrayp, nil 
error in process sentinel: Wrong type argument: arrayp, nil

Recipe (from trunk\bin directory!):
emacs -Q
M-x vc-dir
C-j
error occurs



In GNU Emacs 24.0.90.1 (i386-mingw-nt6.1.7601)
 of 2011-10-10 on MARVIN
Windowing system distributor `Microsoft Corp.', version 6.1.7601
configured using `configure --with-gcc (4.5) --no-opt --cflags -I"C:/Program Files (x86)/GnuWin32/include" -ID:/devel/emacs/libXpm-3.5.8/include -ID:/devel/emacs/libXpm-3.5.8/src -ID:/devel/emacs/gnutls-2.10.5-x86/include --ldflags -LD:/devel/emacs/gnutls-2.10.5-x86/lib'

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: ENU
  value of $XMODIFIERS: nil
  locale-coding-system: cp1252
  default enable-multibyte-characters: t

Major mode: Emacs-Lisp

Minor modes in effect:
  paredit-mode: t
  my-keys-minor-mode: t
  erc-autojoin-mode: t
  erc-track-mode: t
  erc-match-mode: t
  erc-pcomplete-mode: t
  erc-stamp-mode: t
  recentf-mode: t
  desktop-save-mode: t
  autopair-mode: t
  autopair-global-mode: t
  yas/global-mode: t
  yas/minor-mode: t
  global-auto-revert-mode: t
  delete-selection-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  size-indication-mode: t
  column-number-mode: t
  line-number-mode: t

Recent input:
M-x r e p o r t - e <tab> <return>

Recent messages:
Loading c:/Users/Christoph/AppData/Roaming/.emacs.d/keybindings.el (source)...done
Loading c:/Users/Christoph/AppData/Roaming/.emacs.d/init-custom.el (source)...done
Loading vc-hg...done
Loading vc-bzr...done
Wrote c:/Users/Christoph/AppData/Roaming/.emacs.d/data/.emacs.desktop.lock
Desktop: 4 buffers restored.
For information about GNU Emacs and the GNU system, type C-h C-a.
call-interactively: End of buffer [6 times]
goto-history-element: End of history; no default available
goto-history-element: Beginning of history; no preceding item

Load-path shadows:
None found.

Features:
(shadow sort gnus-cite mail-extr gnus-msg gnus-art mm-uu mml2015
epg-config mm-view mml-smime smime password-cache dig mailcap emacsbug
vc-bzr vc-hg paredit my-zenburn-theme erc-join erc-track erc-match
erc-pcomplete erc-stamp erc-goodies erc erc-backend erc-compat thingatpt
ispell bookmark+ bookmark+-key dired-x dired bookmark+-1 nnir gnus-sum
nnoo gnus-group gnus-undo nnmail mail-source gnus-start gnus-spec
gnus-int gnus-range message format-spec rfc822 mml mml-sec mm-decode
mm-bodies mm-encode mail-parse rfc2231 rfc2047 rfc2045 ietf-drums
mailabbrev gmm-utils mailheader gnus-win gnus gnus-ems nnheader
gnus-util mail-utils mm-util mail-prsvr bookmark+-bmu help-mode view
bookmark+-lit pp+ bookmark+-mac bookmark pp recentf tree-widget wid-edit
midnight desktop ibuffer uniquify autopair google-c-style cc-styles
cc-align cc-engine cc-vars cc-defs browse-kill-ring+ browse-kill-ring
second-sel ido yasnippet dropdown-list derived edmacro kmacro assoc cl
org-habit org-agenda org byte-opt warnings bytecomp byte-compile cconv
macroexp ob-emacs-lisp ob-tangle ob-ref ob-lob ob-table org-footnote
org-src ob-comint ob-keys ob ob-eval org-pcomplete pcomplete comint ring
org-list org-faces org-compat org-entities org-macs noutline outline
easy-mmode regexp-opt cal-menu easymenu calendar cal-loaddefs
org-install server advice help-fns advice-preload debbugs-autoloads
package tabulated-list autorevert delsel time-date tooltip ediff-hook
vc-hooks lisp-float-type mwheel dos-w32 disp-table ls-lisp w32-win
w32-vars tool-bar dnd fontset image fringe lisp-mode register page
menu-bar rfn-eshadow timer select scroll-bar mouse jit-lock font-lock
syntax facemenu font-core frame cham georgian utf-8-lang misc-lang
vietnamese tibetan thai tai-viet lao korean japanese hebrew greek
romanian slovak czech european ethiopic indian cyrillic chinese
case-table epa-hook jka-cmpr-hook help simple abbrev minibuffer button
faces cus-face files text-properties overlay sha1 md5 base64 format env
code-pages mule custom widget hashtable-print-readable backquote
make-network-process multi-tty emacs)

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

From: Christoph Scholtes <cschol2112 <at> googlemail.com>
To: 9726 <at> debbugs.gnu.org
Subject: Re: bug#9726: 24.0.90; vc-dir: error in process sentinel - Wrong
	argument type
Date: Mon, 10 Oct 2011 22:18:24 -0600

On 10/10/2011 10:03 PM, I wrote:
> Running Emacs 24.0.90 (r106044) with Windows 7/64bit.
> The following errors occur when using vc-dir in the Emacs /bin directory
> of the trunk tree:
>
> error in process sentinel: vc-dir-node-directory: Wrong type argument:
> arrayp, nil
> error in process sentinel: Wrong type argument: arrayp, nil
>
> Recipe (from trunk\bin directory!):
> emacs -Q
> M-x vc-dir
> C-j
> error occurs

Elisp backtrace:

Debugger entered--Lisp error: (wrong-type-argument arrayp nil)
  apply(debug error (wrong-type-argument arrayp nil))
  edebug(error (wrong-type-argument arrayp nil))
  signal(wrong-type-argument (arrayp nil))
  edebug-signal(wrong-type-argument (arrayp nil))
  ewoc-data(nil)
  vc-dir-node-directory(nil)
  vc-dir-update((("." nil) ("COPYING" unregistered)) #<buffer *vc-dir*>)
  (edebug-after (edebug-before 2) 5 (vc-dir-update (edebug-after 0 3 
entries) (edebug-after 0 4 (symbol-value G47125))))
  (save-current-buffer (set-buffer (edebug-after 0 1 (symbol-value 
G47125))) (edebug-after (edebug-before 2) 5 (vc-dir-update (edebug-after 
0 3 entries) (edebug-after 0 4 (symbol-value G47125)))) (edebug-after 
(edebug-before 6) 23 (if (edebug-after 0 7 more-to-come) nil 
(edebug-after (edebug-before 8) 22 (let ((remaining (edebug-after ... 11 
...))) (edebug-after (edebug-before 12) 21 (if (edebug-after 0 13 
remaining) (edebug-after ... 18 ...) (edebug-after ... 20 ...))))))))
  (edebug-after (edebug-before 0) 24 (save-current-buffer (set-buffer 
(edebug-after 0 1 (symbol-value G47125))) (edebug-after (edebug-before 
2) 5 (vc-dir-update (edebug-after 0 3 entries) (edebug-after 0 4 
(symbol-value G47125)))) (edebug-after (edebug-before 6) 23 (if 
(edebug-after 0 7 more-to-come) nil (edebug-after (edebug-before 8) 22 
(let ((remaining ...)) (edebug-after (edebug-before 12) 21 (if ... ... 
...))))))))
  (lambda (G47125) (edebug-after (edebug-before 0) 24 
(save-current-buffer (set-buffer (edebug-after 0 1 (symbol-value 
G47125))) (edebug-after (edebug-before 2) 5 (vc-dir-update (edebug-after 
0 3 entries) (edebug-after 0 4 (symbol-value G47125)))) (edebug-after 
(edebug-before 6) 23 (if (edebug-after 0 7 more-to-come) nil 
(edebug-after (edebug-before 8) 22 (let (...) (edebug-after ... 21 
...))))))))(--buffer--)
  apply((lambda (G47125) (edebug-after (edebug-before 0) 24 
(save-current-buffer (set-buffer (edebug-after 0 1 (symbol-value 
G47125))) (edebug-after (edebug-before 2) 5 (vc-dir-update (edebug-after 
0 3 entries) (edebug-after 0 4 (symbol-value G47125)))) (edebug-after 
(edebug-before 6) 23 (if (edebug-after 0 7 more-to-come) nil 
(edebug-after (edebug-before 8) 22 (let (...) (edebug-after ... 21 
...)))))))) --buffer-- nil)
  (lambda (&rest --cl-rest--) (apply (quote (lambda (G47125) 
(edebug-after (edebug-before 0) 24 (save-current-buffer (set-buffer 
(edebug-after 0 1 ...)) (edebug-after (edebug-before 2) 5 (vc-dir-update 
... ...)) (edebug-after (edebug-before 6) 23 (if ... nil ...)))))) 
(quote --buffer--) --cl-rest--))()
  edebug-enter(edebug-anon2 ((("." nil) ("COPYING" unregistered)) nil) 
(lambda (&rest --cl-rest--) (apply (quote (lambda (G47125) (edebug-after 
(edebug-before 0) 24 (save-current-buffer (set-buffer (edebug-after 0 1 
...)) (edebug-after (edebug-before 2) 5 (vc-dir-update ... ...)) 
(edebug-after (edebug-before 6) 23 (if ... nil ...)))))) (quote 
--buffer--) --cl-rest--)))
  edebug-enter(edebug-anon2 ((("." nil) ("COPYING" unregistered)) nil) 
(lambda (&rest --cl-rest--) (apply (quote (lambda (G47125) (edebug-after 
(edebug-before 0) 24 (save-current-buffer (set-buffer (edebug-after 0 1 
...)) (edebug-after (edebug-before 2) 5 (vc-dir-update ... ...)) 
(edebug-after (edebug-before 6) 23 (if ... nil ...)))))) (quote 
--buffer--) --cl-rest--)))
  (lambda (G47126 entries &optional more-to-come) (edebug-enter (quote 
edebug-anon2) (list entries more-to-come) (list (quote lambda) (quote 
(&rest --cl-rest--)) (list (quote apply) (list (quote quote) (function 
(lambda (G47125) (edebug-after ... 24 ...)))) (list (quote quote) 
G47126) (quote --cl-rest--)))))(--buffer-- (("." nil) ("COPYING" 
unregistered)))
  apply((lambda (G47126 entries &optional more-to-come) (edebug-enter 
(quote edebug-anon2) (list entries more-to-come) (list (quote lambda) 
(quote (&rest --cl-rest--)) (list (quote apply) (list (quote quote) 
(function (lambda (G47125) (edebug-after ... 24 ...)))) (list (quote 
quote) G47126) (quote --cl-rest--))))) --buffer-- (("." nil) ("COPYING" 
unregistered)))
  (lambda (&rest --cl-rest--) (apply (quote (lambda (G47126 entries 
&optional more-to-come) (edebug-enter (quote edebug-anon2) (list entries 
more-to-come) (list (quote lambda) (quote (&rest --cl-rest--)) (list 
(quote apply) (list ... ...) (list ... G47126) (quote --cl-rest--)))))) 
(quote --buffer--) --cl-rest--))((("." nil) ("COPYING" unregistered)))
  vc-bzr-after-dir-status((lambda (&rest --cl-rest--) (apply (quote 
(lambda (G47126 entries &optional more-to-come) (edebug-enter (quote 
edebug-anon2) (list entries more-to-come) (list (quote lambda) (quote 
(&rest --cl-rest--)) (list (quote apply) (list ... ...) (list ... 
G47126) (quote --cl-rest--)))))) (quote --buffer--) --cl-rest--)) "bin/")
  eval((vc-bzr-after-dir-status (quote (lambda (&rest --cl-rest--) 
(apply (quote (lambda (G47126 entries &optional more-to-come) 
(edebug-enter (quote edebug-anon2) (list entries more-to-come) (list ... 
... ...)))) (quote --buffer--) --cl-rest--))) (file-relative-name 
"d:/devel/emacs/emacs-bzr/trunk_jenkins/bin/" (vc-bzr-root 
"d:/devel/emacs/emacs-bzr/trunk_jenkins/bin/"))))
  vc-exec-after((vc-bzr-after-dir-status (quote (lambda (&rest 
--cl-rest--) (apply (quote (lambda (G47126 entries &optional 
more-to-come) (edebug-enter (quote edebug-anon2) (list entries 
more-to-come) (list ... ... ...)))) (quote --buffer--) --cl-rest--))) 
(file-relative-name "d:/devel/emacs/emacs-bzr/trunk_jenkins/bin/" 
(vc-bzr-root "d:/devel/emacs/emacs-bzr/trunk_jenkins/bin/"))))
  vc-process-sentinel(#<process bzr> "finished\n")
  recursive-edit()
  edebug-recursive-edit()
  edebug-display()
  edebug-debugger(45 after nil)
  edebug-after(42 45 nil)
  (save-current-buffer (set-buffer (edebug-after 0 36 
vc-dir-process-buffer)) (edebug-after (edebug-before 37) 39 (setq 
default-directory (edebug-after 0 38 def-dir))) (edebug-after 
(edebug-before 40) 41 (erase-buffer)) (edebug-after (edebug-before 42) 
45 (vc-call-backend (edebug-after 0 43 backend) (quote dir-status) 
(edebug-after 0 44 def-dir) (list (quote lambda) (quote (&rest 
--cl-rest--)) (list (quote apply) (list (quote quote) (function (lambda 
... ...))) (list (quote quote) --cl-buffer--) (quote --cl-rest--))))))
  (edebug-after (edebug-before 35) 46 (save-current-buffer (set-buffer 
(edebug-after 0 36 vc-dir-process-buffer)) (edebug-after (edebug-before 
37) 39 (setq default-directory (edebug-after 0 38 def-dir))) 
(edebug-after (edebug-before 40) 41 (erase-buffer)) (edebug-after 
(edebug-before 42) 45 (vc-call-backend (edebug-after 0 43 backend) 
(quote dir-status) (edebug-after 0 44 def-dir) (list (quote lambda) 
(quote (&rest --cl-rest--)) (list (quote apply) (list (quote quote) 
(function ...)) (list (quote quote) --cl-buffer--) (quote --cl-rest--)))))))
  (let ((--cl-buffer-- (make-symbol "--buffer--"))) (setf (symbol-value 
--cl-buffer--) (edebug-after (edebug-before 33) 34 (current-buffer))) 
(edebug-after (edebug-before 35) 46 (save-current-buffer (set-buffer 
(edebug-after 0 36 vc-dir-process-buffer)) (edebug-after (edebug-before 
37) 39 (setq default-directory (edebug-after 0 38 def-dir))) 
(edebug-after (edebug-before 40) 41 (erase-buffer)) (edebug-after 
(edebug-before 42) 45 (vc-call-backend (edebug-after 0 43 backend) 
(quote dir-status) (edebug-after 0 44 def-dir) (list (quote lambda) 
(quote (&rest --cl-rest--)) (list (quote apply) (list ... ...) (list ... 
--cl-buffer--) (quote --cl-rest--))))))))
  (lexical-let ((buffer (edebug-after (edebug-before 33) 34 
(current-buffer)))) (edebug-after (edebug-before 35) 46 
(with-current-buffer (edebug-after 0 36 vc-dir-process-buffer) 
(edebug-after (edebug-before 37) 39 (setq default-directory 
(edebug-after 0 38 def-dir))) (edebug-after (edebug-before 40) 41 
(erase-buffer)) (edebug-after (edebug-before 42) 45 (vc-call-backend 
(edebug-after 0 43 backend) (quote dir-status) (edebug-after 0 44 
def-dir) (lambda (entries &optional more-to-come) (edebug-enter (quote 
edebug-anon2) (list entries more-to-come) (function ...))))))))
  (edebug-after (edebug-before 32) 47 (lexical-let ((buffer 
(edebug-after (edebug-before 33) 34 (current-buffer)))) (edebug-after 
(edebug-before 35) 46 (with-current-buffer (edebug-after 0 36 
vc-dir-process-buffer) (edebug-after (edebug-before 37) 39 (setq 
default-directory (edebug-after 0 38 def-dir))) (edebug-after 
(edebug-before 40) 41 (erase-buffer)) (edebug-after (edebug-before 42) 
45 (vc-call-backend (edebug-after 0 43 backend) (quote dir-status) 
(edebug-after 0 44 def-dir) (lambda (entries &optional more-to-come) 
(edebug-enter ... ... ...))))))))
  (let ((def-dir (edebug-after 0 6 default-directory)) (backend 
(edebug-after 0 7 vc-dir-backend))) (edebug-after (edebug-before 8) 9 
(vc-set-mode-line-busy-indicator)) (edebug-after (edebug-before 10) 21 
(unless (edebug-after (edebug-before 11) 13 (buffer-live-p (edebug-after 
0 12 vc-dir-process-buffer))) (edebug-after (edebug-before 14) 20 (setq 
vc-dir-process-buffer (edebug-after (edebug-before 15) 19 
(generate-new-buffer (edebug-after ... 18 ...))))))) (edebug-after 
(edebug-before 22) 24 (ewoc-map (lambda (info) (edebug-enter (quote 
edebug-anon1) (list info) (function (lambda nil (edebug-after ... 9 
...))))) (edebug-after 0 23 vc-ewoc))) (edebug-after (edebug-before 25) 
31 (ewoc-set-hf (edebug-after 0 26 vc-ewoc) (edebug-after (edebug-before 
27) 30 (vc-dir-headers (edebug-after 0 28 backend) (edebug-after 0 29 
def-dir))) "")) (edebug-after (edebug-before 32) 47 (lexical-let 
((buffer (edebug-after (edebug-before 33) 34 (current-buffer)))) 
(edebug-after (edebug-before 35) 46 (with-current-buffer (edebug-after 0 
36 vc-dir-process-buffer) (edebug-after (edebug-before 37) 39 (setq 
default-directory (edebug-after 0 38 def-dir))) (edebug-after 
(edebug-before 40) 41 (erase-buffer)) (edebug-after (edebug-before 42) 
45 (vc-call-backend (edebug-after 0 43 backend) (quote dir-status) 
(edebug-after 0 44 def-dir) (lambda ... ...))))))))
  (edebug-after (edebug-before 5) 48 (let ((def-dir (edebug-after 0 6 
default-directory)) (backend (edebug-after 0 7 vc-dir-backend))) 
(edebug-after (edebug-before 8) 9 (vc-set-mode-line-busy-indicator)) 
(edebug-after (edebug-before 10) 21 (unless (edebug-after (edebug-before 
11) 13 (buffer-live-p (edebug-after 0 12 vc-dir-process-buffer))) 
(edebug-after (edebug-before 14) 20 (setq vc-dir-process-buffer 
(edebug-after (edebug-before 15) 19 (generate-new-buffer ...)))))) 
(edebug-after (edebug-before 22) 24 (ewoc-map (lambda (info) 
(edebug-enter (quote edebug-anon1) (list info) (function (lambda nil 
...)))) (edebug-after 0 23 vc-ewoc))) (edebug-after (edebug-before 25) 
31 (ewoc-set-hf (edebug-after 0 26 vc-ewoc) (edebug-after (edebug-before 
27) 30 (vc-dir-headers (edebug-after 0 28 backend) (edebug-after 0 29 
def-dir))) "")) (edebug-after (edebug-before 32) 47 (lexical-let 
((buffer (edebug-after (edebug-before 33) 34 (current-buffer)))) 
(edebug-after (edebug-before 35) 46 (with-current-buffer (edebug-after 0 
36 vc-dir-process-buffer) (edebug-after (edebug-before 37) 39 (setq 
default-directory ...)) (edebug-after (edebug-before 40) 41 
(erase-buffer)) (edebug-after (edebug-before 42) 45 (vc-call-backend ... 
... ... ...))))))))
  (if (edebug-after (edebug-before 1) 2 (vc-dir-busy)) (edebug-after 
(edebug-before 3) 4 (error "Another update process is in progress, 
cannot run two at a time")) (edebug-after (edebug-before 5) 48 (let 
((def-dir (edebug-after 0 6 default-directory)) (backend (edebug-after 0 
7 vc-dir-backend))) (edebug-after (edebug-before 8) 9 
(vc-set-mode-line-busy-indicator)) (edebug-after (edebug-before 10) 21 
(unless (edebug-after (edebug-before 11) 13 (buffer-live-p (edebug-after 
0 12 vc-dir-process-buffer))) (edebug-after (edebug-before 14) 20 (setq 
vc-dir-process-buffer (edebug-after ... 19 ...))))) (edebug-after 
(edebug-before 22) 24 (ewoc-map (lambda (info) (edebug-enter (quote 
edebug-anon1) (list info) (function ...))) (edebug-after 0 23 vc-ewoc))) 
(edebug-after (edebug-before 25) 31 (ewoc-set-hf (edebug-after 0 26 
vc-ewoc) (edebug-after (edebug-before 27) 30 (vc-dir-headers 
(edebug-after 0 28 backend) (edebug-after 0 29 def-dir))) "")) 
(edebug-after (edebug-before 32) 47 (lexical-let ((buffer (edebug-after 
... 34 ...))) (edebug-after (edebug-before 35) 46 (with-current-buffer 
(edebug-after 0 36 vc-dir-process-buffer) (edebug-after ... 39 ...) 
(edebug-after ... 41 ...) (edebug-after ... 45 ...))))))))
  (edebug-after (edebug-before 0) 49 (if (edebug-after (edebug-before 
1) 2 (vc-dir-busy)) (edebug-after (edebug-before 3) 4 (error "Another 
update process is in progress, cannot run two at a time")) (edebug-after 
(edebug-before 5) 48 (let ((def-dir (edebug-after 0 6 
default-directory)) (backend (edebug-after 0 7 vc-dir-backend))) 
(edebug-after (edebug-before 8) 9 (vc-set-mode-line-busy-indicator)) 
(edebug-after (edebug-before 10) 21 (unless (edebug-after (edebug-before 
11) 13 (buffer-live-p ...)) (edebug-after (edebug-before 14) 20 (setq 
vc-dir-process-buffer ...)))) (edebug-after (edebug-before 22) 24 
(ewoc-map (lambda (info) (edebug-enter ... ... ...)) (edebug-after 0 23 
vc-ewoc))) (edebug-after (edebug-before 25) 31 (ewoc-set-hf 
(edebug-after 0 26 vc-ewoc) (edebug-after (edebug-before 27) 30 
(vc-dir-headers ... ...)) "")) (edebug-after (edebug-before 32) 47 
(lexical-let ((buffer ...)) (edebug-after (edebug-before 35) 46 
(with-current-buffer ... ... ... ...))))))))
  (lambda nil (edebug-after (edebug-before 0) 49 (if (edebug-after 
(edebug-before 1) 2 (vc-dir-busy)) (edebug-after (edebug-before 3) 4 
(error "Another update process is in progress, cannot run two at a 
time")) (edebug-after (edebug-before 5) 48 (let ((def-dir (edebug-after 
0 6 default-directory)) (backend (edebug-after 0 7 vc-dir-backend))) 
(edebug-after (edebug-before 8) 9 (vc-set-mode-line-busy-indicator)) 
(edebug-after (edebug-before 10) 21 (unless (edebug-after ... 13 ...) 
(edebug-after ... 20 ...))) (edebug-after (edebug-before 22) 24 
(ewoc-map (lambda ... ...) (edebug-after 0 23 vc-ewoc))) (edebug-after 
(edebug-before 25) 31 (ewoc-set-hf (edebug-after 0 26 vc-ewoc) 
(edebug-after ... 30 ...) "")) (edebug-after (edebug-before 32) 47 
(lexical-let (...) (edebug-after ... 46 ...))))))))()
  edebug-enter(vc-dir-refresh nil (lambda nil (edebug-after 
(edebug-before 0) 49 (if (edebug-after (edebug-before 1) 2 
(vc-dir-busy)) (edebug-after (edebug-before 3) 4 (error "Another update 
process is in progress, cannot run two at a time")) (edebug-after 
(edebug-before 5) 48 (let ((def-dir (edebug-after 0 6 
default-directory)) (backend (edebug-after 0 7 vc-dir-backend))) 
(edebug-after (edebug-before 8) 9 (vc-set-mode-line-busy-indicator)) 
(edebug-after (edebug-before 10) 21 (unless (edebug-after ... 13 ...) 
(edebug-after ... 20 ...))) (edebug-after (edebug-before 22) 24 
(ewoc-map (lambda ... ...) (edebug-after 0 23 vc-ewoc))) (edebug-after 
(edebug-before 25) 31 (ewoc-set-hf (edebug-after 0 26 vc-ewoc) 
(edebug-after ... 30 ...) "")) (edebug-after (edebug-before 32) 47 
(lexical-let (...) (edebug-after ... 46 ...)))))))))
  vc-dir-refresh()
  vc-dir-mode()
  (edebug-after (edebug-before 41) 42 (vc-dir-mode))
  (let ((use-vc-backend (edebug-after 0 40 backend))) (edebug-after 
(edebug-before 41) 42 (vc-dir-mode)))
  (edebug-after (edebug-before 39) 43 (let ((use-vc-backend 
(edebug-after 0 40 backend))) (edebug-after (edebug-before 41) 42 
(vc-dir-mode))))
  (if (edebug-after (edebug-before 35) 36 (derived-mode-p (quote 
vc-dir-mode))) (edebug-after (edebug-before 37) 38 (vc-dir-refresh)) 
(edebug-after (edebug-before 39) 43 (let ((use-vc-backend (edebug-after 
0 40 backend))) (edebug-after (edebug-before 41) 42 (vc-dir-mode)))))
  (edebug-after (edebug-before 34) 44 (if (edebug-after (edebug-before 
35) 36 (derived-mode-p (quote vc-dir-mode))) (edebug-after 
(edebug-before 37) 38 (vc-dir-refresh)) (edebug-after (edebug-before 39) 
43 (let ((use-vc-backend (edebug-after 0 40 backend))) (edebug-after 
(edebug-before 41) 42 (vc-dir-mode))))))
  (lambda nil (edebug-after (edebug-before 18) 25 (unless (edebug-after 
0 19 backend) (edebug-after (edebug-before 20) 24 (setq backend 
(edebug-after (edebug-before 21) 23 (vc-responsible-backend 
(edebug-after 0 22 dir))))))) (edebug-after (edebug-before 26) 33 (let 
(pop-up-windows) (edebug-after (edebug-before 27) 32 (pop-to-buffer 
(edebug-after (edebug-before 28) 31 (vc-dir-prepare-status-buffer 
"*vc-dir*" (edebug-after 0 29 dir) (edebug-after 0 30 backend))))))) 
(edebug-after (edebug-before 34) 44 (if (edebug-after (edebug-before 35) 
36 (derived-mode-p (quote vc-dir-mode))) (edebug-after (edebug-before 
37) 38 (vc-dir-refresh)) (edebug-after (edebug-before 39) 43 (let 
((use-vc-backend (edebug-after 0 40 backend))) (edebug-after 
(edebug-before 41) 42 (vc-dir-mode)))))))()
  edebug-enter(vc-dir ("d:/devel/emacs/emacs-bzr/trunk_jenkins/bin" 
nil) (lambda nil (edebug-after (edebug-before 18) 25 (unless 
(edebug-after 0 19 backend) (edebug-after (edebug-before 20) 24 (setq 
backend (edebug-after (edebug-before 21) 23 (vc-responsible-backend 
(edebug-after 0 22 dir))))))) (edebug-after (edebug-before 26) 33 (let 
(pop-up-windows) (edebug-after (edebug-before 27) 32 (pop-to-buffer 
(edebug-after (edebug-before 28) 31 (vc-dir-prepare-status-buffer 
"*vc-dir*" (edebug-after 0 29 dir) (edebug-after 0 30 backend))))))) 
(edebug-after (edebug-before 34) 44 (if (edebug-after (edebug-before 35) 
36 (derived-mode-p (quote vc-dir-mode))) (edebug-after (edebug-before 
37) 38 (vc-dir-refresh)) (edebug-after (edebug-before 39) 43 (let 
((use-vc-backend (edebug-after 0 40 backend))) (edebug-after 
(edebug-before 41) 42 (vc-dir-mode))))))))
  edebug-enter(vc-dir ("d:/devel/emacs/emacs-bzr/trunk_jenkins/bin" 
nil) (lambda nil (edebug-after (edebug-before 18) 25 (unless 
(edebug-after 0 19 backend) (edebug-after (edebug-before 20) 24 (setq 
backend (edebug-after (edebug-before 21) 23 (vc-responsible-backend 
(edebug-after 0 22 dir))))))) (edebug-after (edebug-before 26) 33 (let 
(pop-up-windows) (edebug-after (edebug-before 27) 32 (pop-to-buffer 
(edebug-after (edebug-before 28) 31 (vc-dir-prepare-status-buffer 
"*vc-dir*" (edebug-after 0 29 dir) (edebug-after 0 30 backend))))))) 
(edebug-after (edebug-before 34) 44 (if (edebug-after (edebug-before 35) 
36 (derived-mode-p (quote vc-dir-mode))) (edebug-after (edebug-before 
37) 38 (vc-dir-refresh)) (edebug-after (edebug-before 39) 43 (let 
((use-vc-backend (edebug-after 0 40 backend))) (edebug-after 
(edebug-before 41) 42 (vc-dir-mode))))))))
  vc-dir("d:/devel/emacs/emacs-bzr/trunk_jenkins/bin" nil)
  call-interactively(vc-dir t nil)
  execute-extended-command(nil)
  call-interactively(execute-extended-command nil nil)

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

From: Jason Rumney <jasonr <at> gnu.org>
To: Christoph Scholtes <cschol2112 <at> googlemail.com>
Cc: 9726 <at> debbugs.gnu.org
Subject: Re: bug#9726: 24.0.90;
	vc-dir: error in process sentinel - Wrong argument type
Date: Tue, 11 Oct 2011 22:26:04 +0800

Christoph Scholtes <cschol2112 <at> googlemail.com> writes:

> Running Emacs 24.0.90 (r106044) with Windows 7/64bit.
>
> The following errors occur when using vc-dir in the Emacs /bin directory
> of the trunk tree:
>
> error in process sentinel: vc-dir-node-directory: Wrong type argument:
> arrayp, nil 
> error in process sentinel: Wrong type argument: arrayp, nil
>
> Recipe (from trunk\bin directory!):
> emacs -Q
> M-x vc-dir
> C-j
> error occurs

The same can be reproduced on GNU/Linux by starting from the
autom4te.cache subdirectory of a bzr working tree of Emacs.

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

From: Glenn Morris <rgm <at> gnu.org>
To: Jason Rumney <jasonr <at> gnu.org>
Cc: Christoph Scholtes <cschol2112 <at> googlemail.com>, 9726 <at> debbugs.gnu.org
Subject: Re: bug#9726: 24.0.90;
	vc-dir: error in process sentinel - Wrong argument type
Date: Tue, 11 Oct 2011 14:08:41 -0400

Jason Rumney wrote:

> The same can be reproduced on GNU/Linux by starting from the
> autom4te.cache subdirectory of a bzr working tree of Emacs.

Ie, the error occurs when running vc-dir from a directory that is
ignored by bzr. The following seems to make the error go away, but may
not be complete/correct, since any files in the ignored directory are
reported as unregistered. Mind you, that is how `bzr status -S .'
reports them from the command-line.

*** lisp/vc/vc-bzr.el	2011-09-18 20:43:20 +0000
--- lisp/vc/vc-bzr.el	2011-10-11 18:06:41 +0000
***************
*** 866,872 ****
  		       (" M " . edited) ;; file text modified
  		       ("  *" . edited) ;; execute bit changed
  		       (" M*" . edited) ;; text modified + execute bit changed
! 		       ;; FIXME: what about ignored files?
  		       (" D " . missing)
                         ;; For conflicts, should we list the .THIS/.BASE/.OTHER?
  		       ("C  " . conflict)
--- 866,872 ----
  		       (" M " . edited) ;; file text modified
  		       ("  *" . edited) ;; execute bit changed
  		       (" M*" . edited) ;; text modified + execute bit changed
! 		       ("I  " . ignored)
  		       (" D " . missing)
                         ;; For conflicts, should we list the .THIS/.BASE/.OTHER?
  		       ("C  " . conflict)
***************
*** 916,922 ****
                (push (list new-name 'edited
                            (vc-bzr-create-extra-fileinfo old-name)) result)))
             ;; do nothing for non existent files
!            ((eq translated 'not-found))
             (t
              (push (list (file-relative-name
                           (buffer-substring-no-properties
--- 916,922 ----
                (push (list new-name 'edited
                            (vc-bzr-create-extra-fileinfo old-name)) result)))
             ;; do nothing for non existent files
!            ((memq translated '(not-found ignored)))
             (t
              (push (list (file-relative-name
                           (buffer-substring-no-properties

Message #21 received at 9726-done <at> debbugs.gnu.org (full text, mbox):

From: Glenn Morris <rgm <at> gnu.org>
To: 9726-done <at> debbugs.gnu.org
Subject: Re: bug#9726: 24.0.90;
	vc-dir: error in process sentinel - Wrong argument type
Date: Wed, 19 Oct 2011 12:42:48 -0400

Version: 24.0.91

Glenn Morris wrote:

> The following seems to make the error go away

Applied.

Previous Next

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