bug#9024: 24.0.50; vc-print-log `C-x v l' hang forever with RCS backend

[Thierry Volpiatto]

Glenn Morris <rgm@gnu.org> writes:

> PS The useful thing to do when reporting these situations is:
>
> M-x toggle-debug-on-quit
>
> interrupt the hang with C-g (if possible), and post the backtrace.

Debugger entered--Lisp error: (quit)
  remq(nil nil)
  vc-do-command("*vc-change-log*" 0 "rlog" 
("/home/thierry/labo/RCS/anything-stgit.el,v"))
  vc-rcs-print-log(("/home/thierry/labo/anything-stgit.el") "*vc-change-log*" 
nil nil 2000)
  apply(vc-rcs-print-log (("/home/thierry/labo/anything-stgit.el") 
"*vc-change-log*" nil nil 2000))
  vc-call-backend(RCS print-log ("/home/thierry/labo/anything-stgit.el") 
"*vc-change-log*" nil nil 2000)
  #[(G63808 G63809 G63810 G63811 G63812 G63813 bk buf type-arg files-arg) 
"\306\307    \nJ\fJ\205..J.J&\207" [bk files-arg buf G63810 G63808 G63813 
vc-call-backend print-log G63811] 8](--is-start-revision-- --files-- 
--shortlog-- --limit-- --backend-- --working-revision-- RCS "*vc-change-log*" 
long ("/home/thierry/labo/anything-stgit.el"))
  apply(#[(G63808 G63809 G63810 G63811 G63812 G63813 bk buf type-arg files-arg) 
"\306\307      \nJ\fJ\205..J.J&\207" [bk files-arg buf G63810 G63808 
G63813 vc-call-backend print-log G63811] 8] --is-start-revision-- --files-- 
--shortlog-- --limit-- --backend-- --working-revision-- (RCS "*vc-change-log*" 
long ("/home/thierry/labo/anything-stgit.el")))
  (lambda (&rest --cl-rest--) (apply (quote #[(G63808 G63809 G63810 G63811 
G63812 G63813 bk buf type-arg files-arg) "\306\307  \nJ\fJ\205..J.J&\207" 
[bk files-arg buf G63810 G63808 G63813 vc-call-backend print-log G63811] 8]) 
(quote --is-start-revision--) (quote --files--) (quote --shortlog--) (quote 
--limit--) (quote --backend--) (quote --working-revision--) --cl-rest--))(RCS 
"*vc-change-log*" long ("/home/thierry/labo/anything-stgit.el"))
  vc-log-internal-common(RCS "*vc-change-log*" 
("/home/thierry/labo/anything-stgit.el") long (lambda (&rest --cl-rest--) 
(apply (quote #[(G63808 G63809 G63810 G63811 G63812 G63813 bk buf type-arg 
files-arg) "\306\307       \nJ\fJ\205..J.J&\207" [bk files-arg buf G63810 
G63808 G63813 vc-call-backend print-log G63811] 8]) (quote 
--is-start-revision--) (quote --files--) (quote --shortlog--) (quote --limit--) 
(quote --backend--) (quote --working-revision--) --cl-rest--)) (lambda (&rest 
--cl-rest--) (apply (quote #[(G63814 G63815 G63816 G63817 G63818 G63819 bk 
files-arg ret) "\304J   J\nJ$\207" [G63819 G63814 G63817 ret 
vc-print-log-setup-buttons] 5]) (quote --is-start-revision--) (quote --files--) 
(quote --shortlog--) (quote --limit--) (quote --backend--) (quote 
--working-revision--) --cl-rest--)) (lambda (&rest --cl-rest--) (apply (quote 
#[(G63820 G63821 G63822 G63823 G63824 G63825 bk) "\302\303       J#\207" [bk 
G63825 vc-call-backend show-log-entry] 4]) (quote --is-start-revision--) (quote 
--files--) (quote --shortlog--) (quote --limit--) (quote --backend--) (quote 
--working-revision--) --cl-rest--)) (lambda (&rest --cl-rest--) (apply (quote 
#[(G63826 G63827 G63828 G63829 G63830 G63831 ignore-auto noconfirm) "\305J     
 J\nJJ\fJ%\207" [G63830 G63827 G63831 G63826 G63829 vc-print-log-internal] 6]) 
(quote --is-start-revision--) (quote --files--) (quote --shortlog--) (quote 
--limit--) (quote --backend--) (quote --working-revision--) --cl-rest--)))
  vc-print-log-internal(RCS ("/home/thierry/labo/anything-stgit.el") "1.6" nil 
2000)
  vc-print-log(nil 2000)
  call-interactively(vc-print-log nil nil)

-- 
A+ Thierry
Get my Gnupg key:
gpg --keyserver pgp.mit.edu --recv-keys 59F29997