# HG changeset patch
# User Paul Eggert <eggert@twinsun.com>
# Date 761539893 0
# Node ID 0b529dfd88c33afabfb77c2608fe03d45d1767af
# Parent  aaf6fe5d0a540f0ab35b4f4c7aa5658b3f24871a
(vc-lookup-triple): Yield nil, not "", if NAME is nil.
Otherwise vc-revert-buffer fails with SCCS.

diff -r aaf6fe5d0a54 -r 0b529dfd88c3 lisp/vc.el
--- a/lisp/vc.el	Fri Feb 18 01:12:10 1994 +0000
+++ b/lisp/vc.el	Fri Feb 18 02:51:33 1994 +0000
@@ -1038,7 +1038,7 @@
 (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)