From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: David PONCE Newsgroups: gmane.emacs.devel Subject: Problem with vc-mcvs-registered Date: Tue, 13 May 2003 13:48:08 +0200 (CEST) Sender: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Message-ID: <14367562.1052826488919.JavaMail.www@wwinf0402> Reply-To: david.ponce@wanadoo.fr NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=iso-8859-1 Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1052827002 32136 80.91.224.249 (13 May 2003 11:56:42 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Tue, 13 May 2003 11:56:42 +0000 (UTC) Original-X-From: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Tue May 13 13:56:39 2003 Return-path: Original-Received: from quimby.gnus.org ([80.91.224.244]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 19FYOd-0008Ls-00 for ; Tue, 13 May 2003 13:56:39 +0200 Original-Received: from monty-python.gnu.org ([199.232.76.173]) by quimby.gnus.org with esmtp (Exim 3.12 #1 (Debian)) id 19FYVV-0003HY-00 for ; Tue, 13 May 2003 14:03:45 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.10.13) id 19FYLb-0001zA-06 for emacs-devel@quimby.gnus.org; Tue, 13 May 2003 07:53:31 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.10.13) id 19FYKs-0001eU-00 for emacs-devel@gnu.org; Tue, 13 May 2003 07:52:46 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.10.13) id 19FYI6-0000ok-00 for emacs-devel@gnu.org; Tue, 13 May 2003 07:49:54 -0400 Original-Received: from smtp5.wanadoo.fr ([193.252.22.27] helo=mwinf0402.wanadoo.fr) by monty-python.gnu.org with esmtp (Exim 4.10.13) id 19FYGQ-0007ft-00 for emacs-devel@gnu.org; Tue, 13 May 2003 07:48:10 -0400 Original-Received: from wwinf0402 (wwinf0402 [172.22.135.29]) by mwinf0402.wanadoo.fr (SMTP Server) with ESMTP id E43FE8000D3 for ; Tue, 13 May 2003 13:48:08 +0200 (CEST) Original-To: emacs-devel X-BeenThere: emacs-devel@gnu.org X-Mailman-Version: 2.1b5 Precedence: list List-Id: Emacs development discussions. List-Help: List-Post: List-Subscribe: , List-Archive: List-Unsubscribe: , Errors-To: emacs-devel-bounces+emacs-devel=quimby.gnus.org@gnu.org Xref: main.gmane.org gmane.emacs.devel:13825 X-Report-Spam: http://spam.gmane.org/gmane.emacs.devel:13825 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