Mercurial > emacs
comparison lisp/vc.el @ 87601:2425b933f90a
(vc-ensure-vc-buffer): Check liveness of vc-parent-buffer.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 06 Jan 2008 16:02:38 +0000 |
| parents | efe45ef69877 |
| children | e4a11c2d5016 606f2d163a64 |
comparison
equal
deleted
inserted
replaced
| 87600:8f58e29f466a | 87601:2425b933f90a |
|---|---|
| 1308 (defun vc-ensure-vc-buffer () | 1308 (defun vc-ensure-vc-buffer () |
| 1309 "Make sure that the current buffer visits a version-controlled file." | 1309 "Make sure that the current buffer visits a version-controlled file." |
| 1310 (if vc-dired-mode | 1310 (if vc-dired-mode |
| 1311 (set-buffer (find-file-noselect (dired-get-filename))) | 1311 (set-buffer (find-file-noselect (dired-get-filename))) |
| 1312 (while (and vc-parent-buffer | 1312 (while (and vc-parent-buffer |
| 1313 (buffer-live-p vc-parent-buffer) | |
| 1313 ;; Avoid infinite looping when vc-parent-buffer and | 1314 ;; Avoid infinite looping when vc-parent-buffer and |
| 1314 ;; current buffer are the same buffer. | 1315 ;; current buffer are the same buffer. |
| 1315 (not (eq vc-parent-buffer (current-buffer)))) | 1316 (not (eq vc-parent-buffer (current-buffer)))) |
| 1316 (set-buffer vc-parent-buffer)) | 1317 (set-buffer vc-parent-buffer)) |
| 1317 (if (not buffer-file-name) | 1318 (if (not buffer-file-name) |