/[emacs]/emacs/lisp/vc-cvs.el
ViewVC logotype

Diff of /emacs/lisp/vc-cvs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.39 by sds, Mon Apr 8 13:38:48 2002 UTC revision 1.40 by sds, Tue Apr 9 17:13:51 2002 UTC
# Line 322  This is only possible if CVS is responsi Line 322  This is only possible if CVS is responsi
322                        (list vc-checkin-switches)                        (list vc-checkin-switches)
323                      vc-checkin-switches))                      vc-checkin-switches))
324          status)          status)
325      (if (not rev)      (if (or (not rev) (vc-cvs-valid-version-number-p rev))
326          (setq status (apply 'vc-cvs-command nil 1 file          (setq status (apply 'vc-cvs-command nil 1 file
327                              "ci" (if rev (concat "-r" rev))                              "ci" (if rev (concat "-r" rev))
328                              (concat "-m" comment)                              (concat "-m" comment)
# Line 816  essential information." Line 816  essential information."
816    (and (string-match "^[a-zA-Z]" tag)    (and (string-match "^[a-zA-Z]" tag)
817         (not (string-match "[^a-z0-9A-Z-_]" tag))))         (not (string-match "[^a-z0-9A-Z-_]" tag))))
818    
819    (defun vc-cvs-valid-version-number-p (tag)
820      "Return non-nil if TAG is a valid version number."
821      (and (string-match "^[0-9]" tag)
822           (not (string-match "[^0-9.]" tag))))
823    
824  (defun vc-cvs-parse-sticky-tag (match-type match-tag)  (defun vc-cvs-parse-sticky-tag (match-type match-tag)
825    "Parse and return the sticky tag as a string.    "Parse and return the sticky tag as a string.

Legend:
Removed from v.1.39  
changed lines
  Added in v.1.40

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26