From: Martin Rudalics <rudalics@gmx.at>
Date: Tue, 28 Oct 2008 17:57:09 +0000 (+0000)
Subject: (vc-cvs-stay-local): Fix typo in choice.
X-Git-Tag: emacs-pretest-23.0.90~2134
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=efe0da9c0ef4f35a75438424b20351f608df03fd;p=emacs.git

(vc-cvs-stay-local): Fix typo in choice.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 461a8495024..edf17db7b17 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2008-10-28  Martin Rudalics  <rudalics@gmx.at>
+
+	* vc-cvs.el (vc-cvs-stay-local): Fix typo in choice.
+
 2008-10-28  Phil Sung  <psung@mit.edu>  (tiny change)
 
 	* follow.el (follow-scroll-down, follow-calc-win-end)
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)