mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

* vc-bzr.el (vc-bzr-show-log-entry):

Browse Source 
* vc-git.el (vc-git-show-log-entry): Deal with a nil argument,
C-x v l for a directory uses that.
This commit is contained in:
Dan Nicolaescu 2008-09-18 17:01:41 +00:00
parent 8a28dd0bb6
commit 89d9800051
3 changed files with 24 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2008-09-18 Dan Nicolaescu <dann@ics.uci.edu>
* 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.
2008-09-18 Simon Josefsson <simon@josefsson.org>
* files.el (auto-mode-alist): Use sieve-mode for .sv, .siv, and

20
lisp/vc-bzr.el
View File

@ -468,15 +468,17 @@ REV non-nil gets an error."
(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."

13
lisp/vc-git.el
View File

@ -491,12 +491,13 @@
REVISION may have the form BRANCH, BRANCH~N,
or BRANCH^ (where \"^\" can be repeated)."
(goto-char (point-min))
(search-forward "\ncommit" nil t
(cond ((string-match "~\\([0-9]\\)$" revision)
(1+ (string-to-number (match-string 1 revision))))
((string-match "\\^+$" revision)
(1+ (length (match-string 0 revision))))
(t nil)))
(when revision
(search-forward "\ncommit" nil t
(cond ((string-match "~\\([0-9]\\)$" revision)
(1+ (string-to-number (match-string 1 revision))))
((string-match "\\^+$" revision)
(1+ (length (match-string 0 revision))))
(t nil))))
(beginning-of-line))
(defun vc-git-diff (files &optional rev1 rev2 buffer)