Mercurial > emacs

comparison lisp/pcvs.el @ 85139:8ba0e30716a5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Terminology cleanup.
author Eric S. Raymond <esr@snark.thyrsus.com>
date Wed, 10 Oct 2007 18:52:45 +0000
parents 5039706521c9
children 7ac0826a9df7 d38543a1c0f9
comparison
equal deleted inserted replaced
85138:9eb84ff59d9b 85139:8ba0e30716a5
2409 2409
2410 (defun cvs-mark-buffer-changed () 2410 (defun cvs-mark-buffer-changed ()
2411 (let* ((file (expand-file-name buffer-file-name)) 2411 (let* ((file (expand-file-name buffer-file-name))
2412 (version (and (fboundp 'vc-backend) 2412 (version (and (fboundp 'vc-backend)
2413 (eq (vc-backend file) 'CVS) 2413 (eq (vc-backend file) 'CVS)
2414 (vc-workfile-version file)))) 2414 (vc-working-revision file))))
2415 (when version 2415 (when version
2416 (save-excursion 2416 (save-excursion
2417 (dolist (cvs-buf (buffer-list)) 2417 (dolist (cvs-buf (buffer-list))
2418 (set-buffer cvs-buf) 2418 (set-buffer cvs-buf)
2419 ;; look for a corresponding pcl-cvs buffer 2419 ;; look for a corresponding pcl-cvs buffer