* bug#9726: 24.0.90; vc-dir: error in process sentinel - Wrong argument type
@ 2011-10-11 4:03 Christoph Scholtes
2011-10-11 4:18 ` Christoph Scholtes
2011-10-11 14:26 ` Jason Rumney
0 siblings, 2 replies; 5+ messages in thread
From: Christoph Scholtes @ 2011-10-11 4:03 UTC (permalink / raw)
To: 9726
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)
^ permalink raw reply [flat|nested] 5+ messages in thread
* bug#9726: 24.0.90; vc-dir: error in process sentinel - Wrong argument type
2011-10-11 4:03 bug#9726: 24.0.90; vc-dir: error in process sentinel - Wrong argument type Christoph Scholtes
@ 2011-10-11 4:18 ` Christoph Scholtes
2011-10-11 14:26 ` Jason Rumney
1 sibling, 0 replies; 5+ messages in thread
From: Christoph Scholtes @ 2011-10-11 4:18 UTC (permalink / raw)
To: 9726
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)
^ permalink raw reply [flat|nested] 5+ messages in thread
* bug#9726: 24.0.90; vc-dir: error in process sentinel - Wrong argument type
2011-10-11 4:03 bug#9726: 24.0.90; vc-dir: error in process sentinel - Wrong argument type Christoph Scholtes
2011-10-11 4:18 ` Christoph Scholtes
@ 2011-10-11 14:26 ` Jason Rumney
2011-10-11 18:08 ` Glenn Morris
1 sibling, 1 reply; 5+ messages in thread
From: Jason Rumney @ 2011-10-11 14:26 UTC (permalink / raw)
To: Christoph Scholtes; +Cc: 9726
Christoph Scholtes <cschol2112@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.
^ permalink raw reply [flat|nested] 5+ messages in thread
* bug#9726: 24.0.90; vc-dir: error in process sentinel - Wrong argument type
2011-10-11 14:26 ` Jason Rumney
@ 2011-10-11 18:08 ` Glenn Morris
2011-10-19 16:42 ` Glenn Morris
0 siblings, 1 reply; 5+ messages in thread
From: Glenn Morris @ 2011-10-11 18:08 UTC (permalink / raw)
To: Jason Rumney; +Cc: Christoph Scholtes, 9726
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
^ permalink raw reply [flat|nested] 5+ messages in thread
end of thread, other threads:[~2011-10-19 16:42 UTC | newest]
Thread overview: 5+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2011-10-11 4:03 bug#9726: 24.0.90; vc-dir: error in process sentinel - Wrong argument type Christoph Scholtes
2011-10-11 4:18 ` Christoph Scholtes
2011-10-11 14:26 ` Jason Rumney
2011-10-11 18:08 ` Glenn Morris
2011-10-19 16:42 ` Glenn Morris
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).