Mercurial > emacs

comparison lisp/vc-hooks.el @ 12330:2e2af003b9c5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-fetch-properties): Add save-excursion.
author Richard M. Stallman <rms@gnu.org>
date Tue, 20 Jun 1995 02:56:43 +0000
parents 2a02456ddc4b
children 6da25b126f03
comparison
equal deleted inserted replaced
12329:e97b20222345 12330:2e2af003b9c5
570 (defun vc-fetch-properties (file) 570 (defun vc-fetch-properties (file)
571 ;; Fetch vc-latest-version and vc-your-latest-version 571 ;; Fetch vc-latest-version and vc-your-latest-version
572 ;; if that wasn't already done. 572 ;; if that wasn't already done.
573 (cond 573 (cond
574 ((eq (vc-backend file) 'RCS) 574 ((eq (vc-backend file) 'RCS)
575 (set-buffer (get-buffer-create "*vc-info*")) 575 (save-excursion
576 (vc-insert-file (vc-name file) "^desc") 576 (set-buffer (get-buffer-create "*vc-info*"))
577 (vc-parse-buffer 577 (vc-insert-file (vc-name file) "^desc")
578 (list '("^\\([0-9]+\\.[0-9.]+\\)\ndate[ \t]+\\([0-9.]+\\);" 1 2) 578 (vc-parse-buffer
579 (list (concat "^\\([0-9]+\\.[0-9.]+\\)\n" 579 (list '("^\\([0-9]+\\.[0-9.]+\\)\ndate[ \t]+\\([0-9.]+\\);" 1 2)
580 "date[ \t]+\\([0-9.]+\\);[ \t]+" 580 (list (concat "^\\([0-9]+\\.[0-9.]+\\)\n"
581 "author[ \t]+" 581 "date[ \t]+\\([0-9.]+\\);[ \t]+"
582 (regexp-quote (user-login-name)) ";") 1 2)) 582 "author[ \t]+"
583 file 583 (regexp-quote (user-login-name)) ";") 1 2))
584 '(vc-latest-version vc-your-latest-version))) 584 file
585 '(vc-latest-version vc-your-latest-version))))
585 (t (vc-fetch-master-properties file)) 586 (t (vc-fetch-master-properties file))
586 )) 587 ))
587 588
588 (defun vc-workfile-version (file) 589 (defun vc-workfile-version (file)
589 ;; Return version level of the current workfile FILE 590 ;; Return version level of the current workfile FILE