Mercurial > emacs
comparison lisp/vc.el @ 94495:027a58c5f305
(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))))) |