Mercurial > emacs
annotate lisp/vc-hooks.el @ 76151:96f6ff98e5ac
*** empty log message ***
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 26 Feb 2007 07:43:01 +0000 |
parents | e3694f1cb928 |
children | ec47afd2d1db b8d9a391daf3 95d0cdf160ea |
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 |
74442 | 3 ;; Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001, |
75347 | 4 ;; 2002, 2003, 2004, 2005, 2006, 2007 Free Software Foundation, Inc. |
904 | 5 |
31382 | 6 ;; Author: FSF (see vc.el for full credits) |
7 ;; Maintainer: Andre Spiegel <spiegel@gnu.org> | |
904 | 8 |
57079
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
9 ;; $Id$ |
20989 | 10 |
904 | 11 ;; This file is part of GNU Emacs. |
12 | |
13 ;; GNU Emacs is free software; you can redistribute it and/or modify | |
14 ;; it under the terms of the GNU General Public License as published by | |
15 ;; the Free Software Foundation; either version 2, or (at your option) | |
16 ;; any later version. | |
17 | |
18 ;; GNU Emacs is distributed in the hope that it will be useful, | |
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of | |
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 ;; GNU General Public License for more details. | |
22 | |
23 ;; You should have received a copy of the GNU General Public License | |
14169 | 24 ;; along with GNU Emacs; see the file COPYING. If not, write to the |
64091 | 25 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
26 ;; Boston, MA 02110-1301, USA. | |
904 | 27 |
28 ;;; Commentary: | |
29 | |
31382 | 30 ;; This is the always-loaded portion of VC. It takes care of |
31 ;; VC-related activities that are done when you visit a file, so that | |
32 ;; vc.el itself is loaded only when you use a VC command. See the | |
33 ;; commentary of vc.el. | |
904 | 34 |
35 ;;; Code: | |
36 | |
33856
6f1ab7313eb7
Require 'cl during compilation.
André Spiegel <spiegel@gnu.org>
parents:
33634
diff
changeset
|
37 (eval-when-compile |
6f1ab7313eb7
Require 'cl during compilation.
André Spiegel <spiegel@gnu.org>
parents:
33634
diff
changeset
|
38 (require 'cl)) |
31404
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
39 |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
40 ;; 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
|
41 |
49620
c1b2182d8ca1
(vc-ignore-vc-files, vc-master-templates, vc-header-alist): Add obsolescence
Juanma Barranquero <lekktu@gmail.com>
parents:
47918
diff
changeset
|
42 (defvar vc-ignore-vc-files nil) |
52300
2672198e6a12
(vc-ignore-vc-files, vc-master-templates): Better explain obsolescence, and
André Spiegel <spiegel@gnu.org>
parents:
52055
diff
changeset
|
43 (make-obsolete-variable 'vc-ignore-vc-files |
52302
15340592804c
(vc-ignore-vc-files, vc-master-templates): Doc fix - quote lisp symbols.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
52300
diff
changeset
|
44 "set `vc-handled-backends' to nil to disable VC.") |
52300
2672198e6a12
(vc-ignore-vc-files, vc-master-templates): Better explain obsolescence, and
André Spiegel <spiegel@gnu.org>
parents:
52055
diff
changeset
|
45 |
49620
c1b2182d8ca1
(vc-ignore-vc-files, vc-master-templates, vc-header-alist): Add obsolescence
Juanma Barranquero <lekktu@gmail.com>
parents:
47918
diff
changeset
|
46 (defvar vc-master-templates ()) |
55099
a856350e29d5
(vc-default-workfile-unchanged-p): Fix code that handles
Juanma Barranquero <lekktu@gmail.com>
parents:
54912
diff
changeset
|
47 (make-obsolete-variable 'vc-master-templates |
a856350e29d5
(vc-default-workfile-unchanged-p): Fix code that handles
Juanma Barranquero <lekktu@gmail.com>
parents:
54912
diff
changeset
|
48 "to define master templates for a given BACKEND, use |
52300
2672198e6a12
(vc-ignore-vc-files, vc-master-templates): Better explain obsolescence, and
André Spiegel <spiegel@gnu.org>
parents:
52055
diff
changeset
|
49 vc-BACKEND-master-templates. To enable or disable VC for a given |
52302
15340592804c
(vc-ignore-vc-files, vc-master-templates): Doc fix - quote lisp symbols.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
52300
diff
changeset
|
50 BACKEND, use `vc-handled-backends'.") |
52300
2672198e6a12
(vc-ignore-vc-files, vc-master-templates): Better explain obsolescence, and
André Spiegel <spiegel@gnu.org>
parents:
52055
diff
changeset
|
51 |
49620
c1b2182d8ca1
(vc-ignore-vc-files, vc-master-templates, vc-header-alist): Add obsolescence
Juanma Barranquero <lekktu@gmail.com>
parents:
47918
diff
changeset
|
52 (defvar vc-header-alist ()) |
c1b2182d8ca1
(vc-ignore-vc-files, vc-master-templates, vc-header-alist): Add obsolescence
Juanma Barranquero <lekktu@gmail.com>
parents:
47918
diff
changeset
|
53 (make-obsolete-variable 'vc-header-alist 'vc-BACKEND-header) |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
54 |
73351
29547db9ad61
(vc-ignore-dir-regexp): Make it into a defcustom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68651
diff
changeset
|
55 (defcustom vc-ignore-dir-regexp "\\`\\([\\/][\\/]\\|/net/\\|/afs/\\)\\'" |
29547db9ad61
(vc-ignore-dir-regexp): Make it into a defcustom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68651
diff
changeset
|
56 "Regexp matching directory names that are not under VC's control. |
57079
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
57 The default regexp prevents fruitless and time-consuming attempts |
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
58 to determine the VC status in directories in which filenames are |
73351
29547db9ad61
(vc-ignore-dir-regexp): Make it into a defcustom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68651
diff
changeset
|
59 interpreted as hostnames." |
29547db9ad61
(vc-ignore-dir-regexp): Make it into a defcustom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68651
diff
changeset
|
60 :type 'regexp |
29547db9ad61
(vc-ignore-dir-regexp): Make it into a defcustom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68651
diff
changeset
|
61 :group 'vc) |
57079
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
62 |
54397
fcc26abed3ba
(vc-handled-backends): Add Arch. Move MCVS down.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
63 (defcustom vc-handled-backends '(RCS CVS SVN SCCS Arch MCVS) |
fcc26abed3ba
(vc-handled-backends): Add Arch. Move MCVS down.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
64 ;; Arch and MCVS come last because they are per-tree rather than per-dir. |
31382 | 65 "*List of version control backends for which VC will be used. |
66 Entries in this list will be tried in order to determine whether a | |
67 file is under that sort of version control. | |
68 Removing an entry from the list prevents VC from being activated | |
69 when visiting a file managed by that backend. | |
70 An empty list disables VC altogether." | |
71 :type '(repeat symbol) | |
31404
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
72 :version "21.1" |
20413 | 73 :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
|
74 |
20413 | 75 (defcustom vc-path |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
76 (if (file-directory-p "/usr/sccs") |
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
77 '("/usr/sccs") |
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
78 nil) |
20413 | 79 "*List of extra directories to search for version control commands." |
80 :type '(repeat directory) | |
81 :group 'vc) | |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
82 |
20413 | 83 (defcustom vc-make-backup-files nil |
5164
04d6b9e7782a
(vc-make-backup-files): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
4726
diff
changeset
|
84 "*If non-nil, backups of registered files are made as with other files. |
20413 | 85 If nil (the default), files covered by version control don't get backups." |
86 :type 'boolean | |
51480
3da903950521
(vc-make-backup-files): Add :group backup.
Dave Love <fx@gnu.org>
parents:
51370
diff
changeset
|
87 :group 'vc |
3da903950521
(vc-make-backup-files): Add :group backup.
Dave Love <fx@gnu.org>
parents:
51370
diff
changeset
|
88 :group 'backup) |
904 | 89 |
20413 | 90 (defcustom vc-follow-symlinks 'ask |
31382 | 91 "*What to do if visiting a symbolic link to a file under version control. |
92 Editing such a file through the link bypasses the version control system, | |
93 which is dangerous and probably not what you want. | |
94 | |
95 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
|
96 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
|
97 confirmation whether it should follow the link. If nil, the link is |
20413 | 98 visited and a warning displayed." |
31382 | 99 :type '(choice (const :tag "Ask for confirmation" ask) |
100 (const :tag "Visit link and warn" nil) | |
101 (const :tag "Follow link" t)) | |
20413 | 102 :group 'vc) |
14142
c9cb9dbb2d40
(vc-follow-symlinks): New variable.
André Spiegel <spiegel@gnu.org>
parents:
14040
diff
changeset
|
103 |
20413 | 104 (defcustom vc-display-status t |
8982
2a81d1c79162
(vc-menu-map): Set up menu items.
Richard M. Stallman <rms@gnu.org>
parents:
7568
diff
changeset
|
105 "*If non-nil, display revision number and lock status in modeline. |
20413 | 106 Otherwise, not displayed." |
107 :type 'boolean | |
108 :group 'vc) | |
109 | |
3900
c6f3d2af0df7
(vc-rcs-status): New variable.
Richard M. Stallman <rms@gnu.org>
parents:
3459
diff
changeset
|
110 |
20413 | 111 (defcustom vc-consult-headers t |
112 "*If non-nil, identify work files by searching for version headers." | |
113 :type 'boolean | |
114 :group 'vc) | |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
115 |
20413 | 116 (defcustom vc-keep-workfiles t |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
117 "*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
|
118 If the back-end is CVS, workfiles are always kept, regardless of the |
20413 | 119 value of this flag." |
120 :type 'boolean | |
121 :group 'vc) | |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
122 |
20413 | 123 (defcustom vc-mistrust-permissions nil |
31382 | 124 "*If non-nil, don't assume permissions/ownership track version-control status. |
125 If nil, do rely on the permissions. | |
20413 | 126 See also variable `vc-consult-headers'." |
127 :type 'boolean | |
128 :group 'vc) | |
12914
22f47b2375c1
(vc-fetch-master-properties): RCS case: get locking mode.
André Spiegel <spiegel@gnu.org>
parents:
12884
diff
changeset
|
129 |
22f47b2375c1
(vc-fetch-master-properties): RCS case: get locking mode.
André Spiegel <spiegel@gnu.org>
parents:
12884
diff
changeset
|
130 (defun vc-mistrust-permissions (file) |
31382 | 131 "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
|
132 (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
|
133 (and vc-mistrust-permissions |
31382 | 134 (funcall vc-mistrust-permissions |
12914
22f47b2375c1
(vc-fetch-master-properties): RCS case: get locking mode.
André Spiegel <spiegel@gnu.org>
parents:
12884
diff
changeset
|
135 (vc-backend-subdirectory-name file))))) |
22f47b2375c1
(vc-fetch-master-properties): RCS case: get locking mode.
André Spiegel <spiegel@gnu.org>
parents:
12884
diff
changeset
|
136 |
51761
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
137 (defcustom vc-stay-local t |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
138 "*Non-nil means use local operations when possible for remote repositories. |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
139 This avoids slow queries over the network and instead uses heuristics |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
140 and past information to determine the current status of a file. |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
141 |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
142 The value can also be a regular expression or list of regular |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
143 expressions to match against the host name of a repository; then VC |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
144 only stays local for hosts that match it. Alternatively, the value |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
145 can be a list of regular expressions where the first element is the |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
146 symbol `except'; then VC always stays local except for hosts matched |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
147 by these regular expressions." |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
148 :type '(choice (const :tag "Always stay local" t) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
149 (const :tag "Don't stay local" nil) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
150 (list :format "\nExamine hostname and %v" :tag "Examine hostname ..." |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
151 (set :format "%v" :inline t (const :format "%t" :tag "don't" except)) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
152 (regexp :format " stay local,\n%t: %v" :tag "if it matches") |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
153 (repeat :format "%v%i\n" :inline t (regexp :tag "or")))) |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59978
diff
changeset
|
154 :version "22.1" |
51761
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
155 :group 'vc) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
156 |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
157 (defun vc-stay-local-p (file) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
158 "Return non-nil if VC should stay local when handling FILE. |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
159 This uses the `repository-hostname' backend operation." |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
160 (let* ((backend (vc-backend file)) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
161 (sym (vc-make-backend-sym backend 'stay-local)) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
162 (stay-local (if (boundp sym) (symbol-value sym) t))) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
163 (if (eq stay-local t) (setq stay-local vc-stay-local)) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
164 (if (symbolp stay-local) stay-local |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
165 (let ((dirname (if (file-directory-p file) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
166 (directory-file-name file) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
167 (file-name-directory file)))) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
168 (eq 'yes |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
169 (or (vc-file-getprop dirname 'vc-stay-local-p) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
170 (vc-file-setprop |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
171 dirname 'vc-stay-local-p |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
172 (let ((hostname (vc-call-backend |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
173 backend 'repository-hostname dirname))) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
174 (if (not hostname) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
175 'no |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
176 (let ((default t)) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
177 (if (eq (car-safe stay-local) 'except) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
178 (setq default nil stay-local (cdr stay-local))) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
179 (when (consp stay-local) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
180 (setq stay-local |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
181 (mapconcat 'identity stay-local "\\|"))) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
182 (if (if (string-match stay-local hostname) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
183 default (not default)) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
184 'yes 'no))))))))))) |
856170cb64e9
(vc-stay-local, vc-stay-local-p): Move from vc.el.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
51480
diff
changeset
|
185 |
46723
2d147caabf88
Don't add to minor-mode-alist.
Richard M. Stallman <rms@gnu.org>
parents:
46542
diff
changeset
|
186 ;;; This is handled specially now. |
904 | 187 ;; Tell Emacs about this new kind of minor mode |
46723
2d147caabf88
Don't add to minor-mode-alist.
Richard M. Stallman <rms@gnu.org>
parents:
46542
diff
changeset
|
188 ;; (add-to-list 'minor-mode-alist '(vc-mode vc-mode)) |
904 | 189 |
2491
5f3061858f47
vc-mode: name change.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
190 (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
|
191 (put 'vc-mode 'permanent-local t) |
904 | 192 |
38373
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
193 (defun vc-mode (&optional arg) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
194 ;; Dummy function for C-h m |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
195 "Version Control minor mode. |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
196 This minor mode is automatically activated whenever you visit a file under |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
197 control of one of the revision control systems in `vc-handled-backends'. |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
198 VC commands are globally reachable under the prefix `\\[vc-prefix-map]': |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
199 \\{vc-prefix-map}") |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
200 |
31404
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
201 (defmacro vc-error-occurred (&rest body) |
40851
19448ae09fc0
(vc-error-occured): Backquotified.
André Spiegel <spiegel@gnu.org>
parents:
39417
diff
changeset
|
202 `(condition-case nil (progn ,@body nil) (error t))) |
31404
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
203 |
904 | 204 ;; 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
|
205 ;; control state of a file is expensive to derive --- we compute |
31382 | 206 ;; 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
|
207 ;; 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
|
208 ;; the buffer is killed. |
904 | 209 |
40851
19448ae09fc0
(vc-error-occured): Backquotified.
André Spiegel <spiegel@gnu.org>
parents:
39417
diff
changeset
|
210 (defvar vc-file-prop-obarray (make-vector 17 0) |
904 | 211 "Obarray for per-file properties.") |
212 | |
31404
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
213 (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
|
214 |
904 | 215 (defun vc-file-setprop (file property value) |
31382 | 216 "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
|
217 (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
|
218 (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
|
219 (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
|
220 vc-touched-properties))) |
904 | 221 (put (intern file vc-file-prop-obarray) property value)) |
222 | |
223 (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
|
224 "Get per-file VC PROPERTY for FILE." |
904 | 225 (get (intern file vc-file-prop-obarray) property)) |
226 | |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
227 (defun vc-file-clearprops (file) |
31382 | 228 "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
|
229 (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
|
230 |
31382 | 231 |
232 ;; We keep properties on each symbol naming a backend as follows: | |
233 ;; * `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
|
234 |
31382 | 235 (defun vc-make-backend-sym (backend sym) |
236 "Return BACKEND-specific version of VC symbol SYM." | |
237 (intern (concat "vc-" (downcase (symbol-name backend)) | |
238 "-" (symbol-name sym)))) | |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
239 |
31382 | 240 (defun vc-find-backend-function (backend fun) |
241 "Return BACKEND-specific implementation of FUN. | |
47918
022aa2332f91
(vc-insert-file): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47244
diff
changeset
|
242 If there is no such implementation, return the default implementation; |
31382 | 243 if that doesn't exist either, return nil." |
244 (let ((f (vc-make-backend-sym backend fun))) | |
245 (if (fboundp f) f | |
246 ;; Load vc-BACKEND.el if needed. | |
247 (require (intern (concat "vc-" (downcase (symbol-name backend))))) | |
248 (if (fboundp f) f | |
249 (let ((def (vc-make-backend-sym 'default fun))) | |
250 (if (fboundp def) (cons def backend) nil)))))) | |
251 | |
252 (defun vc-call-backend (backend function-name &rest args) | |
253 "Call for BACKEND the implementation of FUNCTION-NAME with the given ARGS. | |
254 Calls | |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
255 |
31382 | 256 (apply 'vc-BACKEND-FUN ARGS) |
257 | |
258 if vc-BACKEND-FUN exists (after trying to find it in vc-BACKEND.el) | |
259 and else calls | |
260 | |
261 (apply 'vc-default-FUN BACKEND ARGS) | |
262 | |
263 It is usually called via the `vc-call' macro." | |
51370
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
264 (let ((f (assoc function-name (get backend 'vc-functions)))) |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
265 (if f (setq f (cdr f)) |
31382 | 266 (setq f (vc-find-backend-function backend function-name)) |
51370
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
267 (push (cons function-name f) (get backend 'vc-functions))) |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
268 (cond |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
269 ((null f) |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
270 (error "Sorry, %s is not implemented for %s" function-name backend)) |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
271 ((consp f) (apply (car f) (cdr f) args)) |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
272 (t (apply f args))))) |
31382 | 273 |
274 (defmacro vc-call (fun file &rest args) | |
275 ;; BEWARE!! `file' is evaluated twice!! | |
276 `(vc-call-backend (vc-backend ,file) ',fun ,file ,@args)) | |
277 | |
278 (defsubst vc-parse-buffer (pattern i) | |
279 "Find PATTERN in the current buffer and return its Ith submatch." | |
280 (goto-char (point-min)) | |
281 (if (re-search-forward pattern nil t) | |
282 (match-string i))) | |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
283 |
12251
f2519a110e5f
The RCS status is now found by reading the
Richard M. Stallman <rms@gnu.org>
parents:
12102
diff
changeset
|
284 (defun vc-insert-file (file &optional limit blocksize) |
31382 | 285 "Insert the contents of FILE into the current buffer. |
286 | |
287 Optional argument LIMIT is a regexp. If present, the file is inserted | |
288 in chunks of size BLOCKSIZE (default 8 kByte), until the first | |
47918
022aa2332f91
(vc-insert-file): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47244
diff
changeset
|
289 occurrence of LIMIT is found. Anything from the start of that occurrence |
46542
f8e6993503cf
(vc-insert-file): When called with a LIMIT regexp,
André Spiegel <spiegel@gnu.org>
parents:
46453
diff
changeset
|
290 to the end of the buffer is then deleted. The function returns |
f8e6993503cf
(vc-insert-file): When called with a LIMIT regexp,
André Spiegel <spiegel@gnu.org>
parents:
46453
diff
changeset
|
291 non-nil if FILE 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
|
292 (erase-buffer) |
33206
7feabfeb41cc
(vc-insert-file): Rewritten. Don't bother about auto-save-mode.
André Spiegel <spiegel@gnu.org>
parents:
32953
diff
changeset
|
293 (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
|
294 (if (not limit) |
7feabfeb41cc
(vc-insert-file): Rewritten. Don't bother about auto-save-mode.
André Spiegel <spiegel@gnu.org>
parents:
32953
diff
changeset
|
295 (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
|
296 (if (not blocksize) (setq blocksize 8192)) |
33247
23d61d30fcd0
(vc-insert-file): Don't assume byte==char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33206
diff
changeset
|
297 (let ((filepos 0)) |
23d61d30fcd0
(vc-insert-file): Don't assume byte==char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33206
diff
changeset
|
298 (while |
23d61d30fcd0
(vc-insert-file): Don't assume byte==char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33206
diff
changeset
|
299 (and (< 0 (cadr (insert-file-contents |
23d61d30fcd0
(vc-insert-file): Don't assume byte==char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33206
diff
changeset
|
300 file nil filepos (incf filepos blocksize)))) |
23d61d30fcd0
(vc-insert-file): Don't assume byte==char.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33206
diff
changeset
|
301 (progn (beginning-of-line) |
46542
f8e6993503cf
(vc-insert-file): When called with a LIMIT regexp,
André Spiegel <spiegel@gnu.org>
parents:
46453
diff
changeset
|
302 (let ((pos (re-search-forward limit nil 'move))) |
f8e6993503cf
(vc-insert-file): When called with a LIMIT regexp,
André Spiegel <spiegel@gnu.org>
parents:
46453
diff
changeset
|
303 (if pos (delete-region (match-beginning 0) |
f8e6993503cf
(vc-insert-file): When called with a LIMIT regexp,
André Spiegel <spiegel@gnu.org>
parents:
46453
diff
changeset
|
304 (point-max))) |
f8e6993503cf
(vc-insert-file): When called with a LIMIT regexp,
André Spiegel <spiegel@gnu.org>
parents:
46453
diff
changeset
|
305 (not pos))))))) |
33206
7feabfeb41cc
(vc-insert-file): Rewritten. Don't bother about auto-save-mode.
André Spiegel <spiegel@gnu.org>
parents:
32953
diff
changeset
|
306 (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
|
307 t)) |
12251
f2519a110e5f
The RCS status is now found by reading the
Richard M. Stallman <rms@gnu.org>
parents:
12102
diff
changeset
|
308 |
57079
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
309 (defun vc-find-root (file witness) |
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
310 "Find the root of a checked out project. |
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
311 The function walks up the directory tree from FILE looking for WITNESS. |
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
312 If WITNESS if not found, return nil, otherwise return the root." |
73351
29547db9ad61
(vc-ignore-dir-regexp): Make it into a defcustom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68651
diff
changeset
|
313 ;; Represent /home/luser/foo as ~/foo so that we don't try to look for |
29547db9ad61
(vc-ignore-dir-regexp): Make it into a defcustom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68651
diff
changeset
|
314 ;; witnesses in /home or in /. |
29547db9ad61
(vc-ignore-dir-regexp): Make it into a defcustom.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
68651
diff
changeset
|
315 (setq file (abbreviate-file-name file)) |
57079
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
316 (let ((root nil)) |
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
317 (while (not (or root |
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
318 (equal file (setq file (file-name-directory file))) |
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
319 (null file) |
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
320 (string-match vc-ignore-dir-regexp file))) |
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
321 (if (file-exists-p (expand-file-name witness file)) |
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
322 (setq root file) |
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
323 (setq file (directory-file-name file)))) |
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
324 root)) |
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
325 |
38373
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
326 ;; Access functions to file properties |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
327 ;; (Properties should be _set_ using vc-file-setprop, but |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
328 ;; _retrieved_ only through these functions, which decide |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
329 ;; if the property is already known or not. A property should |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
330 ;; only be retrieved by vc-file-getprop if there is no |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
331 ;; access function.) |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
332 |
38373
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
333 ;; properties indicating the backend being used for FILE |
31382 | 334 |
335 (defun vc-registered (file) | |
336 "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
|
337 |
32070
d1ab0499dc86
(vc-registered): If FILE used to be registered under a certain
André Spiegel <spiegel@gnu.org>
parents:
31808
diff
changeset
|
338 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
|
339 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
|
340 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
|
341 backend is tried first." |
31382 | 342 (let (handler) |
57079
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
343 (cond |
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
344 ((string-match vc-ignore-dir-regexp (file-name-directory file)) nil) |
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
345 ((and (boundp 'file-name-handler-alist) |
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
346 (setq handler (find-file-name-handler file 'vc-registered))) |
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
347 ;; handler should set vc-backend and return t if registered |
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
348 (funcall handler 'vc-registered file)) |
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
349 (t |
31382 | 350 ;; There is no file name handler. |
351 ;; Try vc-BACKEND-registered for each handled BACKEND. | |
352 (catch 'found | |
32070
d1ab0499dc86
(vc-registered): If FILE used to be registered under a certain
André Spiegel <spiegel@gnu.org>
parents:
31808
diff
changeset
|
353 (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
|
354 (mapcar |
d1ab0499dc86
(vc-registered): If FILE used to be registered under a certain
André Spiegel <spiegel@gnu.org>
parents:
31808
diff
changeset
|
355 (lambda (b) |
d1ab0499dc86
(vc-registered): If FILE used to be registered under a certain
André Spiegel <spiegel@gnu.org>
parents:
31808
diff
changeset
|
356 (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
|
357 (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
|
358 (throw 'found t))) |
47918
022aa2332f91
(vc-insert-file): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47244
diff
changeset
|
359 (if (or (not backend) (eq backend 'none)) |
32070
d1ab0499dc86
(vc-registered): If FILE used to be registered under a certain
André Spiegel <spiegel@gnu.org>
parents:
31808
diff
changeset
|
360 vc-handled-backends |
d1ab0499dc86
(vc-registered): If FILE used to be registered under a certain
André Spiegel <spiegel@gnu.org>
parents:
31808
diff
changeset
|
361 (cons backend vc-handled-backends)))) |
31382 | 362 ;; File is not registered. |
363 (vc-file-setprop file 'vc-backend 'none) | |
57079
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
364 nil))))) |
31382 | 365 |
366 (defun vc-backend (file) | |
367 "Return the version control type of FILE, nil if it is not registered." | |
368 ;; `file' can be nil in several places (typically due to the use of | |
50879
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
369 ;; code like (vc-backend buffer-file-name)). |
31382 | 370 (when (stringp file) |
371 (let ((property (vc-file-getprop file 'vc-backend))) | |
372 ;; Note that internally, Emacs remembers unregistered | |
373 ;; files by setting the property to `none'. | |
374 (cond ((eq property 'none) nil) | |
375 (property) | |
376 ;; vc-registered sets the vc-backend property | |
377 (t (if (vc-registered file) | |
378 (vc-file-getprop file 'vc-backend) | |
379 nil)))))) | |
380 | |
381 (defun vc-backend-subdirectory-name (file) | |
382 "Return where the master and lock FILEs for the current directory are kept." | |
383 (symbol-name (vc-backend file))) | |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
384 |
12251
f2519a110e5f
The RCS status is now found by reading the
Richard M. Stallman <rms@gnu.org>
parents:
12102
diff
changeset
|
385 (defun vc-name (file) |
31564 | 386 "Return the master name of FILE. |
387 If the file is not registered, or the master name is not known, return nil." | |
388 ;; TODO: This should ultimately become obsolete, at least up here | |
31382 | 389 ;; in vc-hooks. |
12251
f2519a110e5f
The RCS status is now found by reading the
Richard M. Stallman <rms@gnu.org>
parents:
12102
diff
changeset
|
390 (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
|
391 ;; 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
|
392 ;; 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
|
393 (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
|
394 (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
|
395 (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
|
396 |
31382 | 397 (defun vc-checkout-model (file) |
398 "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
|
399 |
42021
ddb97861a688
(vc-checkout-model, vc-state, vc-workfile-version): Return nil if
André Spiegel <spiegel@gnu.org>
parents:
41956
diff
changeset
|
400 If FILE is not registered, this function always returns nil. |
ddb97861a688
(vc-checkout-model, vc-state, vc-workfile-version): Return nil if
André Spiegel <spiegel@gnu.org>
parents:
41956
diff
changeset
|
401 For registered files, the possible values are: |
12884
f47248851f26
(vc-fetch-master-properties): Recognize cvs status "Unresolved Conflict".
André Spiegel <spiegel@gnu.org>
parents:
12874
diff
changeset
|
402 |
42021
ddb97861a688
(vc-checkout-model, vc-state, vc-workfile-version): Return nil if
André Spiegel <spiegel@gnu.org>
parents:
41956
diff
changeset
|
403 'implicit FILE is always writeable, and checked out `implicitly' |
31382 | 404 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
|
405 |
42021
ddb97861a688
(vc-checkout-model, vc-state, vc-workfile-version): Return nil if
André Spiegel <spiegel@gnu.org>
parents:
41956
diff
changeset
|
406 'locking FILE is read-only if up-to-date; user must type |
46453
8a775aba60aa
Don't bind vc-toggle-read-only to C-x C-q.
André Spiegel <spiegel@gnu.org>
parents:
43587
diff
changeset
|
407 \\[vc-next-action] before editing. Strict locking |
31382 | 408 is assumed. |
12251
f2519a110e5f
The RCS status is now found by reading the
Richard M. Stallman <rms@gnu.org>
parents:
12102
diff
changeset
|
409 |
42021
ddb97861a688
(vc-checkout-model, vc-state, vc-workfile-version): Return nil if
André Spiegel <spiegel@gnu.org>
parents:
41956
diff
changeset
|
410 'announce FILE is read-only if up-to-date; user must type |
46453
8a775aba60aa
Don't bind vc-toggle-read-only to C-x C-q.
André Spiegel <spiegel@gnu.org>
parents:
43587
diff
changeset
|
411 \\[vc-next-action] before editing. But other users |
31382 | 412 may be editing at the same time." |
413 (or (vc-file-getprop file 'vc-checkout-model) | |
42021
ddb97861a688
(vc-checkout-model, vc-state, vc-workfile-version): Return nil if
André Spiegel <spiegel@gnu.org>
parents:
41956
diff
changeset
|
414 (if (vc-backend file) |
ddb97861a688
(vc-checkout-model, vc-state, vc-workfile-version): Return nil if
André Spiegel <spiegel@gnu.org>
parents:
41956
diff
changeset
|
415 (vc-file-setprop file 'vc-checkout-model |
ddb97861a688
(vc-checkout-model, vc-state, vc-workfile-version): Return nil if
André Spiegel <spiegel@gnu.org>
parents:
41956
diff
changeset
|
416 (vc-call checkout-model file))))) |
12925
77c9a594fe55
(vc-simple-command): New function.
André Spiegel <spiegel@gnu.org>
parents:
12914
diff
changeset
|
417 |
68383
4e64c3323161
(vc-user-login-name): Rewritten to handle access via Tramp.
André Spiegel <spiegel@gnu.org>
parents:
64762
diff
changeset
|
418 (defun vc-user-login-name (file) |
4e64c3323161
(vc-user-login-name): Rewritten to handle access via Tramp.
André Spiegel <spiegel@gnu.org>
parents:
64762
diff
changeset
|
419 "Return the name under which the user accesses the given FILE." |
4e64c3323161
(vc-user-login-name): Rewritten to handle access via Tramp.
André Spiegel <spiegel@gnu.org>
parents:
64762
diff
changeset
|
420 (or (and (eq (string-match tramp-file-name-regexp file) 0) |
4e64c3323161
(vc-user-login-name): Rewritten to handle access via Tramp.
André Spiegel <spiegel@gnu.org>
parents:
64762
diff
changeset
|
421 ;; tramp case: execute "whoami" via tramp |
4e64c3323161
(vc-user-login-name): Rewritten to handle access via Tramp.
André Spiegel <spiegel@gnu.org>
parents:
64762
diff
changeset
|
422 (let ((default-directory (file-name-directory file))) |
4e64c3323161
(vc-user-login-name): Rewritten to handle access via Tramp.
André Spiegel <spiegel@gnu.org>
parents:
64762
diff
changeset
|
423 (with-temp-buffer |
4e64c3323161
(vc-user-login-name): Rewritten to handle access via Tramp.
André Spiegel <spiegel@gnu.org>
parents:
64762
diff
changeset
|
424 (if (not (zerop (process-file "whoami" nil t))) |
4e64c3323161
(vc-user-login-name): Rewritten to handle access via Tramp.
André Spiegel <spiegel@gnu.org>
parents:
64762
diff
changeset
|
425 ;; fall through if "whoami" didn't work |
4e64c3323161
(vc-user-login-name): Rewritten to handle access via Tramp.
André Spiegel <spiegel@gnu.org>
parents:
64762
diff
changeset
|
426 nil |
4e64c3323161
(vc-user-login-name): Rewritten to handle access via Tramp.
André Spiegel <spiegel@gnu.org>
parents:
64762
diff
changeset
|
427 ;; remove trailing newline |
4e64c3323161
(vc-user-login-name): Rewritten to handle access via Tramp.
André Spiegel <spiegel@gnu.org>
parents:
64762
diff
changeset
|
428 (delete-region (1- (point-max)) (point-max)) |
4e64c3323161
(vc-user-login-name): Rewritten to handle access via Tramp.
André Spiegel <spiegel@gnu.org>
parents:
64762
diff
changeset
|
429 (buffer-string))))) |
4e64c3323161
(vc-user-login-name): Rewritten to handle access via Tramp.
André Spiegel <spiegel@gnu.org>
parents:
64762
diff
changeset
|
430 ;; normal case |
4e64c3323161
(vc-user-login-name): Rewritten to handle access via Tramp.
André Spiegel <spiegel@gnu.org>
parents:
64762
diff
changeset
|
431 (user-login-name) |
4e64c3323161
(vc-user-login-name): Rewritten to handle access via Tramp.
André Spiegel <spiegel@gnu.org>
parents:
64762
diff
changeset
|
432 ;; if user-login-name is nil, return the UID as a string |
4e64c3323161
(vc-user-login-name): Rewritten to handle access via Tramp.
André Spiegel <spiegel@gnu.org>
parents:
64762
diff
changeset
|
433 (number-to-string (user-uid)))) |
12925
77c9a594fe55
(vc-simple-command): New function.
André Spiegel <spiegel@gnu.org>
parents:
12914
diff
changeset
|
434 |
31382 | 435 (defun vc-state (file) |
436 "Return the version control state of FILE. | |
437 | |
42021
ddb97861a688
(vc-checkout-model, vc-state, vc-workfile-version): Return nil if
André Spiegel <spiegel@gnu.org>
parents:
41956
diff
changeset
|
438 If FILE is not registered, this function always returns nil. |
ddb97861a688
(vc-checkout-model, vc-state, vc-workfile-version): Return nil if
André Spiegel <spiegel@gnu.org>
parents:
41956
diff
changeset
|
439 For registered files, 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
|
440 |
31382 | 441 'up-to-date The working file is unmodified with respect to the |
442 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
|
443 |
31382 | 444 'edited The working file has been edited by the user. If |
445 locking is used for the file, this state means that | |
446 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
|
447 |
31382 | 448 USER The current version of the working file is locked by |
449 some other USER (a string). | |
47918
022aa2332f91
(vc-insert-file): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47244
diff
changeset
|
450 |
31382 | 451 'needs-patch The file has not been edited by the user, but there is |
452 a more recent version on the current branch stored | |
453 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
|
454 |
31382 | 455 'needs-merge The file has been edited by the user, and there is also |
456 a more recent version on the current branch stored in | |
457 the master file. This state can only occur if locking | |
458 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
|
459 |
31382 | 460 'unlocked-changes The current version of the working file is not locked, |
461 but the working file has been changed with respect | |
462 to that version. This state can only occur for files | |
463 with locking; it represents an erroneous condition that | |
464 should be resolved by the user (vc-next-action will | |
465 prompt the user to do it)." | |
50895
8b4ee8a18c21
(vc-default-workfile-unchanged-p): Pass nil
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50880
diff
changeset
|
466 ;; FIXME: New (sub)states needed (?): |
8b4ee8a18c21
(vc-default-workfile-unchanged-p): Pass nil
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50880
diff
changeset
|
467 ;; - `added' (i.e. `edited' but with no base version yet, |
8b4ee8a18c21
(vc-default-workfile-unchanged-p): Pass nil
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50880
diff
changeset
|
468 ;; typically represented by vc-workfile-version = "0") |
8b4ee8a18c21
(vc-default-workfile-unchanged-p): Pass nil
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50880
diff
changeset
|
469 ;; - `conflict' (i.e. `edited' with conflict markers) |
8b4ee8a18c21
(vc-default-workfile-unchanged-p): Pass nil
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50880
diff
changeset
|
470 ;; - `removed' |
8b4ee8a18c21
(vc-default-workfile-unchanged-p): Pass nil
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50880
diff
changeset
|
471 ;; - `copied' and `moved' (might be handled by `removed' and `added') |
31382 | 472 (or (vc-file-getprop file 'vc-state) |
42021
ddb97861a688
(vc-checkout-model, vc-state, vc-workfile-version): Return nil if
André Spiegel <spiegel@gnu.org>
parents:
41956
diff
changeset
|
473 (if (vc-backend file) |
ddb97861a688
(vc-checkout-model, vc-state, vc-workfile-version): Return nil if
André Spiegel <spiegel@gnu.org>
parents:
41956
diff
changeset
|
474 (vc-file-setprop file 'vc-state |
ddb97861a688
(vc-checkout-model, vc-state, vc-workfile-version): Return nil if
André Spiegel <spiegel@gnu.org>
parents:
41956
diff
changeset
|
475 (vc-call state-heuristic file))))) |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
476 |
58641
6eccfc449b0e
(vc-recompute-state): Moved here from vc.el.
André Spiegel <spiegel@gnu.org>
parents:
57532
diff
changeset
|
477 (defun vc-recompute-state (file) |
6eccfc449b0e
(vc-recompute-state): Moved here from vc.el.
André Spiegel <spiegel@gnu.org>
parents:
57532
diff
changeset
|
478 "Recompute the version control state of FILE, and return it. |
6eccfc449b0e
(vc-recompute-state): Moved here from vc.el.
André Spiegel <spiegel@gnu.org>
parents:
57532
diff
changeset
|
479 This calls the possibly expensive function vc-BACKEND-state, |
6eccfc449b0e
(vc-recompute-state): Moved here from vc.el.
André Spiegel <spiegel@gnu.org>
parents:
57532
diff
changeset
|
480 rather than the heuristic." |
6eccfc449b0e
(vc-recompute-state): Moved here from vc.el.
André Spiegel <spiegel@gnu.org>
parents:
57532
diff
changeset
|
481 (vc-file-setprop file 'vc-state (vc-call state file))) |
6eccfc449b0e
(vc-recompute-state): Moved here from vc.el.
André Spiegel <spiegel@gnu.org>
parents:
57532
diff
changeset
|
482 |
31382 | 483 (defsubst vc-up-to-date-p (file) |
484 "Convenience function that checks whether `vc-state' of FILE is `up-to-date'." | |
485 (eq (vc-state file) 'up-to-date)) | |
486 | |
487 (defun vc-default-state-heuristic (backend file) | |
31564 | 488 "Default implementation of vc-state-heuristic. |
489 It simply calls the real state computation function `vc-BACKEND-state' | |
490 and does not employ any heuristic at all." | |
31382 | 491 (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
|
492 |
47226
31f2c4b2c82f
Require vc.el at compile-time.
André Spiegel <spiegel@gnu.org>
parents:
47003
diff
changeset
|
493 (defun vc-workfile-unchanged-p (file) |
31f2c4b2c82f
Require vc.el at compile-time.
André Spiegel <spiegel@gnu.org>
parents:
47003
diff
changeset
|
494 "Return non-nil if FILE has not changed since the last checkout." |
31f2c4b2c82f
Require vc.el at compile-time.
André Spiegel <spiegel@gnu.org>
parents:
47003
diff
changeset
|
495 (let ((checkout-time (vc-file-getprop file 'vc-checkout-time)) |
31f2c4b2c82f
Require vc.el at compile-time.
André Spiegel <spiegel@gnu.org>
parents:
47003
diff
changeset
|
496 (lastmod (nth 5 (file-attributes file)))) |
61203
92bee19cd688
(vc-workfile-unchanged-p): Disable mtime check when we go via Tramp or
André Spiegel <spiegel@gnu.org>
parents:
59996
diff
changeset
|
497 (if (and checkout-time |
92bee19cd688
(vc-workfile-unchanged-p): Disable mtime check when we go via Tramp or
André Spiegel <spiegel@gnu.org>
parents:
59996
diff
changeset
|
498 ;; Tramp and Ange-FTP return this when they don't know the time. |
92bee19cd688
(vc-workfile-unchanged-p): Disable mtime check when we go via Tramp or
André Spiegel <spiegel@gnu.org>
parents:
59996
diff
changeset
|
499 (not (equal lastmod '(0 0)))) |
47226
31f2c4b2c82f
Require vc.el at compile-time.
André Spiegel <spiegel@gnu.org>
parents:
47003
diff
changeset
|
500 (equal checkout-time lastmod) |
31f2c4b2c82f
Require vc.el at compile-time.
André Spiegel <spiegel@gnu.org>
parents:
47003
diff
changeset
|
501 (let ((unchanged (vc-call workfile-unchanged-p file))) |
31f2c4b2c82f
Require vc.el at compile-time.
André Spiegel <spiegel@gnu.org>
parents:
47003
diff
changeset
|
502 (vc-file-setprop file 'vc-checkout-time (if unchanged lastmod 0)) |
31f2c4b2c82f
Require vc.el at compile-time.
André Spiegel <spiegel@gnu.org>
parents:
47003
diff
changeset
|
503 unchanged)))) |
31f2c4b2c82f
Require vc.el at compile-time.
André Spiegel <spiegel@gnu.org>
parents:
47003
diff
changeset
|
504 |
31f2c4b2c82f
Require vc.el at compile-time.
André Spiegel <spiegel@gnu.org>
parents:
47003
diff
changeset
|
505 (defun vc-default-workfile-unchanged-p (backend file) |
31f2c4b2c82f
Require vc.el at compile-time.
André Spiegel <spiegel@gnu.org>
parents:
47003
diff
changeset
|
506 "Check if FILE is unchanged by diffing against the master version. |
31f2c4b2c82f
Require vc.el at compile-time.
André Spiegel <spiegel@gnu.org>
parents:
47003
diff
changeset
|
507 Return non-nil if FILE is unchanged." |
54783
507f2c946725
(vc-arg-list): Function removed.
André Spiegel <spiegel@gnu.org>
parents:
54613
diff
changeset
|
508 (zerop (condition-case err |
54561
225341adbb0d
(vc-arg-list): New function, which handles both compiled and
André Spiegel <spiegel@gnu.org>
parents:
54529
diff
changeset
|
509 ;; If the implementation supports it, let the output |
225341adbb0d
(vc-arg-list): New function, which handles both compiled and
André Spiegel <spiegel@gnu.org>
parents:
54529
diff
changeset
|
510 ;; go to *vc*, not *vc-diff*, since this is an internal call. |
225341adbb0d
(vc-arg-list): New function, which handles both compiled and
André Spiegel <spiegel@gnu.org>
parents:
54529
diff
changeset
|
511 (vc-call diff file nil nil "*vc*") |
54783
507f2c946725
(vc-arg-list): Function removed.
André Spiegel <spiegel@gnu.org>
parents:
54613
diff
changeset
|
512 (wrong-number-of-arguments |
507f2c946725
(vc-arg-list): Function removed.
André Spiegel <spiegel@gnu.org>
parents:
54613
diff
changeset
|
513 ;; If this error came from the above call to vc-BACKEND-diff, |
507f2c946725
(vc-arg-list): Function removed.
André Spiegel <spiegel@gnu.org>
parents:
54613
diff
changeset
|
514 ;; try again without the optional buffer argument (for |
507f2c946725
(vc-arg-list): Function removed.
André Spiegel <spiegel@gnu.org>
parents:
54613
diff
changeset
|
515 ;; backward compatibility). Otherwise, resignal. |
507f2c946725
(vc-arg-list): Function removed.
André Spiegel <spiegel@gnu.org>
parents:
54613
diff
changeset
|
516 (if (or (not (eq (cadr err) |
507f2c946725
(vc-arg-list): Function removed.
André Spiegel <spiegel@gnu.org>
parents:
54613
diff
changeset
|
517 (indirect-function |
507f2c946725
(vc-arg-list): Function removed.
André Spiegel <spiegel@gnu.org>
parents:
54613
diff
changeset
|
518 (vc-find-backend-function (vc-backend file) |
507f2c946725
(vc-arg-list): Function removed.
André Spiegel <spiegel@gnu.org>
parents:
54613
diff
changeset
|
519 'diff)))) |
55099
a856350e29d5
(vc-default-workfile-unchanged-p): Fix code that handles
Juanma Barranquero <lekktu@gmail.com>
parents:
54912
diff
changeset
|
520 (not (eq (caddr err) 4))) |
a856350e29d5
(vc-default-workfile-unchanged-p): Fix code that handles
Juanma Barranquero <lekktu@gmail.com>
parents:
54912
diff
changeset
|
521 (signal (car err) (cdr err)) |
54783
507f2c946725
(vc-arg-list): Function removed.
André Spiegel <spiegel@gnu.org>
parents:
54613
diff
changeset
|
522 (vc-call diff file)))))) |
47226
31f2c4b2c82f
Require vc.el at compile-time.
André Spiegel <spiegel@gnu.org>
parents:
47003
diff
changeset
|
523 |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
524 (defun vc-workfile-version (file) |
42021
ddb97861a688
(vc-checkout-model, vc-state, vc-workfile-version): Return nil if
André Spiegel <spiegel@gnu.org>
parents:
41956
diff
changeset
|
525 "Return the version level of the current workfile FILE. |
ddb97861a688
(vc-checkout-model, vc-state, vc-workfile-version): Return nil if
André Spiegel <spiegel@gnu.org>
parents:
41956
diff
changeset
|
526 If FILE is not registered, this function always returns nil." |
31382 | 527 (or (vc-file-getprop file 'vc-workfile-version) |
42021
ddb97861a688
(vc-checkout-model, vc-state, vc-workfile-version): Return nil if
André Spiegel <spiegel@gnu.org>
parents:
41956
diff
changeset
|
528 (if (vc-backend file) |
ddb97861a688
(vc-checkout-model, vc-state, vc-workfile-version): Return nil if
André Spiegel <spiegel@gnu.org>
parents:
41956
diff
changeset
|
529 (vc-file-setprop file 'vc-workfile-version |
ddb97861a688
(vc-checkout-model, vc-state, vc-workfile-version): Return nil if
André Spiegel <spiegel@gnu.org>
parents:
41956
diff
changeset
|
530 (vc-call workfile-version file))))) |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
531 |
31382 | 532 (defun vc-default-registered (backend file) |
533 "Check if FILE is registered in BACKEND using vc-BACKEND-master-templates." | |
534 (let ((sym (vc-make-backend-sym backend 'master-templates))) | |
535 (unless (get backend 'vc-templates-grabbed) | |
536 (put backend 'vc-templates-grabbed t) | |
537 (set sym (append (delq nil | |
538 (mapcar | |
539 (lambda (template) | |
540 (and (consp template) | |
541 (eq (cdr template) backend) | |
542 (car template))) | |
52051
3507a2fac9b5
(vc-default-registered, vc-make-version-backup): Use with-no-warnings.
André Spiegel <spiegel@gnu.org>
parents:
51761
diff
changeset
|
543 (with-no-warnings |
3507a2fac9b5
(vc-default-registered, vc-make-version-backup): Use with-no-warnings.
André Spiegel <spiegel@gnu.org>
parents:
51761
diff
changeset
|
544 vc-master-templates))) |
31382 | 545 (symbol-value sym)))) |
546 (let ((result (vc-check-master-templates file (symbol-value sym)))) | |
547 (if (stringp result) | |
548 (vc-file-setprop file 'vc-name result) | |
549 nil)))) ; Not registered | |
904 | 550 |
31382 | 551 (defun vc-possible-master (s dirname basename) |
552 (cond | |
553 ((stringp s) (format s dirname basename)) | |
554 ((functionp s) | |
555 ;; The template is a function to invoke. If the | |
556 ;; function returns non-nil, that means it has found a | |
557 ;; master. For backward compatibility, we also handle | |
558 ;; the case that the function throws a 'found atom | |
559 ;; and a pair (cons MASTER-FILE BACKEND). | |
560 (let ((result (catch 'found (funcall s dirname basename)))) | |
561 (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
|
562 |
31382 | 563 (defun vc-check-master-templates (file templates) |
42021
ddb97861a688
(vc-checkout-model, vc-state, vc-workfile-version): Return nil if
André Spiegel <spiegel@gnu.org>
parents:
41956
diff
changeset
|
564 "Return non-nil if there is a master corresponding to FILE. |
31382 | 565 |
566 TEMPLATES is a list of strings or functions. If an element is a | |
567 string, it must be a control string as required by `format', with two | |
568 string placeholders, such as \"%sRCS/%s,v\". The directory part of | |
569 FILE is substituted for the first placeholder, the basename of FILE | |
570 for the second. If a file with the resulting name exists, it is taken | |
571 as the master of FILE, and returned. | |
9248
325cee61ab7f
(vc-status): Handle CVS.
Richard M. Stallman <rms@gnu.org>
parents:
8982
diff
changeset
|
572 |
31382 | 573 If an element of TEMPLATES is a function, it is called with the |
574 directory part and the basename of FILE as arguments. It should | |
575 return non-nil if it finds a master; that value is then returned by | |
576 this function." | |
577 (let ((dirname (or (file-name-directory file) "")) | |
578 (basename (file-name-nondirectory file))) | |
579 (catch 'found | |
31564 | 580 (mapcar |
31382 | 581 (lambda (s) |
582 (let ((trial (vc-possible-master s dirname basename))) | |
583 (if (and trial (file-exists-p trial) | |
584 ;; Make sure the file we found with name | |
585 ;; TRIAL is not the source file itself. | |
586 ;; That can happen with RCS-style names if | |
587 ;; the file name is truncated (e.g. to 14 | |
588 ;; chars). See if either directory or | |
589 ;; attributes differ. | |
590 (or (not (string= dirname | |
591 (file-name-directory trial))) | |
592 (not (equal (file-attributes file) | |
593 (file-attributes trial))))) | |
594 (throw 'found trial)))) | |
595 templates)))) | |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
596 |
10176
332014233a2c
(vc-toggle-read-only): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents:
9869
diff
changeset
|
597 (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
|
598 "Change read-only status of current buffer, perhaps via version control. |
46453
8a775aba60aa
Don't bind vc-toggle-read-only to C-x C-q.
André Spiegel <spiegel@gnu.org>
parents:
43587
diff
changeset
|
599 |
2620
d26f75fd9f5e
(vc-mode-line): Don't alter key bindings.
Richard M. Stallman <rms@gnu.org>
parents:
2491
diff
changeset
|
600 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
|
601 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
|
602 of the buffer. |
295cf395a392
(vc-toggle-read-only): Doc fix.
Karl Heuer <kwzh@gnu.org>
parents:
23255
diff
changeset
|
603 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
|
604 Check-out of a specified version number does not lock the file; |
46453
8a775aba60aa
Don't bind vc-toggle-read-only to C-x C-q.
André Spiegel <spiegel@gnu.org>
parents:
43587
diff
changeset
|
605 to do that, use this command a second time with no argument. |
8a775aba60aa
Don't bind vc-toggle-read-only to C-x C-q.
André Spiegel <spiegel@gnu.org>
parents:
43587
diff
changeset
|
606 |
8a775aba60aa
Don't bind vc-toggle-read-only to C-x C-q.
André Spiegel <spiegel@gnu.org>
parents:
43587
diff
changeset
|
607 If you bind this function to \\[toggle-read-only], then Emacs checks files |
8a775aba60aa
Don't bind vc-toggle-read-only to C-x C-q.
André Spiegel <spiegel@gnu.org>
parents:
43587
diff
changeset
|
608 in or out whenever you toggle the read-only flag." |
10176
332014233a2c
(vc-toggle-read-only): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents:
9869
diff
changeset
|
609 (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
|
610 (if (or (and (boundp 'vc-dired-mode) vc-dired-mode) |
31382 | 611 ;; use boundp because vc.el might not be loaded |
50879
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
612 (vc-backend buffer-file-name)) |
10176
332014233a2c
(vc-toggle-read-only): Accept prefix arg
Richard M. Stallman <rms@gnu.org>
parents:
9869
diff
changeset
|
613 (vc-next-action verbose) |
904 | 614 (toggle-read-only))) |
615 | |
32746
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
616 (defun vc-default-make-version-backups-p (backend file) |
42021
ddb97861a688
(vc-checkout-model, vc-state, vc-workfile-version): Return nil if
André Spiegel <spiegel@gnu.org>
parents:
41956
diff
changeset
|
617 "Return non-nil if unmodified versions should be backed up locally. |
41956
48dc7989392b
(vc-default-make-version-backups-p): Doc fix.
Pavel Janík <Pavel@Janik.cz>
parents:
40851
diff
changeset
|
618 The default is to switch off this feature." |
32127
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
619 nil) |
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
620 |
32746
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
621 (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
|
622 "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
|
623 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
|
624 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
|
625 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
|
626 (if regexp |
78fabc2762c4
(vc-version-backup-file-name): Use file.~<rev>~ for manual backups and
André Spiegel <spiegel@gnu.org>
parents:
32746
diff
changeset
|
627 (concat (regexp-quote (file-name-nondirectory file)) |
74939
e58390f88130
(vc-version-backup-file-name): Revision names may be
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
74442
diff
changeset
|
628 "\\.~.+" (unless manual "\\.") "~") |
47918
022aa2332f91
(vc-insert-file): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47244
diff
changeset
|
629 (expand-file-name (concat (file-name-nondirectory file) |
74939
e58390f88130
(vc-version-backup-file-name): Revision names may be
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
74442
diff
changeset
|
630 ".~" (subst-char-in-string |
e58390f88130
(vc-version-backup-file-name): Revision names may be
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
74442
diff
changeset
|
631 ?/ ?_ (or rev (vc-workfile-version file))) |
32949
78fabc2762c4
(vc-version-backup-file-name): Use file.~<rev>~ for manual backups and
André Spiegel <spiegel@gnu.org>
parents:
32746
diff
changeset
|
632 (unless manual ".") "~") |
78fabc2762c4
(vc-version-backup-file-name): Use file.~<rev>~ for manual backups and
André Spiegel <spiegel@gnu.org>
parents:
32746
diff
changeset
|
633 (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
|
634 |
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
635 (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
|
636 "Delete all existing automatic version backups for FILE." |
39389
6629bc0d69e5
(vc-delete-automatic-version-backups):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38373
diff
changeset
|
637 (condition-case nil |
6629bc0d69e5
(vc-delete-automatic-version-backups):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38373
diff
changeset
|
638 (mapcar |
6629bc0d69e5
(vc-delete-automatic-version-backups):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38373
diff
changeset
|
639 'delete-file |
39417
c13780d8dbd2
(vc-delete-automatic-version-backups): Handle the
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
39389
diff
changeset
|
640 (directory-files (or (file-name-directory file) default-directory) t |
39389
6629bc0d69e5
(vc-delete-automatic-version-backups):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38373
diff
changeset
|
641 (vc-version-backup-file-name file nil nil t))) |
6629bc0d69e5
(vc-delete-automatic-version-backups):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38373
diff
changeset
|
642 ;; Don't fail when the directory doesn't exist. |
6629bc0d69e5
(vc-delete-automatic-version-backups):
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
38373
diff
changeset
|
643 (file-error nil))) |
32746
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
644 |
033bb57afe0c
(vc-version-backup-file-name): New optional args MANUAL and REGEXP.
André Spiegel <spiegel@gnu.org>
parents:
32188
diff
changeset
|
645 (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
|
646 "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
|
647 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
|
648 (unless (and (fboundp 'msdos-long-file-names) |
52385
c114a41b1a70
(vc-make-version-backup): Fix the change made on
Eli Zaretskii <eliz@gnu.org>
parents:
52302
diff
changeset
|
649 (not (with-no-warnings (msdos-long-file-names)))) |
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
|
650 (vc-delete-automatic-version-backups file) |
59978
c3afd6e6c992
(vc-make-version-backup): Ignore file-errors, e.g. directory not
André Spiegel <spiegel@gnu.org>
parents:
58641
diff
changeset
|
651 (condition-case nil |
c3afd6e6c992
(vc-make-version-backup): Ignore file-errors, e.g. directory not
André Spiegel <spiegel@gnu.org>
parents:
58641
diff
changeset
|
652 (copy-file file (vc-version-backup-file-name file) |
c3afd6e6c992
(vc-make-version-backup): Ignore file-errors, e.g. directory not
André Spiegel <spiegel@gnu.org>
parents:
58641
diff
changeset
|
653 nil 'keep-date) |
c3afd6e6c992
(vc-make-version-backup): Ignore file-errors, e.g. directory not
André Spiegel <spiegel@gnu.org>
parents:
58641
diff
changeset
|
654 ;; It's ok if it doesn't work (e.g. directory not writable), |
c3afd6e6c992
(vc-make-version-backup): Ignore file-errors, e.g. directory not
André Spiegel <spiegel@gnu.org>
parents:
58641
diff
changeset
|
655 ;; since this is just for efficiency. |
59996
aac0a33f5772
Change release version from 21.4 to 22.1 throughout.
Kim F. Storm <storm@cua.dk>
parents:
59978
diff
changeset
|
656 (file-error |
59978
c3afd6e6c992
(vc-make-version-backup): Ignore file-errors, e.g. directory not
André Spiegel <spiegel@gnu.org>
parents:
58641
diff
changeset
|
657 (message |
c3afd6e6c992
(vc-make-version-backup): Ignore file-errors, e.g. directory not
André Spiegel <spiegel@gnu.org>
parents:
58641
diff
changeset
|
658 (concat "Warning: Cannot make version backup; " |
c3afd6e6c992
(vc-make-version-backup): Ignore file-errors, e.g. directory not
André Spiegel <spiegel@gnu.org>
parents:
58641
diff
changeset
|
659 "diff/revert therefore not local")))))) |
32127
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
660 |
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
661 (defun vc-before-save () |
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
662 "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
|
663 ;; 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
|
664 ;; 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
|
665 ;; another name. This enables local diffs and local reverting. |
50879
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
666 (let ((file buffer-file-name)) |
32127
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
667 (and (vc-backend file) |
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
668 (vc-up-to-date-p file) |
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
669 (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
|
670 (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
|
671 (vc-make-version-backup file)))) |
32127
1543b0fc904b
(vc-before-save, vc-default-make-version-backups,
André Spiegel <spiegel@gnu.org>
parents:
32070
diff
changeset
|
672 |
12914
22f47b2375c1
(vc-fetch-master-properties): RCS case: get locking mode.
André Spiegel <spiegel@gnu.org>
parents:
12884
diff
changeset
|
673 (defun vc-after-save () |
31382 | 674 "Function to be called by `basic-save-buffer' (in files.el)." |
31564 | 675 ;; If the file in the current buffer is under version control, |
31382 | 676 ;; up-to-date, and locking is not used for the file, set |
677 ;; the state to 'edited and redisplay the mode line. | |
50879
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
678 (let ((file buffer-file-name)) |
21356
c714817643a9
(vc-parse-cvs-status): New function.
Richard M. Stallman <rms@gnu.org>
parents:
21232
diff
changeset
|
679 (and (vc-backend file) |
12967
ee545522ef2a
(vc-utc-string): New function.
André Spiegel <spiegel@gnu.org>
parents:
12944
diff
changeset
|
680 (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
|
681 (nth 5 (file-attributes file))) |
ee545522ef2a
(vc-utc-string): New function.
André Spiegel <spiegel@gnu.org>
parents:
12944
diff
changeset
|
682 ;; 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
|
683 ;; it was checked out. Clear the checkout-time |
ee545522ef2a
(vc-utc-string): New function.
André Spiegel <spiegel@gnu.org>
parents:
12944
diff
changeset
|
684 ;; to avoid confusion. |
ee545522ef2a
(vc-utc-string): New function.
André Spiegel <spiegel@gnu.org>
parents:
12944
diff
changeset
|
685 (vc-file-setprop file 'vc-checkout-time nil)) |
ee545522ef2a
(vc-utc-string): New function.
André Spiegel <spiegel@gnu.org>
parents:
12944
diff
changeset
|
686 t) |
31382 | 687 (vc-up-to-date-p file) |
688 (eq (vc-checkout-model file) 'implicit) | |
689 (vc-file-setprop file 'vc-state 'edited) | |
690 (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
|
691 (if (featurep 'vc) |
f2ab9420390f
2000-09-05 Stefan Monnier <monnier@cs.yale.edu>
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
31382
diff
changeset
|
692 ;; 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
|
693 ;; 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
|
694 (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
|
695 |
31382 | 696 (defun vc-mode-line (file) |
2491
5f3061858f47
vc-mode: name change.
Eric S. Raymond <esr@snark.thyrsus.com>
parents:
2232
diff
changeset
|
697 "Set `vc-mode' to display type of version control for FILE. |
904 | 698 The value is set in the current buffer, which should be the buffer |
31382 | 699 visiting FILE." |
32188
a771b5a6fa69
(vc-mode-line): Fix interactive spec.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
32127
diff
changeset
|
700 (interactive (list buffer-file-name)) |
50879
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
701 (let ((backend (vc-backend file))) |
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
702 (if (not backend) |
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
703 (setq vc-mode nil) |
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
704 (setq vc-mode (concat " " (if vc-display-status |
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
705 (vc-call mode-line-string file) |
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
706 (symbol-name backend)))) |
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
707 ;; If the file is locked by some other user, make |
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
708 ;; the buffer read-only. Like this, even root |
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
709 ;; cannot modify a file that someone else has locked. |
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
710 (and (equal file buffer-file-name) |
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
711 (stringp (vc-state file)) |
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
712 (setq buffer-read-only t)) |
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
713 ;; If the user is root, and the file is not owner-writable, |
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
714 ;; then pretend that we can't write it |
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
715 ;; even though we can (because root can write anything). |
50895
8b4ee8a18c21
(vc-default-workfile-unchanged-p): Pass nil
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50880
diff
changeset
|
716 ;; This way, even root cannot modify a file that isn't locked. |
8b4ee8a18c21
(vc-default-workfile-unchanged-p): Pass nil
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50880
diff
changeset
|
717 (and (equal file buffer-file-name) |
8b4ee8a18c21
(vc-default-workfile-unchanged-p): Pass nil
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50880
diff
changeset
|
718 (not buffer-read-only) |
50879
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
719 (zerop (user-real-uid)) |
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
720 (zerop (logand (file-modes buffer-file-name) 128)) |
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
721 (setq buffer-read-only t))) |
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
722 (force-mode-line-update) |
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
723 backend)) |
31382 | 724 |
725 (defun vc-default-mode-line-string (backend file) | |
726 "Return string for placement in modeline by `vc-mode-line' for FILE. | |
727 Format: | |
728 | |
729 \"BACKEND-REV\" if the file is up-to-date | |
730 \"BACKEND:REV\" if the file is edited (or locked by the calling user) | |
731 \"BACKEND:LOCKER:REV\" if the file is locked by somebody else | |
904 | 732 |
31382 | 733 This function assumes that the file is registered." |
734 (setq backend (symbol-name backend)) | |
735 (let ((state (vc-state file)) | |
736 (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
|
737 (cond ((or (eq state 'up-to-date) |
31382 | 738 (eq state 'needs-patch)) |
739 (concat backend "-" rev)) | |
740 ((stringp state) | |
741 (concat backend ":" state ":" rev)) | |
742 (t | |
743 ;; Not just for the 'edited state, but also a fallback | |
744 ;; for all other states. Think about different symbols | |
745 ;; for 'needs-patch and 'needs-merge. | |
746 (concat backend ":" rev))))) | |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
747 |
14647
b1a88c3a6912
(vc-follow-link): New function.
André Spiegel <spiegel@gnu.org>
parents:
14622
diff
changeset
|
748 (defun vc-follow-link () |
31382 | 749 "If current buffer visits a symbolic link, visit the real file. |
750 If the real file is already visited in another buffer, make that buffer | |
751 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
|
752 (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
|
753 (true-buffer (find-buffer-visiting truename)) |
8f8a4224147b
(vc-follow-link): Simplify by taking advantage
Richard M. Stallman <rms@gnu.org>
parents:
14647
diff
changeset
|
754 (this-buffer (current-buffer))) |
8f8a4224147b
(vc-follow-link): Simplify by taking advantage
Richard M. Stallman <rms@gnu.org>
parents:
14647
diff
changeset
|
755 (if (eq true-buffer this-buffer) |
8f8a4224147b
(vc-follow-link): Simplify by taking advantage
Richard M. Stallman <rms@gnu.org>
parents:
14647
diff
changeset
|
756 (progn |
14674
f585d3bf3a73
(vc-follow-link): Kill buffer before creating new one.
Richard M. Stallman <rms@gnu.org>
parents:
14673
diff
changeset
|
757 (kill-buffer this-buffer) |
14673
8f8a4224147b
(vc-follow-link): Simplify by taking advantage
Richard M. Stallman <rms@gnu.org>
parents:
14647
diff
changeset
|
758 ;; 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
|
759 ;; 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
|
760 ;; 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
|
761 (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
|
762 (set-buffer true-buffer) |
8f8a4224147b
(vc-follow-link): Simplify by taking advantage
Richard M. Stallman <rms@gnu.org>
parents:
14647
diff
changeset
|
763 (kill-buffer this-buffer)))) |
14647
b1a88c3a6912
(vc-follow-link): New function.
André Spiegel <spiegel@gnu.org>
parents:
14622
diff
changeset
|
764 |
54397
fcc26abed3ba
(vc-handled-backends): Add Arch. Move MCVS down.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
765 (defun vc-default-find-file-hook (backend) |
fcc26abed3ba
(vc-handled-backends): Add Arch. Move MCVS down.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
766 nil) |
fcc26abed3ba
(vc-handled-backends): Add Arch. Move MCVS down.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
767 |
904 | 768 (defun vc-find-file-hook () |
50880
c4ef9b4c327f
(find-file-hook, find-file-not-found-hook): Don't use the old ...-hooks.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50879
diff
changeset
|
769 "Function for `find-file-hook' 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
|
770 ;; 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
|
771 ;; if user has killed the buffer and revisited. |
43449
a6beccc5505e
Patch by Jonathan Kamens <jik@kamens.brookline.ma.us>.
André Spiegel <spiegel@gnu.org>
parents:
42021
diff
changeset
|
772 (if vc-mode |
a6beccc5505e
Patch by Jonathan Kamens <jik@kamens.brookline.ma.us>.
André Spiegel <spiegel@gnu.org>
parents:
42021
diff
changeset
|
773 (setq vc-mode nil)) |
31382 | 774 (when buffer-file-name |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
775 (vc-file-clearprops buffer-file-name) |
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
776 (cond |
11604
401afae906eb
(vc-default-backend, vc-path, vc-consult-headers):
Karl Heuer <kwzh@gnu.org>
parents:
11598
diff
changeset
|
777 ((vc-backend buffer-file-name) |
51370
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
778 ;; Compute the state and put it in the modeline. |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
779 (vc-mode-line buffer-file-name) |
51370
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
780 (unless vc-make-backup-files |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
781 ;; Use this variable, not make-backup-files, |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
782 ;; because this is for things that depend on the file name. |
54397
fcc26abed3ba
(vc-handled-backends): Add Arch. Move MCVS down.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
783 (set (make-local-variable 'backup-inhibited) t)) |
fcc26abed3ba
(vc-handled-backends): Add Arch. Move MCVS down.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
784 ;; Let the backend setup any buffer-local things he needs. |
fcc26abed3ba
(vc-handled-backends): Add Arch. Move MCVS down.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
52401
diff
changeset
|
785 (vc-call-backend (vc-backend buffer-file-name) 'find-file-hook)) |
57532
53338d8522cb
(vc-find-file-hook): Call vc-backend with absolute name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57079
diff
changeset
|
786 ((let ((link-type (and (file-symlink-p buffer-file-name) |
53338d8522cb
(vc-find-file-hook): Call vc-backend with absolute name.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
57079
diff
changeset
|
787 (vc-backend (file-chase-links buffer-file-name))))) |
51370
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
788 (cond ((not link-type) nil) ;Nothing to do. |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
789 ((eq vc-follow-symlinks nil) |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
790 (message |
14142
c9cb9dbb2d40
(vc-follow-symlinks): New variable.
André Spiegel <spiegel@gnu.org>
parents:
14040
diff
changeset
|
791 "Warning: symbolic link to %s-controlled source file" link-type)) |
51370
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
792 ((or (not (eq vc-follow-symlinks 'ask)) |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
793 ;; If we already visited this file by following |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
794 ;; the link, don't ask again if we try to visit |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
795 ;; it again. GUD does that, and repeated questions |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
796 ;; are painful. |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
797 (get-file-buffer |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
798 (abbreviate-file-name |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
799 (file-chase-links buffer-file-name)))) |
47918
022aa2332f91
(vc-insert-file): Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents:
47244
diff
changeset
|
800 |
51370
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
801 (vc-follow-link) |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
802 (message "Followed link to %s" buffer-file-name) |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
803 (vc-find-file-hook)) |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
804 (t |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
805 (if (yes-or-no-p (format |
14142
c9cb9dbb2d40
(vc-follow-symlinks): New variable.
André Spiegel <spiegel@gnu.org>
parents:
14040
diff
changeset
|
806 "Symbolic link to %s-controlled source file; follow link? " link-type)) |
51370
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
807 (progn (vc-follow-link) |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
808 (message "Followed link to %s" buffer-file-name) |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
809 (vc-find-file-hook)) |
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
810 (message |
14142
c9cb9dbb2d40
(vc-follow-symlinks): New variable.
André Spiegel <spiegel@gnu.org>
parents:
14040
diff
changeset
|
811 "Warning: editing through the link bypasses version control") |
51370
a7a449bb9443
(vc-call-backend): Give better error message when backend function is missing.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50895
diff
changeset
|
812 )))))))) |
904 | 813 |
50880
c4ef9b4c327f
(find-file-hook, find-file-not-found-hook): Don't use the old ...-hooks.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
50879
diff
changeset
|
814 (add-hook 'find-file-hook 'vc-find-file-hook) |
904 | 815 |
38373
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
816 ;; more hooks, this time for file-not-found |
904 | 817 (defun vc-file-not-found-hook () |
31382 | 818 "When file is not found, try to check it out from version control. |
819 Returns t if checkout was successful, nil otherwise. | |
52055
8322fd2e3685
(vc-file-not-found-hook): Brr. Improve last doc fix.
Markus Rost <rost@math.uni-bielefeld.de>
parents:
52053
diff
changeset
|
820 Used in `find-file-not-found-functions'." |
22947
f20bf5cd31d9
(vc-file-not-found-hook): Call vc-file-clearprops.
Richard M. Stallman <rms@gnu.org>
parents:
22112
diff
changeset
|
821 ;; 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
|
822 ;; from a previous visit. |
f20bf5cd31d9
(vc-file-not-found-hook): Call vc-file-clearprops.
Richard M. Stallman <rms@gnu.org>
parents:
22112
diff
changeset
|
823 (vc-file-clearprops buffer-file-name) |
54529
a7faa61c45b5
(vc-default-find-file-not-found-hook): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54464
diff
changeset
|
824 (let ((backend (vc-backend buffer-file-name))) |
54613
51811f399af0
(vc-file-not-found-hook): Fix typo. From lorentey@elte.hu (L?rentey K?ly).
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54561
diff
changeset
|
825 (if backend (vc-call-backend backend 'find-file-not-found-hook)))) |
54529
a7faa61c45b5
(vc-default-find-file-not-found-hook): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54464
diff
changeset
|
826 |
a7faa61c45b5
(vc-default-find-file-not-found-hook): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54464
diff
changeset
|
827 (defun vc-default-find-file-not-found-hook (backend) |
a7faa61c45b5
(vc-default-find-file-not-found-hook): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54464
diff
changeset
|
828 (if (yes-or-no-p |
a7faa61c45b5
(vc-default-find-file-not-found-hook): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54464
diff
changeset
|
829 (format "File %s was lost; check out from version control? " |
a7faa61c45b5
(vc-default-find-file-not-found-hook): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54464
diff
changeset
|
830 (file-name-nondirectory buffer-file-name))) |
a7faa61c45b5
(vc-default-find-file-not-found-hook): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54464
diff
changeset
|
831 (save-excursion |
a7faa61c45b5
(vc-default-find-file-not-found-hook): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54464
diff
changeset
|
832 (require 'vc) |
a7faa61c45b5
(vc-default-find-file-not-found-hook): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54464
diff
changeset
|
833 (setq default-directory (file-name-directory buffer-file-name)) |
a7faa61c45b5
(vc-default-find-file-not-found-hook): New fun.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
54464
diff
changeset
|
834 (not (vc-error-occurred (vc-checkout buffer-file-name)))))) |
904 | 835 |
52051
3507a2fac9b5
(vc-default-registered, vc-make-version-backup): Use with-no-warnings.
André Spiegel <spiegel@gnu.org>
parents:
51761
diff
changeset
|
836 (add-hook 'find-file-not-found-functions 'vc-file-not-found-hook) |
904 | 837 |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
838 (defun vc-kill-buffer-hook () |
31382 | 839 "Discard VC info about a file when we kill its buffer." |
50879
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
840 (if buffer-file-name |
9cd7a1a60ba0
Consistently use buffer-file-name variable rather than function.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
49620
diff
changeset
|
841 (vc-file-clearprops buffer-file-name))) |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
842 |
47003
fe0d9d5309e4
(vc-kill-buffer-hook): Add it to kill-buffer-hook again.
André Spiegel <spiegel@gnu.org>
parents:
46723
diff
changeset
|
843 (add-hook 'kill-buffer-hook 'vc-kill-buffer-hook) |
11598
540868154dc9
(vc-buffer-backend): New function.
Richard M. Stallman <rms@gnu.org>
parents:
10176
diff
changeset
|
844 |
38373
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
845 ;; Now arrange for (autoloaded) bindings of the main package. |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
846 ;; Bindings for this have to go in the global map, as we'll often |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
847 ;; want to call them from random buffers. |
904 | 848 |
38373
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
849 ;; Autoloading works fine, but it prevents shortcuts from appearing |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
850 ;; in the menu because they don't exist yet when the menu is built. |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
851 ;; (autoload 'vc-prefix-map "vc" nil nil 'keymap) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
852 (defvar vc-prefix-map |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
853 (let ((map (make-sparse-keymap))) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
854 (define-key map "a" 'vc-update-change-log) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
855 (define-key map "b" 'vc-switch-backend) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
856 (define-key map "c" 'vc-cancel-version) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
857 (define-key map "d" 'vc-directory) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
858 (define-key map "g" 'vc-annotate) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
859 (define-key map "h" 'vc-insert-headers) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
860 (define-key map "i" 'vc-register) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
861 (define-key map "l" 'vc-print-log) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
862 (define-key map "m" 'vc-merge) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
863 (define-key map "r" 'vc-retrieve-snapshot) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
864 (define-key map "s" 'vc-create-snapshot) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
865 (define-key map "u" 'vc-revert-buffer) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
866 (define-key map "v" 'vc-next-action) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
867 (define-key map "=" 'vc-diff) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
868 (define-key map "~" 'vc-version-other-window) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
869 map)) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
870 (fset 'vc-prefix-map vc-prefix-map) |
31382 | 871 (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
|
872 |
9869
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
873 (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
|
874 ;; 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
|
875 ;; vc-menu-map. |
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
876 () |
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
877 ;;(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
|
878 ;; '("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
|
879 (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
|
880 '("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
|
881 (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
|
882 '("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
|
883 (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
|
884 (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
|
885 (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
|
886 (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
|
887 (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
|
888 '("Show Other Version" . vc-version-other-window)) |
43587
2e33fd043708
(vc-menu-map): New entry "Update to Latest Version", which calls
André Spiegel <spiegel@gnu.org>
parents:
43449
diff
changeset
|
889 (define-key vc-menu-map [vc-diff] '("Compare with Base Version" . vc-diff)) |
9869
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
890 (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
|
891 '("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
|
892 (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
|
893 (define-key vc-menu-map [separator2] '("----")) |
43587
2e33fd043708
(vc-menu-map): New entry "Update to Latest Version", which calls
André Spiegel <spiegel@gnu.org>
parents:
43449
diff
changeset
|
894 (define-key vc-menu-map [vc-insert-header] |
2e33fd043708
(vc-menu-map): New entry "Update to Latest Version", which calls
André Spiegel <spiegel@gnu.org>
parents:
43449
diff
changeset
|
895 '("Insert Header" . vc-insert-headers)) |
9869
ae7a27dc719d
Only define items in vc-menu-map if it is boundp.
Roland McGrath <roland@gnu.org>
parents:
9826
diff
changeset
|
896 (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
|
897 (define-key vc-menu-map [vc-revert-buffer] |
43587
2e33fd043708
(vc-menu-map): New entry "Update to Latest Version", which calls
André Spiegel <spiegel@gnu.org>
parents:
43449
diff
changeset
|
898 '("Revert to Base Version" . vc-revert-buffer)) |
2e33fd043708
(vc-menu-map): New entry "Update to Latest Version", which calls
André Spiegel <spiegel@gnu.org>
parents:
43449
diff
changeset
|
899 (define-key vc-menu-map [vc-update] |
2e33fd043708
(vc-menu-map): New entry "Update to Latest Version", which calls
André Spiegel <spiegel@gnu.org>
parents:
43449
diff
changeset
|
900 '("Update to Latest Version" . vc-update)) |
19103
3a841692390c
(vc-menu-map): Replace entries for "Check In" and "Check Out" with
André Spiegel <spiegel@gnu.org>
parents:
19054
diff
changeset
|
901 (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
|
902 (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
|
903 |
38373
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
904 ;; These are not correct and it's not currently clear how doing it |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
905 ;; better (with more complicated expressions) might slow things down |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
906 ;; on older systems. |
23255
6b2b3ceeb3cd
(vc-menu-map): Change the vc-directory label. Don't
Dave Love <fx@gnu.org>
parents:
22947
diff
changeset
|
907 |
38373
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
908 ;;(put 'vc-rename-file 'menu-enable 'vc-mode) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
909 ;;(put 'vc-annotate 'menu-enable '(eq (vc-buffer-backend) 'CVS)) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
910 ;;(put 'vc-version-other-window 'menu-enable 'vc-mode) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
911 ;;(put 'vc-diff 'menu-enable 'vc-mode) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
912 ;;(put 'vc-update-change-log 'menu-enable |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
913 ;; '(member (vc-buffer-backend) '(RCS CVS))) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
914 ;;(put 'vc-print-log 'menu-enable 'vc-mode) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
915 ;;(put 'vc-cancel-version 'menu-enable 'vc-mode) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
916 ;;(put 'vc-revert-buffer 'menu-enable 'vc-mode) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
917 ;;(put 'vc-insert-headers 'menu-enable 'vc-mode) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
918 ;;(put 'vc-next-action 'menu-enable 'vc-mode) |
10cf63a2727d
(vc-mode): Dummy function for doc purposes.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
33856
diff
changeset
|
919 ;;(put 'vc-register 'menu-enable '(and buffer-file-name (not vc-mode))) |
904 | 920 |
921 (provide 'vc-hooks) | |
922 | |
57079
6f014cde9d81
(vc-ignore-dir-regexp): New var.
Stefan Monnier <monnier@iro.umontreal.ca>
parents:
55099
diff
changeset
|
923 ;; arch-tag: 2e5a6fa7-1d30-48e2-8bd0-e3d335f04f32 |
904 | 924 ;;; vc-hooks.el ends here |