mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 04:10:54 -08:00
Code Issues Projects Releases Wiki Activity

(vc-mcvs-annotate-command): Delete extraneous lines from beginning of buffer.

Browse source
This commit is contained in:
Thien-Thi Nguyen 2004-11-03 14:18:53 +00:00
parent bc99a9685c
commit cd227df34c
2 changed files with 11 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,5 +1,9 @@
2004-11-03 Thien-Thi Nguyen <ttn@gnu.org>
* vc-cvs.el (vc-cvs-annotate-command):
Delete extraneous lines from beginning of buffer.
* vc-mcvs.el (vc-mcvs-annotate-command): Likewise.
* progmodes/grep.el (grep-default-command): Take empty string
for tag if all other methods yield nil. Shell-quote the tag.

10
lisp/vc-mcvs.el
View file

@ -26,9 +26,9 @@
;;; Commentary:
;; The home page of the Meta-CVS version control system is at
;;
;;
;; http://users.footprints.net/~kaz/mcvs.html
;;
;;
;; This is derived from vc-cvs.el as follows:
;; - cp vc-cvs.el vc-mcvs.el
;; - Replace CVS/ with MCVS/CVS/
@ -478,7 +478,11 @@ Optional arg VERSION is a version to annotate from."
(vc-mcvs-command
buffer
(if (and (vc-stay-local-p file) (fboundp 'start-process)) 'async 0)
file "annotate" (if version (concat "-r" version))))
file "annotate" (if version (concat "-r" version)))
(with-current-buffer buffer
(goto-char (point-min))
(re-search-forward "^[0-9]")
(delete-region (point-min) (1- (point)))))
(defalias 'vc-mcvs-annotate-current-time 'vc-cvs-annotate-current-time)
(defalias 'vc-mcvs-annotate-time 'vc-cvs-annotate-time)