comparison lisp/vc-rcs.el @ 94537:e158200330c2

(vc-rcs-state): Fix typos.
author Dan Nicolaescu <dann@ics.uci.edu>
date Fri, 02 May 2008 03:48:17 +0000
parents a69dcc2c42ae
children a0bb8ca25a33
comparison
equal deleted inserted replaced
94536:4482905cde4e 94537:e158200330c2
116 (progn 116 (progn
117 (defun vc-rcs-registered (f) (vc-default-registered 'RCS f))) 117 (defun vc-rcs-registered (f) (vc-default-registered 'RCS f)))
118 118
119 (defun vc-rcs-state (file) 119 (defun vc-rcs-state (file)
120 "Implementation of `vc-state' for RCS." 120 "Implementation of `vc-state' for RCS."
121 (if (not (vc-rc-registered f)) 121 (if (not (vc-rcs-registered file))
122 'unregistered 122 'unregistered
123 (or (boundp 'vc-rcs-headers-result) 123 (or (boundp 'vc-rcs-headers-result)
124 (and vc-consult-headers 124 (and vc-consult-headers
125 (vc-rcs-consult-headers file))) 125 (vc-rcs-consult-headers file)))
126 (let ((state 126 (let ((state