Problem with vc-mcvs-registered

Problem with vc-mcvs-registered

[David PONCE]

Hi,

Using latest CVS version of Emacs, I got the following error from the
autoloaded version of `vc-mcvs-registered', when it is passed a file
name of the form "~/something":

Debugger entered--Lisp error: (wrong-type-argument stringp nil)
  directory-file-name(nil)
  (if (file-directory-p (expand-file-name "MCVS/CVS" dir)) t (directory-file-name dir))
  (setq dir (if (file-directory-p ...) t (directory-file-name dir)))
  (while (and (stringp dir) (not ...)) (setq dir (if ... t ...)))
  (let ((dir file)) (while (and ... ...) (setq dir ...)) (if (eq dir t) (progn ... ...)))
  vc-mcvs-registered("~/emacs/emacsrc.el")

I applied the following patch to vc-mcvs.el and updated loaddefs.el,
and that seems to have fixed the problem:

Index: vc-mcvs.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/vc-mcvs.el,v
retrieving revision 1.9
diff -c -r1.9 vc-mcvs.el
*** vc-mcvs.el	11 May 2003 23:55:07 -0000	1.9
--- vc-mcvs.el	13 May 2003 11:11:35 -0000
***************
*** 114,120 ****
  ;;;
  
  ;;;###autoload (defun vc-mcvs-registered (file)
! ;;;###autoload   (let ((dir file))
  ;;;###autoload     (while (and (stringp dir)
  ;;;###autoload 		(not (equal dir (setq dir (file-name-directory dir)))))
  ;;;###autoload       (setq dir (if (file-directory-p
--- 114,120 ----
  ;;;
  
  ;;;###autoload (defun vc-mcvs-registered (file)
! ;;;###autoload   (let ((dir (expand-file-name file)))
  ;;;###autoload     (while (and (stringp dir)
  ;;;###autoload 		(not (equal dir (setq dir (file-name-directory dir)))))
  ;;;###autoload       (setq dir (if (file-directory-p

Hope this helps.

Sincerely,
David

Re: Problem with vc-mcvs-registered

[Stefan Monnier]

> I applied the following patch to vc-mcvs.el and updated loaddefs.el,
> and that seems to have fixed the problem:

Thanks,


	Stefan