Mercurial > emacs
diff lisp/vc-bzr.el @ 98220:962e4709829b
* vc-bzr.el (vc-bzr-show-log-entry):
* vc-git.el (vc-git-show-log-entry): Deal with a nil argument,
C-x v l for a directory uses that.
author | Dan Nicolaescu <dann@ics.uci.edu> |
---|---|
date | Thu, 18 Sep 2008 17:01:41 +0000 |
parents | 9fc5b62e3967 |
children | 75e08f08f5e5 |
line wrap: on
line diff
--- a/lisp/vc-bzr.el Thu Sep 18 15:02:59 2008 +0000 +++ b/lisp/vc-bzr.el Thu Sep 18 17:01:41 2008 +0000 @@ -468,15 +468,17 @@ (defun vc-bzr-show-log-entry (revision) "Find entry for patch name REVISION in bzr change log buffer." (goto-char (point-min)) - (let (case-fold-search) - (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))))) + (when revision + (let (case-fold-search) + (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)))))) (defun vc-bzr-diff (files &optional rev1 rev2 buffer) "VC bzr backend for diff."