Skip to content
Snippets Groups Projects
Commit 3949a64e authored by wlott's avatar wlott
Browse files

Don't translate the check-out name unless there actually *is* a

translation.
parent 359d080c
No related branches found
No related tags found
No related merge requests found
;;; -*- Package: HEMLOCK; Mode: Lisp -*-
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.20 1991/11/07 22:02:31 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/rcs.lisp,v 1.21 1991/11/07 22:56:10 wlott Exp $
;;;
;;; Various commands for dealing with RCS under Hemlock.
;;;
......@@ -200,11 +200,12 @@
(when (and lock *translate-file-names-before-locking*)
(multiple-value-bind (unmatched-dir new-dirs file-name)
(maybe-translate-definition-file pathname)
(let ((new-name (translate-definition-file unmatched-dir
(car new-dirs)
file-name)))
(when (probe-file (directory-namestring new-name))
(setf pathname new-name)))))
(when unmatched-dir
(let ((new-name (translate-definition-file unmatched-dir
(car new-dirs)
file-name)))
(when (probe-file (directory-namestring new-name))
(setf pathname new-name))))))
(cond
((and (not always-overwrite-p)
(probe-file pathname) (ext:file-writable pathname))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment