Lars Ingebrigtsen <larsi@HIDDEN>
to control <at> debbugs.gnu.org.
Full text available.Glenn Morris <rgm@HIDDEN>
to control <at> debbugs.gnu.org.
Full text available.Glenn Morris <rgm@HIDDEN>
to control <at> debbugs.gnu.org.
Full text available.
Received: (at submit) by debbugs.gnu.org; 7 Oct 2010 10:50:10 +0000
From debbugs-submit-bounces <at> debbugs.gnu.org Thu Oct 07 06:50:10 2010
Received: from localhost ([127.0.0.1] helo=debbugs.gnu.org)
by debbugs.gnu.org with esmtp (Exim 4.69)
(envelope-from <debbugs-submit-bounces <at> debbugs.gnu.org>)
id 1P3o37-00062B-In
for submit <at> debbugs.gnu.org; Thu, 07 Oct 2010 06:50:09 -0400
Received: from eggs.gnu.org ([140.186.70.92])
by debbugs.gnu.org with esmtp (Exim 4.69)
(envelope-from <yamato@HIDDEN>) id 1P3o34-00061k-Jv
for submit <at> debbugs.gnu.org; Thu, 07 Oct 2010 06:50:07 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
(envelope-from <yamato@HIDDEN>) id 1P3o6B-0001nn-Ci
for submit <at> debbugs.gnu.org; Thu, 07 Oct 2010 06:53:20 -0400
X-Spam-Checker-Version: SpamAssassin 3.3.1 (2010-03-16) on eggs.gnu.org
X-Spam-Level:
X-Spam-Status: No, score=-6.9 required=5.0 tests=BAYES_00,RCVD_IN_DNSWL_HI,
T_RP_MATCHES_RCVD autolearn=unavailable version=3.3.1
Received: from lists.gnu.org ([199.232.76.165]:33897)
by eggs.gnu.org with esmtp (Exim 4.71)
(envelope-from <yamato@HIDDEN>) id 1P3o6B-0001nj-9z
for submit <at> debbugs.gnu.org; Thu, 07 Oct 2010 06:53:19 -0400
Received: from [140.186.70.92] (port=47542 helo=eggs.gnu.org)
by lists.gnu.org with esmtp (Exim 4.43) id 1P3o69-0001sw-Kk
for bug-gnu-emacs@HIDDEN; Thu, 07 Oct 2010 06:53:19 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
(envelope-from <yamato@HIDDEN>) id 1P3o67-0001mL-RD
for bug-gnu-emacs@HIDDEN; Thu, 07 Oct 2010 06:53:17 -0400
Received: from mx1.redhat.com ([209.132.183.28]:16304)
by eggs.gnu.org with esmtp (Exim 4.71)
(envelope-from <yamato@HIDDEN>) id 1P3o67-0001ld-Kb
for bug-gnu-emacs@HIDDEN; Thu, 07 Oct 2010 06:53:15 -0400
Received: from int-mx03.intmail.prod.int.phx2.redhat.com
(int-mx03.intmail.prod.int.phx2.redhat.com [10.5.11.16])
by mx1.redhat.com (8.13.8/8.13.8) with ESMTP id o97ArDpY020588
(version=TLSv1/SSLv3 cipher=DHE-RSA-AES256-SHA bits=256 verify=OK)
for <bug-gnu-emacs@HIDDEN>; Thu, 7 Oct 2010 06:53:14 -0400
Received: from localhost (beach.nrt.redhat.com [10.64.200.71])
by int-mx03.intmail.prod.int.phx2.redhat.com (8.13.8/8.13.8) with ESMTP
id o97ArC6l004891
for <bug-gnu-emacs@HIDDEN>; Thu, 7 Oct 2010 06:53:12 -0400
Date: Thu, 07 Oct 2010 19:53:11 +0900 (JST)
Message-Id: <20101007.195311.697425208822821860.yamato@HIDDEN>
To: bug-gnu-emacs@HIDDEN
Subject: error at vc-mtn-mode-line-string of vc-mtn.el
From: Masatake YAMATO <yamato@HIDDEN>
Organization: Red Hat Japan, Inc.
Mime-Version: 1.0
Content-Type: Text/Plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
X-Scanned-By: MIMEDefang 2.67 on 10.5.11.16
X-detected-operating-system: by eggs.gnu.org: Genre and OS details not
recognized.
X-detected-operating-system: by eggs.gnu.org: GNU/Linux 2.6, seldom 2.4 (older,
4)
X-Spam-Score: -6.3 (------)
X-Debbugs-Envelope-To: submit
X-BeenThere: debbugs-submit <at> debbugs.gnu.org
X-Mailman-Version: 2.1.11
Precedence: list
List-Id: <debbugs-submit.debbugs.gnu.org>
List-Unsubscribe: <http://debbugs.gnu.org/cgi-bin/mailman/options/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=unsubscribe>
List-Archive: <http://debbugs.gnu.org/pipermail/debbugs-submit>
List-Post: <mailto:debbugs-submit <at> debbugs.gnu.org>
List-Help: <mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=help>
List-Subscribe: <http://debbugs.gnu.org/cgi-bin/mailman/listinfo/debbugs-submit>,
<mailto:debbugs-submit-request <at> debbugs.gnu.org?subject=subscribe>
Sender: debbugs-submit-bounces <at> debbugs.gnu.org
Errors-To: debbugs-submit-bounces <at> debbugs.gnu.org
X-Spam-Score: -6.3 (------)
When I tried to open a file under monotone version control system,
emacs reports an error because vc-mtn-workfile-branch in
vc-mtn-mode-line-string retruns nil.
Backtrace
------------------------------------------------------------------------
Debugger entered--Lisp error: (wrong-type-argument stringp nil)
string-match("\\`[^:/#]*[:/#]" nil)
(if (string-match (car rule) branch) (setq branch (replace-match (cdr rule) t nil branch)))
(while --cl-dolist-temp-- (setq rule (car --cl-dolist-temp--)) (if (string-match (car rule) branch) (setq branch (replace-match (cdr rule) t nil branch))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--)))
(let ((--cl-dolist-temp-- vc-mtn-mode-line-rewrite) rule) (while --cl-dolist-temp-- (setq rule (car --cl-dolist-temp--)) (if (string-match (car rule) branch) (setq branch (replace-match (cdr rule) t nil branch))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil)
(catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- vc-mtn-mode-line-rewrite) rule) (while --cl-dolist-temp-- (setq rule (car --cl-dolist-temp--)) (if (string-match (car rule) branch) (setq branch (replace-match (cdr rule) t nil branch))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil))
(cl-block-wrapper (catch (quote --cl-block-nil--) (let ((--cl-dolist-temp-- vc-mtn-mode-line-rewrite) rule) (while --cl-dolist-temp-- (setq rule (car --cl-dolist-temp--)) (if (string-match (car rule) branch) (setq branch (replace-match (cdr rule) t nil branch))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil)))
(block nil (let ((--cl-dolist-temp-- vc-mtn-mode-line-rewrite) rule) (while --cl-dolist-temp-- (setq rule (car --cl-dolist-temp--)) (if (string-match (car rule) branch) (setq branch (replace-match (cdr rule) t nil branch))) (setq --cl-dolist-temp-- (cdr --cl-dolist-temp--))) nil))
(dolist (rule vc-mtn-mode-line-rewrite) (if (string-match (car rule) branch) (setq branch (replace-match (cdr rule) t nil branch))))
(let ((branch (vc-mtn-workfile-branch file))) (dolist (rule vc-mtn-mode-line-rewrite) (if (string-match (car rule) branch) (setq branch (replace-match (cdr rule) t nil branch)))) (format "Mtn%c%s" (case (vc-state file) ((up-to-date needs-update) 45) (added 64) (t 58)) branch))
vc-mtn-mode-line-string("/tmp/net.venge.monotone/AUTHORS")
apply(vc-mtn-mode-line-string "/tmp/net.venge.monotone/AUTHORS")
vc-call-backend(Mtn mode-line-string "/tmp/net.venge.monotone/AUTHORS")
vc-mode-line("/tmp/net.venge.monotone/AUTHORS" Mtn)
vc-find-file-hook()
run-hooks(find-file-hook)
after-find-file(nil t)
find-file-noselect-1(#<buffer AUTHORS> "/tmp/net.venge.monotone/AUTHORS" nil nil "/tmp/net.venge.monotone/AUTHORS" (1205380 64768))
find-file-noselect("/tmp/net.venge.monotone/AUTHORS" nil nil t)
find-file("/tmp/net.venge.monotone/AUTHORS" t)
call-interactively(find-file nil nil)
------------------------------------------------------------------------
Software version
------------------------------------------------------------------------
GNU Emacs 24.0.50.1 (x86_64-unknown-linux-gnu, GTK+ Version 2.20.1) of 2010-10-07 on dhcp-193-209.nrt.redhat.com
mtn --version
monotone 0.48 (base revision: 844268c137aaa783aa800a9c16ae61edda80ecea)
------------------------------------------------------------------------
How to reproduce
------------------------------------------------------------------------
1. Prepare source code under monotone vcs
cd /tmp
mtn clone monotone://code.monotone.ca/monotone net.venge.monotone
...
2. open a source code with \C-x\C-f
\C-x\C-f
Find file: /tmp/net.venge.monotone/AUTHORS
You will got
if: Wrong type argument: stringp, nil at *Message*
------------------------------------------------------------------------
My analysis
------------------------------------------------------------------------
An regular expression, "Current branch: \\(.*\\)\nChanges against parent \\(.*\\)"
in `vc-mtn-workfile-branch' doesn't match to the output of mtn status:
$ cd /tmp/net.venge.monotone
$ mtn status at /tmp/net.venge.monotone
----------------------------------------------------------------------
Revision: 40f634fe2e8124dfa567a2ca805824dcfaf6f2c2
Parent: e50b098f9f507bd83207365c7893058fbd01635a
Author: ???
Date: 10/07/2010 07:48:45 PM
Branch: net.venge.monotone
Changes against parent e50b098f9f507bd83207365c7893058fbd01635a
no changes
No "Current branch: ..." line is found.
I propose following patch but I'm not sure this patch is correct or
not because I'm too new to monotone.
2010-10-07 Masatake YAMATO <yamato@HIDDEN>
* vc/vc-mtn.el (vc-mtn-working-revision): Use an empty
string as the result of 'vc-mtn-working-revision'
if it returns nil.
=== modified file 'lisp/vc/vc-mtn.el'
*** lisp/vc/vc-mtn.el 2010-08-29 16:17:13 +0000
--- lisp/vc/vc-mtn.el 2010-10-07 10:35:52 +0000
***************
*** 156,162 ****
(defun vc-mtn-mode-line-string (file)
"Return string for placement in modeline by `vc-mode-line' for FILE."
! (let ((branch (vc-mtn-workfile-branch file)))
(dolist (rule vc-mtn-mode-line-rewrite)
(if (string-match (car rule) branch)
(setq branch (replace-match (cdr rule) t nil branch))))
--- 156,162 ----
(defun vc-mtn-mode-line-string (file)
"Return string for placement in modeline by `vc-mode-line' for FILE."
! (let ((branch (or (vc-mtn-workfile-branch file) "")))
(dolist (rule vc-mtn-mode-line-rewrite)
(if (string-match (car rule) branch)
(setq branch (replace-match (cdr rule) t nil branch))))
Masatake YAMATO
Masatake YAMATO <yamato@HIDDEN>:bug-gnu-emacs@HIDDEN.
Full text available.owner <at> debbugs.gnu.org, bug-gnu-emacs@HIDDEN:bug#7171; Package emacs.
Full text available.
GNU bug tracking system
Copyright (C) 1999 Darren O. Benham,
1997 nCipher Corporation Ltd,
1994-97 Ian Jackson.