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 |