diff options
| author | Paul Eggert | 1994-02-18 02:51:33 +0000 |
|---|---|---|
| committer | Paul Eggert | 1994-02-18 02:51:33 +0000 |
| commit | 47ca02a62cf7ba47156410b785675febe0a1e18f (patch) | |
| tree | 9a921b2d0d2da41d94c797b88dae626abe916fff | |
| parent | 4f2eb61d72e59ab048c1bc9349f6ce1e50196944 (diff) | |
| download | emacs-47ca02a62cf7ba47156410b785675febe0a1e18f.tar.gz emacs-47ca02a62cf7ba47156410b785675febe0a1e18f.zip | |
(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." | |||
| 1038 | (defun vc-lookup-triple (file name) | 1038 | (defun vc-lookup-triple (file name) |
| 1039 | ;; Return the numeric version corresponding to a named snapshot of file | 1039 | ;; Return the numeric version corresponding to a named snapshot of file |
| 1040 | ;; If name is nil or a version number string it's just passed through | 1040 | ;; If name is nil or a version number string it's just passed through |
| 1041 | (cond ((null name) "") | 1041 | (cond ((null name) name) |
| 1042 | ((let ((firstchar (aref name 0))) | 1042 | ((let ((firstchar (aref name 0))) |
| 1043 | (and (>= firstchar ?0) (<= firstchar ?9))) | 1043 | (and (>= firstchar ?0) (<= firstchar ?9))) |
| 1044 | name) | 1044 | name) |