Mercurial > emacs

comparison lisp/vc-hg.el @ 96213:09da7727f35f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
* vc-hg.el (vc-annotate-convert-time, vc-default-status-printer): * vc-rcs.el (vc-annotate-convert-time): * vc-mtn.el (vc-annotate-convert-time): * vc-git.el (vc-annotate-convert-time): * vc-cvs.el (vc-annotate-convert-time): * vc-bzr.el (vc-annotate-convert-time): Declare as functions.
author Dan Nicolaescu <dann@ics.uci.edu>
date Tue, 24 Jun 2008 02:41:04 +0000
parents 054335cbee3d
children d011b21b3f08
comparison
equal deleted inserted replaced
96212:f2e3f3882eda 96213:09da7727f35f
287 (with-current-buffer buffer 287 (with-current-buffer buffer
288 (goto-char (point-min)) 288 (goto-char (point-min))
289 (re-search-forward "^[ \t]*[0-9]") 289 (re-search-forward "^[ \t]*[0-9]")
290 (delete-region (point-min) (match-beginning 0)))) 290 (delete-region (point-min) (match-beginning 0))))
291 291
292 (declare-function vc-annotate-convert-time "vc-annotate" (time))
292 293
293 ;; The format for one line output by "hg annotate -d -n" looks like this: 294 ;; The format for one line output by "hg annotate -d -n" looks like this:
294 ;;215 Wed Jun 20 21:22:58 2007 -0700: CONTENTS 295 ;;215 Wed Jun 20 21:22:58 2007 -0700: CONTENTS
295 ;; i.e: VERSION_NUMBER DATE: CONTENTS 296 ;; i.e: VERSION_NUMBER DATE: CONTENTS
296 ;; If the user has set the "--follow" option, the output looks like: 297 ;; If the user has set the "--follow" option, the output looks like:
422 (:copier nil) 423 (:copier nil)
423 (:constructor vc-hg-create-extra-fileinfo (rename-state extra-name)) 424 (:constructor vc-hg-create-extra-fileinfo (rename-state extra-name))
424 (:conc-name vc-hg-extra-fileinfo->)) 425 (:conc-name vc-hg-extra-fileinfo->))
425 rename-state ;; rename or copy state 426 rename-state ;; rename or copy state
426 extra-name) ;; original name for copies and rename targets, new name for 427 extra-name) ;; original name for copies and rename targets, new name for
428
429 (declare-function vc-default-status-printer "vc-dir" (backend fileentry))
427 430
428 (defun vc-hg-status-printer (info) 431 (defun vc-hg-status-printer (info)
429 "Pretty-printer for the vc-dir-fileinfo structure." 432 "Pretty-printer for the vc-dir-fileinfo structure."
430 (let ((extra (vc-dir-fileinfo->extra info))) 433 (let ((extra (vc-dir-fileinfo->extra info)))
431 (vc-default-status-printer 'Hg info) 434 (vc-default-status-printer 'Hg info)