diff options
author | Paul Eggert <[email protected]> | 1994-02-18 02:51:33 +0000 |
---|---|---|
committer | Paul Eggert <[email protected]> | 1994-02-18 02:51:33 +0000 |
commit | 47ca02a62cf7ba47156410b785675febe0a1e18f (patch) | |
tree | 9a921b2d0d2da41d94c797b88dae626abe916fff | |
parent | 4f2eb61d72e59ab048c1bc9349f6ce1e50196944 (diff) |
(vc-lookup-triple): Yield nil, not "", if NAME is nil.
Otherwise vc-revert-buffer fails with SCCS.
-rw-r--r-- | lisp/vc.el | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/vc.el b/lisp/vc.el index 896e126d17..ed2040a260 100644 --- a/lisp/vc.el +++ b/lisp/vc.el @@ -1038,7 +1038,7 @@ on a buffer attached to the file named in the current Dired buffer line." (defun vc-lookup-triple (file name) ;; Return the numeric version corresponding to a named snapshot of file ;; If name is nil or a version number string it's just passed through - (cond ((null name) "") + (cond ((null name) name) ((let ((firstchar (aref name 0))) (and (>= firstchar ?0) (<= firstchar ?9))) name) |