Mercurial > emacs
changeset 1243:de79e26e67cf
(vc-rename-file): Use OLD, not FILE which is unbound.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Mon, 28 Sep 1992 13:01:53 +0000 |
| parents | 82774f4b69dd |
| children | ee01548e8ba5 |
| files | lisp/vc.el |
| diffstat | 1 files changed, 5 insertions(+), 3 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/vc.el Mon Sep 28 12:54:05 1992 +0000 +++ b/lisp/vc.el Mon Sep 28 13:01:53 1992 +0000 @@ -5,7 +5,7 @@ ;; Author: Eric S. Raymond <esr@snark.thyrsus.com> ;; Version: 4.0 -;; $Id: vc.el,v 1.5 1992/09/27 01:51:04 roland Exp roland $ +;; $Id: vc.el,v 1.6 1992/09/27 02:42:08 roland Exp rms $ ;; This file is part of GNU Emacs. @@ -746,7 +746,8 @@ (if (vc-locking-user old) (error "Please check in files before moving them.")) (if (or (file-symlink-p oldmaster) - (file-symlink-p (vc-backend-subdirectory-name file))) + ;; This had FILE, I changed it to OLD. -- rms. + (file-symlink-p (vc-backend-subdirectory-name old))) (error "This is not a safe thing to do in the presence of symbolic links.")) (rename-file oldmaster (vc-name new))) (if (or (not oldmaster) (file-exists-p old)) @@ -759,7 +760,8 @@ (set-buffer oldbuf) (set-visited-file-name new) (set-buffer-modified-p nil)))) - (vc-backend-dispatch file + ;; This had FILE, I changed it to OLD. -- rms. + (vc-backend-dispatch old (vc-record-rename old new) nil) )