From mboxrd@z Thu Jan 1 00:00:00 1970 Path: main.gmane.org!not-for-mail From: Kevin Rodgers Newsgroups: gmane.emacs.bugs Subject: log-view-current-tag doesn't return SCCS revision Date: Thu, 26 Jun 2003 12:37:48 -0600 Organization: Information Handling Services, Electronic Systems Development Sender: bug-gnu-emacs-bounces+gnu-bug-gnu-emacs=m.gmane.org@gnu.org Message-ID: <16123.15740.522749.978853@ihs.com> NNTP-Posting-Host: main.gmane.org Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit X-Trace: main.gmane.org 1056655533 12902 80.91.224.249 (26 Jun 2003 19:25:33 GMT) X-Complaints-To: usenet@main.gmane.org NNTP-Posting-Date: Thu, 26 Jun 2003 19:25:33 +0000 (UTC) Original-X-From: bug-gnu-emacs-bounces+gnu-bug-gnu-emacs=m.gmane.org@gnu.org Thu Jun 26 21:25:27 2003 Return-path: Original-Received: from monty-python.gnu.org ([199.232.76.173]) by main.gmane.org with esmtp (Exim 3.35 #1 (Debian)) id 19VcN5-0003LS-00 for ; Thu, 26 Jun 2003 21:25:27 +0200 Original-Received: from localhost ([127.0.0.1] helo=monty-python.gnu.org) by monty-python.gnu.org with esmtp (Exim 4.20) id 19VcFC-0003u2-VN for gnu-bug-gnu-emacs@m.gmane.org; Thu, 26 Jun 2003 15:17:18 -0400 Original-Received: from list by monty-python.gnu.org with tmda-scanned (Exim 4.20) id 19Vc2f-0000vM-BA for bug-gnu-emacs@gnu.org; Thu, 26 Jun 2003 15:04:21 -0400 Original-Received: from mail by monty-python.gnu.org with spam-scanned (Exim 4.20) id 19Vbjn-00050r-LG for bug-gnu-emacs@gnu.org; Thu, 26 Jun 2003 14:44:52 -0400 Original-Received: from mail1.ihs.com ([170.207.70.222]) by monty-python.gnu.org with esmtp (Exim 4.20) id 19Vbcy-0003Hr-Bf for bug-gnu-emacs@gnu.org; Thu, 26 Jun 2003 14:37:48 -0400 Original-Received: from briard.ihs.com (esd80.ihs.com [170.207.51.80]) by mail1.ihs.com (8.12.9/8.12.9) with SMTP id h5QIagg2028317 for ; Thu, 26 Jun 2003 12:36:42 -0600 (MDT) Original-To: bug-gnu-emacs@gnu.org X-Mailer: VM 7.15 under Emacs 19.34.3 X-MailScanner: Found to be clean X-MailScanner-SpamCheck: X-BeenThere: bug-gnu-emacs@gnu.org X-Mailman-Version: 2.1b5 Precedence: list List-Id: Bug reports for GNU Emacs, the Swiss army knife of text editors List-Help: List-Post: List-Subscribe: , List-Archive: List-Unsubscribe: , Errors-To: bug-gnu-emacs-bounces+gnu-bug-gnu-emacs=m.gmane.org@gnu.org Xref: main.gmane.org gmane.emacs.bugs:5404 X-Report-Spam: http://spam.gmane.org/gmane.emacs.bugs:5404 >>From log-view.el: ;; In RCS, a locked revision will look like "revision N.M\tlocked by: FOO". (defconst log-view-message-re "^\\(revision \\([.0-9]+\\)\\(?:\t.*\\)?\\|rev \\([0-9]+\\): .*\\|D \\([.0-9]+\\) .*\\)$") Obviously, the revision may be matched by subexpression 2, 4 (not 3), or 5 (for SCCS): *** emacs-21.3/lisp/log-view.el.orig Mon Jan 20 04:03:30 2003 --- emacs-21.3/lisp/log-view.el Thu Jun 26 12:24:59 2003 *************** *** 144,150 **** (forward-line 1) (let ((pt (point))) (when (re-search-backward log-view-message-re nil t) ! (let ((rev (or (match-string 2) (match-string 3)))) (unless (re-search-forward log-view-file-re pt t) rev)))))) --- 144,150 ---- (forward-line 1) (let ((pt (point))) (when (re-search-backward log-view-message-re nil t) ! (let ((rev (or (match-string 2) (match-string 4) (match-string 5)))) (unless (re-search-forward log-view-file-re pt t) rev)))))) -- Kevin Rodgers