diff options
| author | Paul Eggert <eggert@twinsun.com> | 1994-02-18 02:51:33 +0000 |
|---|---|---|
| committer | Paul Eggert <eggert@twinsun.com> | 1994-02-18 02:51:33 +0000 |
| commit | 47ca02a62cf7ba47156410b785675febe0a1e18f (patch) | |
| tree | 9a921b2d0d2da41d94c797b88dae626abe916fff | |
| parent | 4f2eb61d72e59ab048c1bc9349f6ce1e50196944 (diff) | |
| download | emacs-47ca02a62cf7ba47156410b785675febe0a1e18f.tar.gz | |
(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 896e126d178..ed2040a2609 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) |