(vc-lookup-triple): Yield nil, not "", if NAME is nil.

Otherwise vc-revert-buffer fails with SCCS.
This commit is contained in:
Paul Eggert 1994-02-18 02:51:33 +00:00
parent 4f2eb61d72
commit 47ca02a62c

View file

@ -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)