Mercurial > emacs
comparison lisp/vc.el @ 5989:0b529dfd88c3
(vc-lookup-triple): Yield nil, not "", if NAME is nil.
Otherwise vc-revert-buffer fails with SCCS.
| author | Paul Eggert <eggert@twinsun.com> |
|---|---|
| date | Fri, 18 Feb 1994 02:51:33 +0000 |
| parents | 49029e28ed2c |
| children | 36e1485fa93b |
comparison
equal
deleted
inserted
replaced
| 5988:aaf6fe5d0a54 | 5989:0b529dfd88c3 |
|---|---|
| 1036 )) | 1036 )) |
| 1037 | 1037 |
| 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) |
| 1045 (t | 1045 (t |
| 1046 (car (vc-master-info | 1046 (car (vc-master-info |