Mercurial > emacs
annotate lisp/vc-hooks.el @ 33242:421e3db4e24e
(x_encode_text): Suppress producing escape sequences for composition.
author | Kenichi Handa <handa@m17n.org> |
---|---|
date | Mon, 06 Nov 2000 12:36:06 +0000 |
parents | 7feabfeb41cc |
children | 23d61d30fcd0 |
rev | line source |
---|---|
2232
4f9d60f7de9d
Add standard library headers.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2227
diff
changeset
|
1 ;;; vc-hooks.el --- resident support for version-control |
904 | 2 |
31382 | 3 ;; Copyright (C) 1992,93,94,95,96,98,99,2000 Free Software Foundation, Inc. |
904 | 4 |
31382 | 5 ;; Author: FSF (see vc.el for full credits) |
6 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> | |
904 | 7 |
33206
7feabfeb41cc
(vc-insert-file): Rewritten. Don't bother about auto-save-mode.
André Spiegel <spiegel@gnu.org>
parents:
32953
diff
changeset
|
8 ;; $Id: vc-hooks.el,v 1.126 2000/10/27 13:26:18 spiegel Exp $ |
20989 | 9 |
904 | 10 ;; This file is part of GNU Emacs. |
11 | |
12 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
13 ;; it under the terms of the GNU General Public License as published by | |
14 ;; the Free Software Foundation; either version 2, or (at your option) | |
15 ;; any later version. | |
16 | |
17 ;; GNU Emacs is distributed in the hope that it will be useful, | |
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
19 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
20 ;; GNU General Public License for more details. | |
21 | |
22 ;; You should have received a copy of the GNU General Public License | |
14169 | 23 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
24 ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
25 ;; Boston, MA 02111-1307, USA. | |
904 | 26 |
27 ;;; Commentary: | |
28 | |
31382 | 29 ;; This is the always-loaded portion of VC. It takes care of |
30 ;; VC-related activities that are done when you visit a file, so that | |
31 ;; vc.el itself is loaded only when you use a VC command. See the | |
32 ;; commentary of vc.el. | |
904 | 33 |
34 ;;; Code: | |
35 | |
31405
c1eb46906717
Don't require `vc' during compilation;
Gerd Moellmann <gerd@gnu.org>
parents:
31404
diff
changeset
|
36 ;(eval-when-compile |
c1eb46906717
Don't require `vc' during compilation;
Gerd Moellmann <gerd@gnu.org>
parents:
31404
diff
changeset
|
37 ; (require 'vc)) |
31404
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
38 |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
39 ;; Customization Variables (the rest is in vc.el) |
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
40 |
31382 | 41 (defvar vc-ignore-vc-files nil "Obsolete -- use `vc-handled-backends'.") |
42 (defvar vc-master-templates () "Obsolete -- use vc-BACKEND-master-templates.") | |
43 (defvar vc-header-alist () "Obsolete -- use vc-BACKEND-header.") | |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
44 |
31382 | 45 (defcustom vc-handled-backends '(RCS CVS SCCS) |
46 "*List of version control backends for which VC will be used. | |
47 Entries in this list will be tried in order to determine whether a | |
48 file is under that sort of version control. | |
49 Removing an entry from the list prevents VC from being activated | |
50 when visiting a file managed by that backend. | |
51 An empty list disables VC altogether." | |
52 :type '(repeat symbol) | |
31404
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
53 :version "21.1" |
20413 | 54 :group 'vc) |
13378
96ff45331eb4
(vc-utc-string): Use timezone of TIMEVAL for the correction, not the
André Spiegel <spiegel@gnu.org>
parents:
13034
diff
changeset
|
55 |
20413 | 56 (defcustom vc-path |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
57 (if (file-directory-p "/usr/sccs") |
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
58 '("/usr/sccs") |
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
59 nil) |
20413 | 60 "*List of extra directories to search for version control commands." |
61 :type '(repeat directory) | |
62 :group 'vc) | |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
63 |
20413 | 64 (defcustom vc-make-backup-files nil |
5164
04d6b9e7782a
(vc-make-backup-files): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
4726
diff
changeset
|
65 "*If non-nil, backups of registered files are made as with other files. |
20413 | 66 If nil (the default), files covered by version control don't get backups." |
67 :type 'boolean | |
68 :group 'vc) | |
904 | 69 |
20413 | 70 (defcustom vc-follow-symlinks 'ask |
31382 | 71 "*What to do if visiting a symbolic link to a file under version control. |
72 Editing such a file through the link bypasses the version control system, | |
73 which is dangerous and probably not what you want. | |
74 | |
75 If this variable is t, VC follows the link and visits the real file, | |
14142
c9cb9dbb2d40
(vc-follow-symlinks): New variable.
André Spiegel <spiegel@gnu.org>
parents:
14040
diff
changeset
|
76 telling you about it in the echo area. If it is `ask', VC asks for |
c9cb9dbb2d40
(vc-follow-symlinks): New variable.
André Spiegel <spiegel@gnu.org>
parents:
14040
diff
changeset
|
77 confirmation whether it should follow the link. If nil, the link is |
20413 | 78 visited and a warning displayed." |
31382 | 79 :type '(choice (const :tag "Ask for confirmation" ask) |
80 (const :tag "Visit link and warn" nil) | |
81 (const :tag "Follow link" t)) | |
20413 | 82 :group 'vc) |
14142
c9cb9dbb2d40
(vc-follow-symlinks): New variable.
André Spiegel <spiegel@gnu.org>
parents:
14040
diff
changeset
|
83 |
20413 | 84 (defcustom vc-display-status t |
8982
2a81d1c79162
(vc-menu-map): Set up menu items.
Richard M. Stallman <rms@gnu.org>
parents:
7568
diff
changeset
|
85 "*If non-nil, display revision number and lock status in modeline. |
20413 | 86 Otherwise, not displayed." |
87 :type 'boolean | |
88 :group 'vc) | |
89 | |
3900
c6f3d2af0df7
(vc-rcs-status): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3459
diff
changeset
|
90 |
20413 | 91 (defcustom vc-consult-headers t |
92 "*If non-nil, identify work files by searching for version headers." | |
93 :type 'boolean | |
94 :group 'vc) | |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
95 |
20413 | 96 (defcustom vc-keep-workfiles t |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
97 "*If non-nil, don't delete working files after registering changes. |
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
98 If the back-end is CVS, workfiles are always kept, regardless of the |
20413 | 99 value of this flag." |
100 :type 'boolean | |
101 :group 'vc) | |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
102 |
20413 | 103 (defcustom vc-mistrust-permissions nil |
31382 | 104 "*If non-nil, don't assume permissions/ownership track version-control status. |
105 If nil, do rely on the permissions. | |
20413 | 106 See also variable `vc-consult-headers'." |
107 :type 'boolean | |
108 :group 'vc) | |
12914
22f47b2375c1
(vc-fetch-master-properties): RCS case: get locking mode.
André Spiegel <spiegel@gnu.org>
parents:
12884
diff
changeset
|
109 |
22f47b2375c1
(vc-fetch-master-properties): RCS case: get locking mode.
André Spiegel <spiegel@gnu.org>
parents:
12884
diff
changeset
|
110 (defun vc-mistrust-permissions (file) |
31382 | 111 "Internal access function to variable `vc-mistrust-permissions' for FILE." |
12914
22f47b2375c1
(vc-fetch-master-properties): RCS case: get locking mode.
André Spiegel <spiegel@gnu.org>
parents:
12884
diff
changeset
|
112 (or (eq vc-mistrust-permissions 't) |
22f47b2375c1
(vc-fetch-master-properties): RCS case: get locking mode.
André Spiegel <spiegel@gnu.org>
parents:
12884
diff
changeset
|
113 (and vc-mistrust-permissions |
31382 | 114 (funcall vc-mistrust-permissions |
12914
22f47b2375c1
(vc-fetch-master-properties): RCS case: get locking mode.
André Spiegel <spiegel@gnu.org>
parents:
12884
diff
changeset
|
115 (vc-backend-subdirectory-name file))))) |
22f47b2375c1
(vc-fetch-master-properties): RCS case: get locking mode.
André Spiegel <spiegel@gnu.org>
parents:
12884
diff
changeset
|
116 |
904 | 117 ;; Tell Emacs about this new kind of minor mode |
31382 | 118 (add-to-list 'minor-mode-alist '(vc-mode vc-mode)) |
904 | 119 |
2491
5f3061858f47
vc-mode: name change.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
120 (make-variable-buffer-local 'vc-mode) |
2620
d26f75fd9f5e
(vc-mode-line): Don't alter key bindings.
Richard M. Stallman <rms@gnu.org>
parents:
2491
diff
changeset
|
121 (put 'vc-mode 'permanent-local t) |
904 | 122 |
31404
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
123 (defmacro vc-error-occurred (&rest body) |
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
124 (list 'condition-case nil (cons 'progn (append body '(nil))) '(error t))) |
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
125 |
904 | 126 ;; We need a notion of per-file properties because the version |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
127 ;; control state of a file is expensive to derive --- we compute |
31382 | 128 ;; them when the file is initially found, keep them up to date |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
129 ;; during any subsequent VC operations, and forget them when |
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
130 ;; the buffer is killed. |
904 | 131 |
31382 | 132 (defvar vc-file-prop-obarray (make-vector 16 0) |
904 | 133 "Obarray for per-file properties.") |
134 | |
31404
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
135 (defvar vc-touched-properties nil) |
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
136 |
904 | 137 (defun vc-file-setprop (file property value) |
31382 | 138 "Set per-file VC PROPERTY for FILE to VALUE." |
31404
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
139 (if (and vc-touched-properties |
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
140 (not (memq property vc-touched-properties))) |
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
141 (setq vc-touched-properties (append (list property) |
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
142 vc-touched-properties))) |
904 | 143 (put (intern file vc-file-prop-obarray) property value)) |
144 | |
145 (defun vc-file-getprop (file property) | |
31404
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
146 "Get per-file VC PROPERTY for FILE." |
904 | 147 (get (intern file vc-file-prop-obarray) property)) |
148 | |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
149 (defun vc-file-clearprops (file) |
31382 | 150 "Clear all VC properties of FILE." |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
151 (setplist (intern file vc-file-prop-obarray) nil)) |
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
152 |
31382 | 153 |
154 ;; We keep properties on each symbol naming a backend as follows: | |
155 ;; * `vc-functions': an alist mapping vc-FUNCTION to vc-BACKEND-FUNCTION. | |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
156 |
31382 | 157 (defun vc-make-backend-sym (backend sym) |
158 "Return BACKEND-specific version of VC symbol SYM." | |
159 (intern (concat "vc-" (downcase (symbol-name backend)) | |
160 "-" (symbol-name sym)))) | |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
161 |
31382 | 162 (defun vc-find-backend-function (backend fun) |
163 "Return BACKEND-specific implementation of FUN. | |
164 If there is no such implementation, return the default implementation; | |
165 if that doesn't exist either, return nil." | |
166 (let ((f (vc-make-backend-sym backend fun))) | |
167 (if (fboundp f) f | |
168 ;; Load vc-BACKEND.el if needed. | |
169 (require (intern (concat "vc-" (downcase (symbol-name backend))))) | |
170 (if (fboundp f) f | |
171 (let ((def (vc-make-backend-sym 'default fun))) | |
172 (if (fboundp def) (cons def backend) nil)))))) | |
173 | |
174 (defun vc-call-backend (backend function-name &rest args) | |
175 "Call for BACKEND the implementation of FUNCTION-NAME with the given ARGS. | |
176 Calls | |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
177 |
31382 | 178 (apply 'vc-BACKEND-FUN ARGS) |
179 | |
180 if vc-BACKEND-FUN exists (after trying to find it in vc-BACKEND.el) | |
181 and else calls | |
182 | |
183 (apply 'vc-default-FUN BACKEND ARGS) | |
184 | |
185 It is usually called via the `vc-call' macro." | |
186 (let ((f (cdr (assoc function-name (get backend 'vc-functions))))) | |
187 (unless f | |
188 (setq f (vc-find-backend-function backend function-name)) | |
189 (put backend 'vc-functions (cons (cons function-name f) | |
190 (get backend 'vc-functions)))) | |
191 (if (consp f) | |
192 (apply (car f) (cdr f) args) | |
193 (apply f args)))) | |
194 | |
195 (defmacro vc-call (fun file &rest args) | |
196 ;; BEWARE!! `file' is evaluated twice!! | |
197 `(vc-call-backend (vc-backend ,file) ',fun ,file ,@args)) | |
198 | |
199 | |
200 (defsubst vc-parse-buffer (pattern i) | |
201 "Find PATTERN in the current buffer and return its Ith submatch." | |
202 (goto-char (point-min)) | |
203 (if (re-search-forward pattern nil t) | |
204 (match-string i))) | |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
205 |
12251
f2519a110e5f
The RCS status is now found by reading the
Richard M. Stallman <rms@gnu.org>
parents:
12102
diff
changeset
|
206 (defun vc-insert-file (file &optional limit blocksize) |
31382 | 207 "Insert the contents of FILE into the current buffer. |
208 | |
209 Optional argument LIMIT is a regexp. If present, the file is inserted | |
210 in chunks of size BLOCKSIZE (default 8 kByte), until the first | |
33206
7feabfeb41cc
(vc-insert-file): Rewritten. Don't bother about auto-save-mode.
André Spiegel <spiegel@gnu.org>
parents:
32953
diff
changeset
|
211 occurrence of LIMIT is found. The function returns non-nil if FILE |
7feabfeb41cc
(vc-insert-file): Rewritten. Don't bother about auto-save-mode.
André Spiegel <spiegel@gnu.org>
parents:
32953
diff
changeset
|
212 exists and its contents were successfully inserted." |
12367
f268f652055e
(vc-insert-file): Erase the current buffer before inserting the file.
Richard M. Stallman <rms@gnu.org>
parents:
12359
diff
changeset
|
213 (erase-buffer) |
33206
7feabfeb41cc
(vc-insert-file): Rewritten. Don't bother about auto-save-mode.
André Spiegel <spiegel@gnu.org>
parents:
32953
diff
changeset
|
214 (when (file-exists-p file) |
7feabfeb41cc
(vc-insert-file): Rewritten. Don't bother about auto-save-mode.
André Spiegel <spiegel@gnu.org>
parents:
32953
diff
changeset
|
215 (if (not limit) |
7feabfeb41cc
(vc-insert-file): Rewritten. Don't bother about auto-save-mode.
André Spiegel <spiegel@gnu.org>
parents:
32953
diff
changeset
|
216 (insert-file-contents file) |
7feabfeb41cc
(vc-insert-file): Rewritten. Don't bother about auto-save-mode.
André Spiegel <spiegel@gnu.org>
parents:
32953
diff
changeset
|
217 (if (not blocksize) (setq blocksize 8192)) |
7feabfeb41cc
(vc-insert-file): Rewritten. Don't bother about auto-save-mode.
André Spiegel <spiegel@gnu.org>
parents:
32953
diff
changeset
|
218 (let (found s) |
7feabfeb41cc
(vc-insert-file): Rewritten. Don't bother about auto-save-mode.
André Spiegel <spiegel@gnu.org>
parents:
32953
diff
changeset
|
219 (while (not found) |
7feabfeb41cc
(vc-insert-file): Rewritten. Don't bother about auto-save-mode.
André Spiegel <spiegel@gnu.org>
parents:
32953
diff
changeset
|
220 (setq s (buffer-size)) |
7feabfeb41cc
(vc-insert-file): Rewritten. Don't bother about auto-save-mode.
André Spiegel <spiegel@gnu.org>
parents:
32953
diff
changeset
|
221 (goto-char (1+ s)) |
7feabfeb41cc
(vc-insert-file): Rewritten. Don't bother about auto-save-mode.
André Spiegel <spiegel@gnu.org>
parents:
32953
diff
changeset
|
222 (setq found |
7feabfeb41cc
(vc-insert-file): Rewritten. Don't bother about auto-save-mode.
André Spiegel <spiegel@gnu.org>
parents:
32953
diff
changeset
|
223 (or (zerop (cadr (insert-file-contents |
7feabfeb41cc
(vc-insert-file): Rewritten. Don't bother about auto-save-mode.
André Spiegel <spiegel@gnu.org>
parents:
32953
diff
changeset
|
224 file nil s (+ s blocksize)))) |
7feabfeb41cc
(vc-insert-file): Rewritten. Don't bother about auto-save-mode.
André Spiegel <spiegel@gnu.org>
parents:
32953
diff
changeset
|
225 (progn (beginning-of-line) |
7feabfeb41cc
(vc-insert-file): Rewritten. Don't bother about auto-save-mode.
André Spiegel <spiegel@gnu.org>
parents:
32953
diff
changeset
|
226 (re-search-forward limit nil t))))))) |
7feabfeb41cc
(vc-insert-file): Rewritten. Don't bother about auto-save-mode.
André Spiegel <spiegel@gnu.org>
parents:
32953
diff
changeset
|
227 (set-buffer-modified-p nil) |
7feabfeb41cc
(vc-insert-file): Rewritten. Don't bother about auto-save-mode.
André Spiegel <spiegel@gnu.org>
parents:
32953
diff
changeset
|
228 t)) |
12251
f2519a110e5f
The RCS status is now found by reading the
Richard M. Stallman <rms@gnu.org>
parents:
12102
diff
changeset
|
229 |
f2519a110e5f
The RCS status is now found by reading the
Richard M. Stallman <rms@gnu.org>
parents:
12102
diff
changeset
|
230 ;;; Access functions to file properties |
f2519a110e5f
The RCS status is now found by reading the
Richard M. Stallman <rms@gnu.org>
parents:
12102
diff
changeset
|
231 ;;; (Properties should be _set_ using vc-file-setprop, but |
f2519a110e5f
The RCS status is now found by reading the
Richard M. Stallman <rms@gnu.org>
parents:
12102
diff
changeset
|
232 ;;; _retrieved_ only through these functions, which decide |
f2519a110e5f
The RCS status is now found by reading the
Richard M. Stallman <rms@gnu.org>
parents:
12102
diff
changeset
|
233 ;;; if the property is already known or not. A property should |
31382 | 234 ;;; only be retrieved by vc-file-getprop if there is no |
12251
f2519a110e5f
The RCS status is now found by reading the
Richard M. Stallman <rms@gnu.org>
parents:
12102
diff
changeset
|
235 ;;; access function.) |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
236 |
31382 | 237 ;;; properties indicating the backend being used for FILE |
238 | |
239 (defun vc-registered (file) | |
240 "Return non-nil if FILE is registered in a version control system. | |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
241 |
32070
d1ab0499dc86
(vc-registered): If FILE used to be registered under a certain
André Spiegel <spiegel@gnu.org>
parents:
31808
diff
changeset
|
242 This function performs the check each time it is called. To rely |
d1ab0499dc86
(vc-registered): If FILE used to be registered under a certain
André Spiegel <spiegel@gnu.org>
parents:
31808
diff
changeset
|
243 on the result of a previous call, use `vc-backend' instead. If the |
d1ab0499dc86
(vc-registered): If FILE used to be registered under a certain
André Spiegel <spiegel@gnu.org>
parents:
31808
diff
changeset
|
244 file was previously registered under a certain backend, then that |
d1ab0499dc86
(vc-registered): If FILE used to be registered under a certain
André Spiegel <spiegel@gnu.org>
parents:
31808
diff
changeset
|
245 backend is tried first." |
31382 | 246 (let (handler) |
247 (if (boundp 'file-name-handler-alist) | |
248 (setq handler (find-file-name-handler file 'vc-registered))) | |
249 (if handler | |
250 ;; handler should set vc-backend and return t if registered | |
251 (funcall handler 'vc-registered file) | |
252 ;; There is no file name handler. | |
253 ;; Try vc-BACKEND-registered for each handled BACKEND. | |
254 (catch 'found | |
32070
d1ab0499dc86
(vc-registered): If FILE used to be registered under a certain
André Spiegel <spiegel@gnu.org>
parents:
31808
diff
changeset
|
255 (let ((backend (vc-file-getprop file 'vc-backend))) |
d1ab0499dc86
(vc-registered): If FILE used to be registered under a certain
André Spiegel <spiegel@gnu.org>
parents:
31808
diff
changeset
|
256 (mapcar |
d1ab0499dc86
(vc-registered): If FILE used to be registered under a certain
André Spiegel <spiegel@gnu.org>
parents:
31808
diff
changeset
|
257 (lambda (b) |
d1ab0499dc86
(vc-registered): If FILE used to be registered under a certain
André Spiegel <spiegel@gnu.org>
parents:
31808
diff
changeset
|
258 (and (vc-call-backend b 'registered file) |
d1ab0499dc86
(vc-registered): If FILE used to be registered under a certain
André Spiegel <spiegel@gnu.org>
parents:
31808
diff
changeset
|
259 (vc-file-setprop file 'vc-backend b) |
d1ab0499dc86
(vc-registered): If FILE used to be registered under a certain
André Spiegel <spiegel@gnu.org>
parents:
31808
diff
changeset
|
260 (throw 'found t))) |
d1ab0499dc86
(vc-registered): If FILE used to be registered under a certain
André Spiegel <spiegel@gnu.org>
parents:
31808
diff
changeset
|
261 (if (or (not backend) (eq backend 'none)) |
d1ab0499dc86
(vc-registered): If FILE used to be registered under a certain
André Spiegel <spiegel@gnu.org>
parents:
31808
diff
changeset
|
262 vc-handled-backends |
d1ab0499dc86
(vc-registered): If FILE used to be registered under a certain
André Spiegel <spiegel@gnu.org>
parents:
31808
diff
changeset
|
263 (cons backend vc-handled-backends)))) |
31382 | 264 ;; File is not registered. |
265 (vc-file-setprop file 'vc-backend 'none) | |
266 nil)))) | |
267 | |
268 (defun vc-backend (file) | |
269 "Return the version control type of FILE, nil if it is not registered." | |
270 ;; `file' can be nil in several places (typically due to the use of | |
271 ;; code like (vc-backend (buffer-file-name))). | |
272 (when (stringp file) | |
273 (let ((property (vc-file-getprop file 'vc-backend))) | |
274 ;; Note that internally, Emacs remembers unregistered | |
275 ;; files by setting the property to `none'. | |
276 (cond ((eq property 'none) nil) | |
277 (property) | |
278 ;; vc-registered sets the vc-backend property | |
279 (t (if (vc-registered file) | |
280 (vc-file-getprop file 'vc-backend) | |
281 nil)))))) | |
282 | |
283 (defun vc-backend-subdirectory-name (file) | |
284 "Return where the master and lock FILEs for the current directory are kept." | |
285 (symbol-name (vc-backend file))) | |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
286 |
12251
f2519a110e5f
The RCS status is now found by reading the
Richard M. Stallman <rms@gnu.org>
parents:
12102
diff
changeset
|
287 (defun vc-name (file) |
31564 | 288 "Return the master name of FILE. |
289 If the file is not registered, or the master name is not known, return nil." | |
290 ;; TODO: This should ultimately become obsolete, at least up here | |
31382 | 291 ;; in vc-hooks. |
12251
f2519a110e5f
The RCS status is now found by reading the
Richard M. Stallman <rms@gnu.org>
parents:
12102
diff
changeset
|
292 (or (vc-file-getprop file 'vc-name) |
31808
25632a490236
(vc-name): Force correct computation of the value in case it is missing.
André Spiegel <spiegel@gnu.org>
parents:
31564
diff
changeset
|
293 ;; force computation of the property by calling |
25632a490236
(vc-name): Force correct computation of the value in case it is missing.
André Spiegel <spiegel@gnu.org>
parents:
31564
diff
changeset
|
294 ;; vc-BACKEND-registered explicitly |
25632a490236
(vc-name): Force correct computation of the value in case it is missing.
André Spiegel <spiegel@gnu.org>
parents:
31564
diff
changeset
|
295 (if (and (vc-backend file) |
25632a490236
(vc-name): Force correct computation of the value in case it is missing.
André Spiegel <spiegel@gnu.org>
parents:
31564
diff
changeset
|
296 (vc-call-backend (vc-backend file) 'registered file)) |
21356
c714817643a9
(vc-parse-cvs-status): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21232
diff
changeset
|
297 (vc-file-getprop file 'vc-name)))) |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
298 |
31382 | 299 (defun vc-checkout-model (file) |
300 "Indicate how FILE is checked out. | |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
301 |
31382 | 302 Possible values: |
12884
f47248851f26
(vc-fetch-master-properties): Recognize cvs status "Unresolved Conflict".
André Spiegel <spiegel@gnu.org>
parents:
12874
diff
changeset
|
303 |
31382 | 304 'implicit File is always writeable, and checked out `implicitly' |
305 when the user saves the first changes to the file. | |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
306 |
31382 | 307 'locking File is read-only if up-to-date; user must type |
308 \\[vc-toggle-read-only] before editing. Strict locking | |
309 is assumed. | |
12251
f2519a110e5f
The RCS status is now found by reading the
Richard M. Stallman <rms@gnu.org>
parents:
12102
diff
changeset
|
310 |
31382 | 311 'announce File is read-only if up-to-date; user must type |
312 \\[vc-toggle-read-only] before editing. But other users | |
313 may be editing at the same time." | |
314 (or (vc-file-getprop file 'vc-checkout-model) | |
315 (vc-file-setprop file 'vc-checkout-model | |
316 (vc-call checkout-model file)))) | |
12925
77c9a594fe55
(vc-simple-command): New function.
André Spiegel <spiegel@gnu.org>
parents:
12914
diff
changeset
|
317 |
16742
25558bcdfc93
(vc-user-login-name): New function.
André Spiegel <spiegel@gnu.org>
parents:
16446
diff
changeset
|
318 (defun vc-user-login-name (&optional uid) |
31382 | 319 "Return the name under which the user is logged in, as a string. |
320 \(With optional argument UID, return the name of that user.) | |
321 This function does the same as function `user-login-name', but unlike | |
322 that, it never returns nil. If a UID cannot be resolved, that | |
323 UID is returned as a string." | |
16742
25558bcdfc93
(vc-user-login-name): New function.
André Spiegel <spiegel@gnu.org>
parents:
16446
diff
changeset
|
324 (or (user-login-name uid) |
31382 | 325 (number-to-string (or uid (user-uid))))) |
12925
77c9a594fe55
(vc-simple-command): New function.
André Spiegel <spiegel@gnu.org>
parents:
12914
diff
changeset
|
326 |
31382 | 327 (defun vc-state (file) |
328 "Return the version control state of FILE. | |
329 | |
31564 | 330 The value returned is one of: |
12251
f2519a110e5f
The RCS status is now found by reading the
Richard M. Stallman <rms@gnu.org>
parents:
12102
diff
changeset
|
331 |
31382 | 332 'up-to-date The working file is unmodified with respect to the |
333 latest version on the current branch, and not locked. | |
12925
77c9a594fe55
(vc-simple-command): New function.
André Spiegel <spiegel@gnu.org>
parents:
12914
diff
changeset
|
334 |
31382 | 335 'edited The working file has been edited by the user. If |
336 locking is used for the file, this state means that | |
337 the current version is locked by the calling user. | |
12925
77c9a594fe55
(vc-simple-command): New function.
André Spiegel <spiegel@gnu.org>
parents:
12914
diff
changeset
|
338 |
31382 | 339 USER The current version of the working file is locked by |
340 some other USER (a string). | |
341 | |
342 'needs-patch The file has not been edited by the user, but there is | |
343 a more recent version on the current branch stored | |
344 in the master file. | |
12251
f2519a110e5f
The RCS status is now found by reading the
Richard M. Stallman <rms@gnu.org>
parents:
12102
diff
changeset
|
345 |
31382 | 346 'needs-merge The file has been edited by the user, and there is also |
347 a more recent version on the current branch stored in | |
348 the master file. This state can only occur if locking | |
349 is not used for the file. | |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
350 |
31382 | 351 'unlocked-changes The current version of the working file is not locked, |
352 but the working file has been changed with respect | |
353 to that version. This state can only occur for files | |
354 with locking; it represents an erroneous condition that | |
355 should be resolved by the user (vc-next-action will | |
356 prompt the user to do it)." | |
357 (or (vc-file-getprop file 'vc-state) | |
358 (vc-file-setprop file 'vc-state | |
359 (vc-call state-heuristic file)))) | |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
360 |
31382 | 361 (defsubst vc-up-to-date-p (file) |
362 "Convenience function that checks whether `vc-state' of FILE is `up-to-date'." | |
363 (eq (vc-state file) 'up-to-date)) | |
364 | |
365 (defun vc-default-state-heuristic (backend file) | |
31564 | 366 "Default implementation of vc-state-heuristic. |
367 It simply calls the real state computation function `vc-BACKEND-state' | |
368 and does not employ any heuristic at all." | |
31382 | 369 (vc-call-backend backend 'state file)) |
12252
e07d55d05864
(vc-fetch-master-properties): For RCS file,
Richard M. Stallman <rms@gnu.org>
parents:
12251
diff
changeset
|
370 |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
371 (defun vc-workfile-version (file) |
31382 | 372 "Return version level of the current workfile FILE." |
373 (or (vc-file-getprop file 'vc-workfile-version) | |
374 (vc-file-setprop file 'vc-workfile-version | |
375 (vc-call workfile-version file)))) | |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
376 |
904 | 377 ;;; actual version-control code starts here |
378 | |
31382 | 379 (defun vc-default-registered (backend file) |
380 "Check if FILE is registered in BACKEND using vc-BACKEND-master-templates." | |
381 (let ((sym (vc-make-backend-sym backend 'master-templates))) | |
382 (unless (get backend 'vc-templates-grabbed) | |
383 (put backend 'vc-templates-grabbed t) | |
384 (set sym (append (delq nil | |
385 (mapcar | |
386 (lambda (template) | |
387 (and (consp template) | |
388 (eq (cdr template) backend) | |
389 (car template))) | |
390 vc-master-templates)) | |
391 (symbol-value sym)))) | |
392 (let ((result (vc-check-master-templates file (symbol-value sym)))) | |
393 (if (stringp result) | |
394 (vc-file-setprop file 'vc-name result) | |
395 nil)))) ; Not registered | |
904 | 396 |
31382 | 397 (defun vc-possible-master (s dirname basename) |
398 (cond | |
399 ((stringp s) (format s dirname basename)) | |
400 ((functionp s) | |
401 ;; The template is a function to invoke. If the | |
402 ;; function returns non-nil, that means it has found a | |
403 ;; master. For backward compatibility, we also handle | |
404 ;; the case that the function throws a 'found atom | |
405 ;; and a pair (cons MASTER-FILE BACKEND). | |
406 (let ((result (catch 'found (funcall s dirname basename)))) | |
407 (if (consp result) (car result) result))))) | |
21232
b682a769996d
(vc-sccs-project-dir, vc-search-sccs-project-dir): New functions.
André Spiegel <spiegel@gnu.org>
parents:
20989
diff
changeset
|
408 |
31382 | 409 (defun vc-check-master-templates (file templates) |
410 "Return non-nil if there is a master corresponding to FILE, | |
411 according to any of the elements in TEMPLATES. | |
412 | |
413 TEMPLATES is a list of strings or functions. If an element is a | |
414 string, it must be a control string as required by `format', with two | |
415 string placeholders, such as \"%sRCS/%s,v\". The directory part of | |
416 FILE is substituted for the first placeholder, the basename of FILE | |
417 for the second. If a file with the resulting name exists, it is taken | |
418 as the master of FILE, and returned. | |
9248
325cee61ab7f
(vc-status): Handle CVS.
Richard M. Stallman <rms@gnu.org>
parents:
8982
diff
changeset
|
419 |
31382 | 420 If an element of TEMPLATES is a function, it is called with the |
421 directory part and the basename of FILE as arguments. It should | |
422 return non-nil if it finds a master; that value is then returned by | |
423 this function." | |
424 (let ((dirname (or (file-name-directory file) "")) | |
425 (basename (file-name-nondirectory file))) | |
426 (catch 'found | |
31564 | 427 (mapcar |
31382 | 428 (lambda (s) |
429 (let ((trial (vc-possible-master s dirname basename))) | |
430 (if (and trial (file-exists-p trial) | |
431 ;; Make sure the file we found with name | |
432 ;; TRIAL is not the source file itself. | |
433 ;; That can happen with RCS-style names if | |
434 ;; the file name is truncated (e.g. to 14 | |
435 ;; chars). See if either directory or | |
436 ;; attributes differ. | |
437 (or (not (string= dirname | |
438 (file-name-directory trial))) | |
439 (not (equal (file-attributes file) | |
440 (file-attributes trial))))) | |
441 (throw 'found trial)))) | |
442 templates)))) | |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
443 |
10176
332014233a2c
(vc-toggle-read-only): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents:
9869
diff
changeset
|
444 (defun vc-toggle-read-only (&optional verbose) |
2620
d26f75fd9f5e
(vc-mode-line): Don't alter key bindings.
Richard M. Stallman <rms@gnu.org>
parents:
2491
diff
changeset
|
445 "Change read-only status of current buffer, perhaps via version control. |
d26f75fd9f5e
(vc-mode-line): Don't alter key bindings.
Richard M. Stallman <rms@gnu.org>
parents:
2491
diff
changeset
|
446 If the buffer is visiting a file registered with version control, |
d26f75fd9f5e
(vc-mode-line): Don't alter key bindings.
Richard M. Stallman <rms@gnu.org>
parents:
2491
diff
changeset
|
447 then check the file in or out. Otherwise, just change the read-only flag |
23693
295cf395a392
(vc-toggle-read-only): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23255
diff
changeset
|
448 of the buffer. |
295cf395a392
(vc-toggle-read-only): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23255
diff
changeset
|
449 With prefix argument, ask for version number to check in or check out. |
295cf395a392
(vc-toggle-read-only): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23255
diff
changeset
|
450 Check-out of a specified version number does not lock the file; |
295cf395a392
(vc-toggle-read-only): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23255
diff
changeset
|
451 to do that, use this command a second time with no argument." |
10176
332014233a2c
(vc-toggle-read-only): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents:
9869
diff
changeset
|
452 (interactive "P") |
18850
238067491696
(vc-find-cvs-master): Corrected parsing of CVS/Entries, according to CVS docs.
André Spiegel <spiegel@gnu.org>
parents:
18403
diff
changeset
|
453 (if (or (and (boundp 'vc-dired-mode) vc-dired-mode) |
31382 | 454 ;; use boundp because vc.el might not be loaded |
455 (vc-backend (buffer-file-name))) | |
10176
332014233a2c
(vc-toggle-read-only): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents:
9869
diff
changeset
|
456 (vc-next-action verbose) |
904 | 457 (toggle-read-only))) |
2620
d26f75fd9f5e
(vc-mode-line): Don't alter key bindings.
Richard M. Stallman <rms@gnu.org>
parents:
2491
diff
changeset
|
458 (define-key global-map "\C-x\C-q" 'vc-toggle-read-only) |
904 | 459 |
32746
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
460 (defun vc-default-make-version-backups-p (backend file) |
32127
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
461 "Return non-nil if unmodified repository versions should |
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
462 be backed up locally. The default is to switch off this feature." |
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
463 nil) |
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
464 |
32746
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
465 (defun vc-version-backup-file-name (file &optional rev manual regexp) |
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
466 "Return a backup file name for REV or the current version of FILE. |
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
467 If MANUAL is non-nil it means that a name for backups created by |
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
468 the user should be returned; if REGEXP is non-nil that means to return |
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
469 a regexp for matching all such backup files, regardless of the version." |
32949
78fabc2762c4
(vc-version-backup-file-name): Use file.~<rev>~ for manual backups and
André Spiegel <spiegel@gnu.org>
parents:
32746
diff
changeset
|
470 (if regexp |
78fabc2762c4
(vc-version-backup-file-name): Use file.~<rev>~ for manual backups and
André Spiegel <spiegel@gnu.org>
parents:
32746
diff
changeset
|
471 (concat (regexp-quote (file-name-nondirectory file)) |
78fabc2762c4
(vc-version-backup-file-name): Use file.~<rev>~ for manual backups and
André Spiegel <spiegel@gnu.org>
parents:
32746
diff
changeset
|
472 "\\.~[0-9.]+" (unless manual "\\.") "~") |
78fabc2762c4
(vc-version-backup-file-name): Use file.~<rev>~ for manual backups and
André Spiegel <spiegel@gnu.org>
parents:
32746
diff
changeset
|
473 (expand-file-name (concat (file-name-nondirectory file) |
78fabc2762c4
(vc-version-backup-file-name): Use file.~<rev>~ for manual backups and
André Spiegel <spiegel@gnu.org>
parents:
32746
diff
changeset
|
474 ".~" (or rev (vc-workfile-version file)) |
78fabc2762c4
(vc-version-backup-file-name): Use file.~<rev>~ for manual backups and
André Spiegel <spiegel@gnu.org>
parents:
32746
diff
changeset
|
475 (unless manual ".") "~") |
78fabc2762c4
(vc-version-backup-file-name): Use file.~<rev>~ for manual backups and
André Spiegel <spiegel@gnu.org>
parents:
32746
diff
changeset
|
476 (file-name-directory file)))) |
32746
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
477 |
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
478 (defun vc-delete-automatic-version-backups (file) |
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
479 "Delete all existing automatic version backups for FILE." |
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
480 (mapcar |
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
481 (lambda (f) |
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
482 (delete-file f)) |
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
483 (directory-files (file-name-directory file) t |
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
484 (vc-version-backup-file-name file nil nil t)))) |
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
485 |
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
486 (defun vc-make-version-backup (file) |
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
487 "Make a backup copy of FILE, which is assumed in sync with the repository. |
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
488 Before doing that, check if there are any old backups and get rid of them." |
32953
3632d408929e
(vc-make-version-backup): Don't do it on MS-DOS without long file
André Spiegel <spiegel@gnu.org>
parents:
32949
diff
changeset
|
489 (unless (and (fboundp 'msdos-long-file-names) |
3632d408929e
(vc-make-version-backup): Don't do it on MS-DOS without long file
André Spiegel <spiegel@gnu.org>
parents:
32949
diff
changeset
|
490 (not (msdos-long-file-names))) |
3632d408929e
(vc-make-version-backup): Don't do it on MS-DOS without long file
André Spiegel <spiegel@gnu.org>
parents:
32949
diff
changeset
|
491 (vc-delete-automatic-version-backups file) |
3632d408929e
(vc-make-version-backup): Don't do it on MS-DOS without long file
André Spiegel <spiegel@gnu.org>
parents:
32949
diff
changeset
|
492 (copy-file file (vc-version-backup-file-name file) |
3632d408929e
(vc-make-version-backup): Don't do it on MS-DOS without long file
André Spiegel <spiegel@gnu.org>
parents:
32949
diff
changeset
|
493 nil 'keep-date))) |
32127
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
494 |
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
495 (defun vc-before-save () |
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
496 "Function to be called by `basic-save-buffer' (in files.el)." |
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
497 ;; If the file on disk is still in sync with the repository, |
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
498 ;; and version backups should be made, copy the file to |
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
499 ;; another name. This enables local diffs and local reverting. |
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
500 (let ((file (buffer-file-name))) |
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
501 (and (vc-backend file) |
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
502 (vc-up-to-date-p file) |
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
503 (eq (vc-checkout-model file) 'implicit) |
32746
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
504 (vc-call make-version-backups-p file) |
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
505 (vc-make-version-backup file)))) |
32127
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
506 |
12914
22f47b2375c1
(vc-fetch-master-properties): RCS case: get locking mode.
André Spiegel <spiegel@gnu.org>
parents:
12884
diff
changeset
|
507 (defun vc-after-save () |
31382 | 508 "Function to be called by `basic-save-buffer' (in files.el)." |
31564 | 509 ;; If the file in the current buffer is under version control, |
31382 | 510 ;; up-to-date, and locking is not used for the file, set |
511 ;; the state to 'edited and redisplay the mode line. | |
12914
22f47b2375c1
(vc-fetch-master-properties): RCS case: get locking mode.
André Spiegel <spiegel@gnu.org>
parents:
12884
diff
changeset
|
512 (let ((file (buffer-file-name))) |
21356
c714817643a9
(vc-parse-cvs-status): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21232
diff
changeset
|
513 (and (vc-backend file) |
12967
ee545522ef2a
(vc-utc-string): New function.
André Spiegel <spiegel@gnu.org>
parents:
12944
diff
changeset
|
514 (or (and (equal (vc-file-getprop file 'vc-checkout-time) |
ee545522ef2a
(vc-utc-string): New function.
André Spiegel <spiegel@gnu.org>
parents:
12944
diff
changeset
|
515 (nth 5 (file-attributes file))) |
ee545522ef2a
(vc-utc-string): New function.
André Spiegel <spiegel@gnu.org>
parents:
12944
diff
changeset
|
516 ;; File has been saved in the same second in which |
ee545522ef2a
(vc-utc-string): New function.
André Spiegel <spiegel@gnu.org>
parents:
12944
diff
changeset
|
517 ;; it was checked out. Clear the checkout-time |
ee545522ef2a
(vc-utc-string): New function.
André Spiegel <spiegel@gnu.org>
parents:
12944
diff
changeset
|
518 ;; to avoid confusion. |
ee545522ef2a
(vc-utc-string): New function.
André Spiegel <spiegel@gnu.org>
parents:
12944
diff
changeset
|
519 (vc-file-setprop file 'vc-checkout-time nil)) |
ee545522ef2a
(vc-utc-string): New function.
André Spiegel <spiegel@gnu.org>
parents:
12944
diff
changeset
|
520 t) |
31382 | 521 (vc-up-to-date-p file) |
522 (eq (vc-checkout-model file) 'implicit) | |
523 (vc-file-setprop file 'vc-state 'edited) | |
524 (vc-mode-line file) | |
31404
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
525 (if (featurep 'vc) |
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
526 ;; If VC is not loaded, then there can't be |
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
527 ;; any VC Dired buffer to synchronize. |
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
528 (vc-dired-resynch-file file))))) |
12884
f47248851f26
(vc-fetch-master-properties): Recognize cvs status "Unresolved Conflict".
André Spiegel <spiegel@gnu.org>
parents:
12874
diff
changeset
|
529 |
31382 | 530 (defun vc-mode-line (file) |
2491
5f3061858f47
vc-mode: name change.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
531 "Set `vc-mode' to display type of version control for FILE. |
904 | 532 The value is set in the current buffer, which should be the buffer |
31382 | 533 visiting FILE." |
32188
a771b5a6fa69
(vc-mode-line): Fix interactive spec.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32127
diff
changeset
|
534 (interactive (list buffer-file-name)) |
31382 | 535 (unless (not (vc-backend file)) |
31404
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
536 (setq vc-mode (concat " " (if vc-display-status |
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
537 (vc-call mode-line-string file) |
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
538 (symbol-name (vc-backend file))))) |
15448
593dadb4f287
(vc-mode-line): If user is root, verify file really has user-writable bit.
Richard M. Stallman <rms@gnu.org>
parents:
15196
diff
changeset
|
539 ;; If the file is locked by some other user, make |
593dadb4f287
(vc-mode-line): If user is root, verify file really has user-writable bit.
Richard M. Stallman <rms@gnu.org>
parents:
15196
diff
changeset
|
540 ;; the buffer read-only. Like this, even root |
15517 | 541 ;; cannot modify a file that someone else has locked. |
31382 | 542 (and (equal file (buffer-file-name)) |
543 (stringp (vc-state file)) | |
12914
22f47b2375c1
(vc-fetch-master-properties): RCS case: get locking mode.
André Spiegel <spiegel@gnu.org>
parents:
12884
diff
changeset
|
544 (setq buffer-read-only t)) |
15517 | 545 ;; If the user is root, and the file is not owner-writable, |
546 ;; then pretend that we can't write it | |
547 ;; even though we can (because root can write anything). | |
548 ;; This way, even root cannot modify a file that isn't locked. | |
31382 | 549 (and (equal file (buffer-file-name)) |
15448
593dadb4f287
(vc-mode-line): If user is root, verify file really has user-writable bit.
Richard M. Stallman <rms@gnu.org>
parents:
15196
diff
changeset
|
550 (not buffer-read-only) |
593dadb4f287
(vc-mode-line): If user is root, verify file really has user-writable bit.
Richard M. Stallman <rms@gnu.org>
parents:
15196
diff
changeset
|
551 (zerop (user-real-uid)) |
593dadb4f287
(vc-mode-line): If user is root, verify file really has user-writable bit.
Richard M. Stallman <rms@gnu.org>
parents:
15196
diff
changeset
|
552 (zerop (logand (file-modes (buffer-file-name)) 128)) |
31382 | 553 (setq buffer-read-only t))) |
554 (force-mode-line-update) | |
555 (vc-backend file)) | |
556 | |
557 (defun vc-default-mode-line-string (backend file) | |
558 "Return string for placement in modeline by `vc-mode-line' for FILE. | |
559 Format: | |
560 | |
561 \"BACKEND-REV\" if the file is up-to-date | |
562 \"BACKEND:REV\" if the file is edited (or locked by the calling user) | |
563 \"BACKEND:LOCKER:REV\" if the file is locked by somebody else | |
904 | 564 |
31382 | 565 This function assumes that the file is registered." |
566 (setq backend (symbol-name backend)) | |
567 (let ((state (vc-state file)) | |
568 (rev (vc-workfile-version file))) | |
31404
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
569 (cond ((or (eq state 'up-to-date) |
31382 | 570 (eq state 'needs-patch)) |
571 (concat backend "-" rev)) | |
572 ((stringp state) | |
573 (concat backend ":" state ":" rev)) | |
574 (t | |
575 ;; Not just for the 'edited state, but also a fallback | |
576 ;; for all other states. Think about different symbols | |
577 ;; for 'needs-patch and 'needs-merge. | |
578 (concat backend ":" rev))))) | |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
579 |
14647
b1a88c3a6912
(vc-follow-link): New function.
André Spiegel <spiegel@gnu.org>
parents:
14622
diff
changeset
|
580 (defun vc-follow-link () |
31382 | 581 "If current buffer visits a symbolic link, visit the real file. |
582 If the real file is already visited in another buffer, make that buffer | |
583 current, and kill the buffer that visits the link." | |
15161
ea07411f268e
(vc-follow-link, vc-find-file-hook):
Richard M. Stallman <rms@gnu.org>
parents:
14734
diff
changeset
|
584 (let* ((truename (abbreviate-file-name (file-chase-links buffer-file-name))) |
14673
8f8a4224147b
(vc-follow-link): Simplify by taking advantage
Richard M. Stallman <rms@gnu.org>
parents:
14647
diff
changeset
|
585 (true-buffer (find-buffer-visiting truename)) |
8f8a4224147b
(vc-follow-link): Simplify by taking advantage
Richard M. Stallman <rms@gnu.org>
parents:
14647
diff
changeset
|
586 (this-buffer (current-buffer))) |
8f8a4224147b
(vc-follow-link): Simplify by taking advantage
Richard M. Stallman <rms@gnu.org>
parents:
14647
diff
changeset
|
587 (if (eq true-buffer this-buffer) |
8f8a4224147b
(vc-follow-link): Simplify by taking advantage
Richard M. Stallman <rms@gnu.org>
parents:
14647
diff
changeset
|
588 (progn |
14674
f585d3bf3a73
(vc-follow-link): Kill buffer before creating new one.
Richard M. Stallman <rms@gnu.org>
parents:
14673
diff
changeset
|
589 (kill-buffer this-buffer) |
14673
8f8a4224147b
(vc-follow-link): Simplify by taking advantage
Richard M. Stallman <rms@gnu.org>
parents:
14647
diff
changeset
|
590 ;; In principle, we could do something like set-visited-file-name. |
8f8a4224147b
(vc-follow-link): Simplify by taking advantage
Richard M. Stallman <rms@gnu.org>
parents:
14647
diff
changeset
|
591 ;; However, it can't be exactly the same as set-visited-file-name. |
8f8a4224147b
(vc-follow-link): Simplify by taking advantage
Richard M. Stallman <rms@gnu.org>
parents:
14647
diff
changeset
|
592 ;; I'm not going to work out the details right now. -- rms. |
14674
f585d3bf3a73
(vc-follow-link): Kill buffer before creating new one.
Richard M. Stallman <rms@gnu.org>
parents:
14673
diff
changeset
|
593 (set-buffer (find-file-noselect truename))) |
14673
8f8a4224147b
(vc-follow-link): Simplify by taking advantage
Richard M. Stallman <rms@gnu.org>
parents:
14647
diff
changeset
|
594 (set-buffer true-buffer) |
8f8a4224147b
(vc-follow-link): Simplify by taking advantage
Richard M. Stallman <rms@gnu.org>
parents:
14647
diff
changeset
|
595 (kill-buffer this-buffer)))) |
14647
b1a88c3a6912
(vc-follow-link): New function.
André Spiegel <spiegel@gnu.org>
parents:
14622
diff
changeset
|
596 |
904 | 597 (defun vc-find-file-hook () |
31382 | 598 "Function for `find-file-hooks' activating VC mode if appropriate." |
2218
13be90dfef0c
Merge today's change by eric with everybody else's
Paul Eggert <eggert@twinsun.com>
parents:
2213
diff
changeset
|
599 ;; Recompute whether file is version controlled, |
13be90dfef0c
Merge today's change by eric with everybody else's
Paul Eggert <eggert@twinsun.com>
parents:
2213
diff
changeset
|
600 ;; if user has killed the buffer and revisited. |
31382 | 601 (when buffer-file-name |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
602 (vc-file-clearprops buffer-file-name) |
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
603 (cond |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
604 ((vc-backend buffer-file-name) |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
605 (vc-mode-line buffer-file-name) |
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
606 (cond ((not vc-make-backup-files) |
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
607 ;; Use this variable, not make-backup-files, |
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
608 ;; because this is for things that depend on the file name. |
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
609 (make-local-variable 'backup-inhibited) |
12590
a771c59393e7
(vc-mode-line, vc-find-file-hook): Moved the test for
Richard M. Stallman <rms@gnu.org>
parents:
12561
diff
changeset
|
610 (setq backup-inhibited t)))) |
a771c59393e7
(vc-mode-line, vc-find-file-hook): Moved the test for
Richard M. Stallman <rms@gnu.org>
parents:
12561
diff
changeset
|
611 ((let* ((link (file-symlink-p buffer-file-name)) |
15196
414e523050d5
(vc-find-file-hook): Follow multiple links all the way.
Richard M. Stallman <rms@gnu.org>
parents:
15161
diff
changeset
|
612 (link-type (and link (vc-backend (file-chase-links link))))) |
12590
a771c59393e7
(vc-mode-line, vc-find-file-hook): Moved the test for
Richard M. Stallman <rms@gnu.org>
parents:
12561
diff
changeset
|
613 (if link-type |
14142
c9cb9dbb2d40
(vc-follow-symlinks): New variable.
André Spiegel <spiegel@gnu.org>
parents:
14040
diff
changeset
|
614 (cond ((eq vc-follow-symlinks nil) |
c9cb9dbb2d40
(vc-follow-symlinks): New variable.
André Spiegel <spiegel@gnu.org>
parents:
14040
diff
changeset
|
615 (message |
c9cb9dbb2d40
(vc-follow-symlinks): New variable.
André Spiegel <spiegel@gnu.org>
parents:
14040
diff
changeset
|
616 "Warning: symbolic link to %s-controlled source file" link-type)) |
15161
ea07411f268e
(vc-follow-link, vc-find-file-hook):
Richard M. Stallman <rms@gnu.org>
parents:
14734
diff
changeset
|
617 ((or (not (eq vc-follow-symlinks 'ask)) |
ea07411f268e
(vc-follow-link, vc-find-file-hook):
Richard M. Stallman <rms@gnu.org>
parents:
14734
diff
changeset
|
618 ;; If we already visited this file by following |
ea07411f268e
(vc-follow-link, vc-find-file-hook):
Richard M. Stallman <rms@gnu.org>
parents:
14734
diff
changeset
|
619 ;; the link, don't ask again if we try to visit |
ea07411f268e
(vc-follow-link, vc-find-file-hook):
Richard M. Stallman <rms@gnu.org>
parents:
14734
diff
changeset
|
620 ;; it again. GUD does that, and repeated questions |
ea07411f268e
(vc-follow-link, vc-find-file-hook):
Richard M. Stallman <rms@gnu.org>
parents:
14734
diff
changeset
|
621 ;; are painful. |
ea07411f268e
(vc-follow-link, vc-find-file-hook):
Richard M. Stallman <rms@gnu.org>
parents:
14734
diff
changeset
|
622 (get-file-buffer |
31564 | 623 (abbreviate-file-name |
31382 | 624 (file-chase-links buffer-file-name)))) |
15161
ea07411f268e
(vc-follow-link, vc-find-file-hook):
Richard M. Stallman <rms@gnu.org>
parents:
14734
diff
changeset
|
625 |
ea07411f268e
(vc-follow-link, vc-find-file-hook):
Richard M. Stallman <rms@gnu.org>
parents:
14734
diff
changeset
|
626 (vc-follow-link) |
ea07411f268e
(vc-follow-link, vc-find-file-hook):
Richard M. Stallman <rms@gnu.org>
parents:
14734
diff
changeset
|
627 (message "Followed link to %s" buffer-file-name) |
ea07411f268e
(vc-follow-link, vc-find-file-hook):
Richard M. Stallman <rms@gnu.org>
parents:
14734
diff
changeset
|
628 (vc-find-file-hook)) |
ea07411f268e
(vc-follow-link, vc-find-file-hook):
Richard M. Stallman <rms@gnu.org>
parents:
14734
diff
changeset
|
629 (t |
14142
c9cb9dbb2d40
(vc-follow-symlinks): New variable.
André Spiegel <spiegel@gnu.org>
parents:
14040
diff
changeset
|
630 (if (yes-or-no-p (format |
c9cb9dbb2d40
(vc-follow-symlinks): New variable.
André Spiegel <spiegel@gnu.org>
parents:
14040
diff
changeset
|
631 "Symbolic link to %s-controlled source file; follow link? " link-type)) |
14647
b1a88c3a6912
(vc-follow-link): New function.
André Spiegel <spiegel@gnu.org>
parents:
14622
diff
changeset
|
632 (progn (vc-follow-link) |
14142
c9cb9dbb2d40
(vc-follow-symlinks): New variable.
André Spiegel <spiegel@gnu.org>
parents:
14040
diff
changeset
|
633 (message "Followed link to %s" buffer-file-name) |
c9cb9dbb2d40
(vc-follow-symlinks): New variable.
André Spiegel <spiegel@gnu.org>
parents:
14040
diff
changeset
|
634 (vc-find-file-hook)) |
31382 | 635 (message |
14142
c9cb9dbb2d40
(vc-follow-symlinks): New variable.
André Spiegel <spiegel@gnu.org>
parents:
14040
diff
changeset
|
636 "Warning: editing through the link bypasses version control") |
31382 | 637 ))))))))) |
904 | 638 |
4655
604a401e05a4
(vc-find-file-hook, vc-file-not-found-hook): Use add-hook to install.
Paul Eggert <eggert@twinsun.com>
parents:
4338
diff
changeset
|
639 (add-hook 'find-file-hooks 'vc-find-file-hook) |
904 | 640 |
641 ;;; more hooks, this time for file-not-found | |
642 (defun vc-file-not-found-hook () | |
31382 | 643 "When file is not found, try to check it out from version control. |
644 Returns t if checkout was successful, nil otherwise. | |
645 Used in `find-file-not-found-hooks'." | |
22947
f20bf5cd31d9
(vc-file-not-found-hook): Call vc-file-clearprops.
Richard M. Stallman <rms@gnu.org>
parents:
22112
diff
changeset
|
646 ;; When a file does not exist, ignore cached info about it |
f20bf5cd31d9
(vc-file-not-found-hook): Call vc-file-clearprops.
Richard M. Stallman <rms@gnu.org>
parents:
22112
diff
changeset
|
647 ;; from a previous visit. |
f20bf5cd31d9
(vc-file-not-found-hook): Call vc-file-clearprops.
Richard M. Stallman <rms@gnu.org>
parents:
22112
diff
changeset
|
648 (vc-file-clearprops buffer-file-name) |
31382 | 649 (if (and (vc-backend buffer-file-name) |
31564 | 650 (yes-or-no-p |
31382 | 651 (format "File %s was lost; check out from version control? " |
652 (file-name-nondirectory buffer-file-name)))) | |
653 (save-excursion | |
654 (require 'vc) | |
655 (setq default-directory (file-name-directory buffer-file-name)) | |
656 (not (vc-error-occurred (vc-checkout buffer-file-name)))))) | |
904 | 657 |
4655
604a401e05a4
(vc-find-file-hook, vc-file-not-found-hook): Use add-hook to install.
Paul Eggert <eggert@twinsun.com>
parents:
4338
diff
changeset
|
658 (add-hook 'find-file-not-found-hooks 'vc-file-not-found-hook) |
904 | 659 |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
660 (defun vc-kill-buffer-hook () |
31382 | 661 "Discard VC info about a file when we kill its buffer." |
662 (if (buffer-file-name) | |
663 (vc-file-clearprops (buffer-file-name)))) | |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
664 |
31382 | 665 ;; ??? DL: why is this not done? |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
666 ;;;(add-hook 'kill-buffer-hook 'vc-kill-buffer-hook) |
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
667 |
904 | 668 ;;; Now arrange for bindings and autoloading of the main package. |
2491
5f3061858f47
vc-mode: name change.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
669 ;;; Bindings for this have to go in the global map, as we'll often |
5f3061858f47
vc-mode: name change.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
670 ;;; want to call them from random buffers. |
904 | 671 |
31382 | 672 (autoload 'vc-prefix-map "vc" nil nil 'keymap) |
673 (define-key global-map "\C-xv" 'vc-prefix-map) | |
8982
2a81d1c79162
(vc-menu-map): Set up menu items.
Richard M. Stallman <rms@gnu.org>
parents:
7568
diff
changeset
|
674 |
9869
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
675 (if (not (boundp 'vc-menu-map)) |
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
676 ;; Don't do the menu bindings if menu-bar.el wasn't loaded to defvar |
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
677 ;; vc-menu-map. |
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
678 () |
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
679 ;;(define-key vc-menu-map [show-files] |
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
680 ;; '("Show Files under VC" . (vc-directory t))) |
18403
bb63fa860267
(vc-menu-map): Add bindings for vc-retrieve-snapshot and vc-create-snapshot.
Richard M. Stallman <rms@gnu.org>
parents:
18148
diff
changeset
|
681 (define-key vc-menu-map [vc-retrieve-snapshot] |
bb63fa860267
(vc-menu-map): Add bindings for vc-retrieve-snapshot and vc-create-snapshot.
Richard M. Stallman <rms@gnu.org>
parents:
18148
diff
changeset
|
682 '("Retrieve Snapshot" . vc-retrieve-snapshot)) |
bb63fa860267
(vc-menu-map): Add bindings for vc-retrieve-snapshot and vc-create-snapshot.
Richard M. Stallman <rms@gnu.org>
parents:
18148
diff
changeset
|
683 (define-key vc-menu-map [vc-create-snapshot] |
bb63fa860267
(vc-menu-map): Add bindings for vc-retrieve-snapshot and vc-create-snapshot.
Richard M. Stallman <rms@gnu.org>
parents:
18148
diff
changeset
|
684 '("Create Snapshot" . vc-create-snapshot)) |
23255
6b2b3ceeb3cd
(vc-menu-map): Change the vc-directory label. Don't
Dave Love <fx@gnu.org>
parents:
22947
diff
changeset
|
685 (define-key vc-menu-map [vc-directory] '("VC Directory Listing" . vc-directory)) |
9869
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
686 (define-key vc-menu-map [separator1] '("----")) |
18148
c6e694b6de26
(vc-annotate): Entry "Annotate" added to menu and
Richard M. Stallman <rms@gnu.org>
parents:
17642
diff
changeset
|
687 (define-key vc-menu-map [vc-annotate] '("Annotate" . vc-annotate)) |
9869
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
688 (define-key vc-menu-map [vc-rename-file] '("Rename File" . vc-rename-file)) |
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
689 (define-key vc-menu-map [vc-version-other-window] |
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
690 '("Show Other Version" . vc-version-other-window)) |
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
691 (define-key vc-menu-map [vc-diff] '("Compare with Last Version" . vc-diff)) |
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
692 (define-key vc-menu-map [vc-update-change-log] |
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
693 '("Update ChangeLog" . vc-update-change-log)) |
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
694 (define-key vc-menu-map [vc-print-log] '("Show History" . vc-print-log)) |
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
695 (define-key vc-menu-map [separator2] '("----")) |
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
696 (define-key vc-menu-map [undo] '("Undo Last Check-In" . vc-cancel-version)) |
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
697 (define-key vc-menu-map [vc-revert-buffer] |
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
698 '("Revert to Last Version" . vc-revert-buffer)) |
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
699 (define-key vc-menu-map [vc-insert-header] |
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
700 '("Insert Header" . vc-insert-headers)) |
19103
3a841692390c
(vc-menu-map): Replace entries for "Check In" and "Check Out" with
André Spiegel <spiegel@gnu.org>
parents:
19054
diff
changeset
|
701 (define-key vc-menu-map [vc-next-action] '("Check In/Out" . vc-next-action)) |
14622
3d47471d947d
Move all the put's for menu-enable props to top level.
Karl Heuer <kwzh@gnu.org>
parents:
14566
diff
changeset
|
702 (define-key vc-menu-map [vc-register] '("Register" . vc-register))) |
3d47471d947d
Move all the put's for menu-enable props to top level.
Karl Heuer <kwzh@gnu.org>
parents:
14566
diff
changeset
|
703 |
23255
6b2b3ceeb3cd
(vc-menu-map): Change the vc-directory label. Don't
Dave Love <fx@gnu.org>
parents:
22947
diff
changeset
|
704 ;;; These are not correct and it's not currently clear how doing it |
6b2b3ceeb3cd
(vc-menu-map): Change the vc-directory label. Don't
Dave Love <fx@gnu.org>
parents:
22947
diff
changeset
|
705 ;;; better (with more complicated expressions) might slow things down |
6b2b3ceeb3cd
(vc-menu-map): Change the vc-directory label. Don't
Dave Love <fx@gnu.org>
parents:
22947
diff
changeset
|
706 ;;; on older systems. |
6b2b3ceeb3cd
(vc-menu-map): Change the vc-directory label. Don't
Dave Love <fx@gnu.org>
parents:
22947
diff
changeset
|
707 |
6b2b3ceeb3cd
(vc-menu-map): Change the vc-directory label. Don't
Dave Love <fx@gnu.org>
parents:
22947
diff
changeset
|
708 ;;;(put 'vc-rename-file 'menu-enable 'vc-mode) |
6b2b3ceeb3cd
(vc-menu-map): Change the vc-directory label. Don't
Dave Love <fx@gnu.org>
parents:
22947
diff
changeset
|
709 ;;;(put 'vc-annotate 'menu-enable '(eq (vc-buffer-backend) 'CVS)) |
6b2b3ceeb3cd
(vc-menu-map): Change the vc-directory label. Don't
Dave Love <fx@gnu.org>
parents:
22947
diff
changeset
|
710 ;;;(put 'vc-version-other-window 'menu-enable 'vc-mode) |
6b2b3ceeb3cd
(vc-menu-map): Change the vc-directory label. Don't
Dave Love <fx@gnu.org>
parents:
22947
diff
changeset
|
711 ;;;(put 'vc-diff 'menu-enable 'vc-mode) |
6b2b3ceeb3cd
(vc-menu-map): Change the vc-directory label. Don't
Dave Love <fx@gnu.org>
parents:
22947
diff
changeset
|
712 ;;;(put 'vc-update-change-log 'menu-enable |
31382 | 713 ;;; '(member (vc-buffer-backend) '(RCS CVS))) |
23255
6b2b3ceeb3cd
(vc-menu-map): Change the vc-directory label. Don't
Dave Love <fx@gnu.org>
parents:
22947
diff
changeset
|
714 ;;;(put 'vc-print-log 'menu-enable 'vc-mode) |
6b2b3ceeb3cd
(vc-menu-map): Change the vc-directory label. Don't
Dave Love <fx@gnu.org>
parents:
22947
diff
changeset
|
715 ;;;(put 'vc-cancel-version 'menu-enable 'vc-mode) |
6b2b3ceeb3cd
(vc-menu-map): Change the vc-directory label. Don't
Dave Love <fx@gnu.org>
parents:
22947
diff
changeset
|
716 ;;;(put 'vc-revert-buffer 'menu-enable 'vc-mode) |
6b2b3ceeb3cd
(vc-menu-map): Change the vc-directory label. Don't
Dave Love <fx@gnu.org>
parents:
22947
diff
changeset
|
717 ;;;(put 'vc-insert-headers 'menu-enable 'vc-mode) |
6b2b3ceeb3cd
(vc-menu-map): Change the vc-directory label. Don't
Dave Love <fx@gnu.org>
parents:
22947
diff
changeset
|
718 ;;;(put 'vc-next-action 'menu-enable 'vc-mode) |
6b2b3ceeb3cd
(vc-menu-map): Change the vc-directory label. Don't
Dave Love <fx@gnu.org>
parents:
22947
diff
changeset
|
719 ;;;(put 'vc-register 'menu-enable '(and buffer-file-name (not vc-mode))) |
904 | 720 |
721 (provide 'vc-hooks) | |
722 | |
723 ;;; vc-hooks.el ends here |