From 37e14a62f5a61f502d97c350184536f2909c1b9a Mon Sep 17 00:00:00 2001 From: Martin Rudalics Date: Tue, 28 Oct 2008 18:52:02 +0000 Subject: [PATCH] (vc-stay-local): Fix typo in choice. --- lisp/ChangeLog | 1 + lisp/vc-hooks.el | 4 ++-- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index edf17db7b17..fbdd4939fbf 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,7 @@ 2008-10-28 Martin Rudalics * vc-cvs.el (vc-cvs-stay-local): Fix typo in choice. + * vc-hooks.el (vc-stay-local): Likewise. 2008-10-28 Phil Sung (tiny change) diff --git a/lisp/vc-hooks.el b/lisp/vc-hooks.el index 97dca35463d..b4f92350ea1 100644 --- a/lisp/vc-hooks.el +++ b/lisp/vc-hooks.el @@ -159,7 +159,7 @@ 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)) @@ -334,7 +334,7 @@ If WITNESS if not found, return nil, otherwise return the root." (let ((locate-dominating-stop-dir-regexp (or vc-ignore-dir-regexp locate-dominating-stop-dir-regexp))) (locate-dominating-file file witness))) - + (define-obsolete-function-alias 'vc-find-root 'locate-dominating-file "23.1") ;; Access functions to file properties -- 2.39.2