diff options
| author | Martin Rudalics <rudalics@gmx.at> | 2008-10-28 17:57:09 +0000 |
|---|---|---|
| committer | Martin Rudalics <rudalics@gmx.at> | 2008-10-28 17:57:09 +0000 |
| commit | efe0da9c0ef4f35a75438424b20351f608df03fd (patch) | |
| tree | 767c278362232237f2e6e8fb1077c08f22fa8ebf /lisp/vc-cvs.el | |
| parent | 23fe745a73768849ffb52fdd24e78ba245ac12d0 (diff) | |
| download | emacs-efe0da9c0ef4f35a75438424b20351f608df03fd.tar.gz | |
(vc-cvs-stay-local): Fix typo in choice.
Diffstat (limited to 'lisp/vc-cvs.el')
| -rw-r--r-- | lisp/vc-cvs.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/vc-cvs.el b/lisp/vc-cvs.el index 7a38ff11f93..81db5a08576 100644 --- a/lisp/vc-cvs.el +++ b/lisp/vc-cvs.el @@ -121,7 +121,7 @@ can be a list of regular expressions where the first element is the symbol `except'; then VC always stays local except for hosts matched by these regular expressions." :type '(choice (const :tag "Always stay local" t) - (const :tag "Only for file operations" 'only-file) + (const :tag "Only for file operations" only-file) (const :tag "Don't stay local" nil) (list :format "\nExamine hostname and %v" :tag "Examine hostname ..." (set :format "%v" :inline t (const :format "%t" :tag "don't" except)) @@ -969,7 +969,7 @@ state." ;; "-f" "-n" "update" "-d" "-P") (vc-exec-after `(vc-cvs-after-dir-status (quote ,update-function)))))) - + (defun vc-cvs-dir-status-files (dir files default-state update-function) "Create a list of conses (file . state) for DIR." (apply 'vc-cvs-command (current-buffer) 'async dir "-f" "status" files) |