Mercurial > emacs
comparison lisp/vc-hooks.el @ 20413:7d1e9fc47f9d
Customized.
| author | Karl Heuer <kwzh@gnu.org> |
|---|---|
| date | Thu, 04 Dec 1997 05:56:22 +0000 |
| parents | 173f2683e3c4 |
| children | d69034fe59c2 |
comparison
equal
deleted
inserted
replaced
| 20412:31468445f518 | 20413:7d1e9fc47f9d |
|---|---|
| 31 | 31 |
| 32 ;;; Code: | 32 ;;; Code: |
| 33 | 33 |
| 34 ;; Customization Variables (the rest is in vc.el) | 34 ;; Customization Variables (the rest is in vc.el) |
| 35 | 35 |
| 36 (defvar vc-default-back-end nil | 36 (defcustom vc-default-back-end nil |
| 37 "*Back-end actually used by this interface; may be SCCS or RCS. | 37 "*Back-end actually used by this interface; may be SCCS or RCS. |
| 38 The value is only computed when needed to avoid an expensive search.") | 38 The value is only computed when needed to avoid an expensive search." |
| 39 | 39 :type '(choice (const nil) (const RCS) (const SCCS)) |
| 40 (defvar vc-handle-cvs t | 40 :group 'vc) |
| 41 | |
| 42 (defcustom vc-handle-cvs t | |
| 41 "*If non-nil, use VC for files managed with CVS. | 43 "*If non-nil, use VC for files managed with CVS. |
| 42 If it is nil, don't use VC for those files.") | 44 If it is nil, don't use VC for those files." |
| 43 | 45 :type 'boolean |
| 44 (defvar vc-rcsdiff-knows-brief nil | 46 :group 'vc) |
| 47 | |
| 48 (defcustom vc-rcsdiff-knows-brief nil | |
| 45 "*Indicates whether rcsdiff understands the --brief option. | 49 "*Indicates whether rcsdiff understands the --brief option. |
| 46 The value is either `yes', `no', or nil. If it is nil, VC tries | 50 The value is either `yes', `no', or nil. If it is nil, VC tries |
| 47 to use --brief and sets this variable to remember whether it worked.") | 51 to use --brief and sets this variable to remember whether it worked." |
| 48 | 52 :type '(choice (const nil) (const yes) (const no)) |
| 49 (defvar vc-path | 53 :group 'vc) |
| 54 | |
| 55 (defcustom vc-path | |
| 50 (if (file-directory-p "/usr/sccs") | 56 (if (file-directory-p "/usr/sccs") |
| 51 '("/usr/sccs") | 57 '("/usr/sccs") |
| 52 nil) | 58 nil) |
| 53 "*List of extra directories to search for version control commands.") | 59 "*List of extra directories to search for version control commands." |
| 54 | 60 :type '(repeat directory) |
| 55 (defvar vc-master-templates | 61 :group 'vc) |
| 62 | |
| 63 | |
| 64 (defcustom vc-master-templates | |
| 56 '(("%sRCS/%s,v" . RCS) ("%s%s,v" . RCS) ("%sRCS/%s" . RCS) | 65 '(("%sRCS/%s,v" . RCS) ("%s%s,v" . RCS) ("%sRCS/%s" . RCS) |
| 57 ("%sSCCS/s.%s" . SCCS) ("%ss.%s". SCCS) | 66 ("%sSCCS/s.%s" . SCCS) ("%ss.%s". SCCS) |
| 58 vc-find-cvs-master) | 67 vc-find-cvs-master) |
| 59 "*Where to look for version-control master files. | 68 "*Where to look for version-control master files. |
| 60 The first pair corresponding to a given back end is used as a template | 69 The first pair corresponding to a given back end is used as a template |
| 61 when creating new masters. | 70 when creating new masters. |
| 62 Setting this variable to nil turns off use of VC entirely.") | 71 Setting this variable to nil turns off use of VC entirely." |
| 63 | 72 :type '(repeat sexp) |
| 64 (defvar vc-make-backup-files nil | 73 :group 'vc) |
| 74 | |
| 75 (defcustom vc-make-backup-files nil | |
| 65 "*If non-nil, backups of registered files are made as with other files. | 76 "*If non-nil, backups of registered files are made as with other files. |
| 66 If nil (the default), files covered by version control don't get backups.") | 77 If nil (the default), files covered by version control don't get backups." |
| 67 | 78 :type 'boolean |
| 68 (defvar vc-follow-symlinks 'ask | 79 :group 'vc) |
| 80 | |
| 81 (defcustom vc-follow-symlinks 'ask | |
| 69 "*Indicates what to do if you visit a symbolic link to a file | 82 "*Indicates what to do if you visit a symbolic link to a file |
| 70 that is under version control. Editing such a file through the | 83 that is under version control. Editing such a file through the |
| 71 link bypasses the version control system, which is dangerous and | 84 link bypasses the version control system, which is dangerous and |
| 72 probably not what you want. | 85 probably not what you want. |
| 73 If this variable is t, VC follows the link and visits the real file, | 86 If this variable is t, VC follows the link and visits the real file, |
| 74 telling you about it in the echo area. If it is `ask', VC asks for | 87 telling you about it in the echo area. If it is `ask', VC asks for |
| 75 confirmation whether it should follow the link. If nil, the link is | 88 confirmation whether it should follow the link. If nil, the link is |
| 76 visited and a warning displayed.") | 89 visited and a warning displayed." |
| 77 | 90 :type '(choice (const ask) (const nil) (const t)) |
| 78 (defvar vc-display-status t | 91 :group 'vc) |
| 92 | |
| 93 (defcustom vc-display-status t | |
| 79 "*If non-nil, display revision number and lock status in modeline. | 94 "*If non-nil, display revision number and lock status in modeline. |
| 80 Otherwise, not displayed.") | 95 Otherwise, not displayed." |
| 81 | 96 :type 'boolean |
| 82 (defvar vc-consult-headers t | 97 :group 'vc) |
| 83 "*If non-nil, identify work files by searching for version headers.") | 98 |
| 84 | 99 |
| 85 (defvar vc-keep-workfiles t | 100 (defcustom vc-consult-headers t |
| 101 "*If non-nil, identify work files by searching for version headers." | |
| 102 :type 'boolean | |
| 103 :group 'vc) | |
| 104 | |
| 105 (defcustom vc-keep-workfiles t | |
| 86 "*If non-nil, don't delete working files after registering changes. | 106 "*If non-nil, don't delete working files after registering changes. |
| 87 If the back-end is CVS, workfiles are always kept, regardless of the | 107 If the back-end is CVS, workfiles are always kept, regardless of the |
| 88 value of this flag.") | 108 value of this flag." |
| 89 | 109 :type 'boolean |
| 90 (defvar vc-mistrust-permissions nil | 110 :group 'vc) |
| 111 | |
| 112 (defcustom vc-mistrust-permissions nil | |
| 91 "*If non-nil, don't assume that permissions and ownership track | 113 "*If non-nil, don't assume that permissions and ownership track |
| 92 version-control status. If nil, do rely on the permissions. | 114 version-control status. If nil, do rely on the permissions. |
| 93 See also variable `vc-consult-headers'.") | 115 See also variable `vc-consult-headers'." |
| 116 :type 'boolean | |
| 117 :group 'vc) | |
| 94 | 118 |
| 95 (defun vc-mistrust-permissions (file) | 119 (defun vc-mistrust-permissions (file) |
| 96 ;; Access function to the above. | 120 ;; Access function to the above. |
| 97 (or (eq vc-mistrust-permissions 't) | 121 (or (eq vc-mistrust-permissions 't) |
| 98 (and vc-mistrust-permissions | 122 (and vc-mistrust-permissions |