Mercurial > emacs

comparison lisp/vc.el @ 94495:027a58c5f305

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vc-checkout): Typo.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Wed, 30 Apr 2008 08:13:09 +0000
parents d3100c0eddb7
children 5f57377d1eff
comparison
equal deleted inserted replaced
94494:07fb6a1d5233 94495:027a58c5f305
1951 (vc-up-to-date-p file) 1951 (vc-up-to-date-p file)
1952 (vc-make-version-backup file)) 1952 (vc-make-version-backup file))
1953 (let ((backend (vc-backend file))) 1953 (let ((backend (vc-backend file)))
1954 (with-vc-properties (list file) 1954 (with-vc-properties (list file)
1955 (condition-case err 1955 (condition-case err
1956 (vc-call-backend 'checkout file writable rev) 1956 (vc-call-backend backend 'checkout file writable rev)
1957 (file-error 1957 (file-error
1958 ;; Maybe the backend is not installed ;-( 1958 ;; Maybe the backend is not installed ;-(
1959 (when writable 1959 (when writable
1960 (let ((buf (get-file-buffer file))) 1960 (let ((buf (get-file-buffer file)))
1961 (when buf (with-current-buffer buf (toggle-read-only -1))))) 1961 (when buf (with-current-buffer buf (toggle-read-only -1)))))