mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-05 11:45:45 +00:00
Code Issues Releases Activity

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

Browse Source
This commit is contained in:
Martin Rudalics 2008-10-28 17:57:09 +00:00
parent 23fe745a73
commit efe0da9c0e
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp/ChangeLog
View File

@ -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)

4
lisp/vc-cvs.el
View File

@ -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)