[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Problem with vc-mcvs-registered
From: |
David PONCE |
Subject: |
Problem with vc-mcvs-registered |
Date: |
Tue, 13 May 2003 13:48:08 +0200 (CEST) |
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
- Problem with vc-mcvs-registered,
David PONCE <=