225 |
;; Make sure the `mcvs add' will not fire up the CVSEDITOR |
;; Make sure the `mcvs add' will not fire up the CVSEDITOR |
226 |
;; to add a rule for the given file's extension. |
;; to add a rule for the given file's extension. |
227 |
(when (and ext (not (assoc ext types))) |
(when (and ext (not (assoc ext types))) |
228 |
(let ((type (completing-read "Type to use [default]: " |
(let ((type (completing-read "Type to use (default): " |
229 |
'("default" "name-only" "keep-old" |
'("default" "name-only" "keep-old" |
230 |
"binary" "value-only") |
"binary" "value-only") |
231 |
nil t nil nil "default"))) |
nil t nil nil "default"))) |