From f392f8b441a33a3b240e59c703d4fe176e502ef9 Mon Sep 17 00:00:00 2001 From: Dan Nicolaescu Date: Fri, 14 Mar 2008 01:52:59 +0000 Subject: [PATCH] (vc-bzr-log-view-mode): "." can be part of a revno. (vc-bzr-show-log-entry): Make regexp match more cases. (vc-diff-switches-list): Remove autoload, not needed. --- lisp/ChangeLog | 6 ++++++ lisp/vc-bzr.el | 11 +++++++---- 2 files changed, 13 insertions(+), 4 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 75913bef6c4..07eb1fb2f44 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2008-03-14 Dan Nicolaescu + + * vc-bzr.el (vc-bzr-log-view-mode): "." can be part of a revno. + (vc-bzr-show-log-entry): Make regexp match more cases. + (vc-diff-switches-list): Remove autoload, not needed. + 2008-03-14 Juri Linkov * isearch.el (isearch-edit-string): Remove one call to diff --git a/lisp/vc-bzr.el b/lisp/vc-bzr.el index e126296d779..8e91c5c1b4d 100644 --- a/lisp/vc-bzr.el +++ b/lisp/vc-bzr.el @@ -378,7 +378,7 @@ EDITABLE is ignored." ;; Don't have file markers, so use impossible regexp. (set (make-local-variable 'log-view-file-re) "\\'\\`") (set (make-local-variable 'log-view-message-re) - "^ *-+\n *\\(?:revno: \\([0-9]+\\)\\|merged: .+\\)") + "^ *-+\n *\\(?:revno: \\([0-9.]+\\)\\|merged: .+\\)") (set (make-local-variable 'log-view-font-lock-keywords) ;; log-view-font-lock-keywords is careful to use the buffer-local ;; value of log-view-message-re only since Emacs-23. @@ -408,12 +408,15 @@ EDITABLE is ignored." "Find entry for patch name REVISION in bzr change log buffer." (goto-char (point-min)) (let (case-fold-search) - (if (re-search-forward (concat "^-+\nrevno: " revision "$") nil t) + (if (re-search-forward + ;; "revno:" can appear either at the beginning of a line, or indented. + (concat "^[ ]*-+\n[ ]*revno: " + ;; The revision can contain ".", quote it so that it + ;; does not interfere with regexp matching. + (regexp-quote revision) "$") nil t) (beginning-of-line 0) (goto-char (point-min))))) -(autoload 'vc-diff-switches-list "vc" nil nil t) - (defun vc-bzr-diff (files &optional rev1 rev2 buffer) "VC bzr backend for diff." ;; `bzr diff' exits with code 1 if diff is non-empty -- 2.39.2