170 |
|
|
171 |
(defun vc-find-backend-function (backend fun) |
(defun vc-find-backend-function (backend fun) |
172 |
"Return BACKEND-specific implementation of FUN. |
"Return BACKEND-specific implementation of FUN. |
173 |
If there is no such implementation, return the default implementation; |
If there is no such implementation, return the default implementation; |
174 |
if that doesn't exist either, return nil." |
if that doesn't exist either, return nil." |
175 |
(let ((f (vc-make-backend-sym backend fun))) |
(let ((f (vc-make-backend-sym backend fun))) |
176 |
(if (fboundp f) f |
(if (fboundp f) f |
217 |
|
|
218 |
Optional argument LIMIT is a regexp. If present, the file is inserted |
Optional argument LIMIT is a regexp. If present, the file is inserted |
219 |
in chunks of size BLOCKSIZE (default 8 kByte), until the first |
in chunks of size BLOCKSIZE (default 8 kByte), until the first |
220 |
occurrence of LIMIT is found. Anything from the start of that occurence |
occurrence of LIMIT is found. Anything from the start of that occurrence |
221 |
to the end of the buffer is then deleted. The function returns |
to the end of the buffer is then deleted. The function returns |
222 |
non-nil if FILE exists and its contents were successfully inserted." |
non-nil if FILE exists and its contents were successfully inserted." |
223 |
(erase-buffer) |
(erase-buffer) |
268 |
(and (vc-call-backend b 'registered file) |
(and (vc-call-backend b 'registered file) |
269 |
(vc-file-setprop file 'vc-backend b) |
(vc-file-setprop file 'vc-backend b) |
270 |
(throw 'found t))) |
(throw 'found t))) |
271 |
(if (or (not backend) (eq backend 'none)) |
(if (or (not backend) (eq backend 'none)) |
272 |
vc-handled-backends |
vc-handled-backends |
273 |
(cons backend vc-handled-backends)))) |
(cons backend vc-handled-backends)))) |
274 |
;; File is not registered. |
;; File is not registered. |
351 |
|
|
352 |
USER The current version of the working file is locked by |
USER The current version of the working file is locked by |
353 |
some other USER (a string). |
some other USER (a string). |
354 |
|
|
355 |
'needs-patch The file has not been edited by the user, but there is |
'needs-patch The file has not been edited by the user, but there is |
356 |
a more recent version on the current branch stored |
a more recent version on the current branch stored |
357 |
in the master file. |
in the master file. |
501 |
(if regexp |
(if regexp |
502 |
(concat (regexp-quote (file-name-nondirectory file)) |
(concat (regexp-quote (file-name-nondirectory file)) |
503 |
"\\.~[0-9.]+" (unless manual "\\.") "~") |
"\\.~[0-9.]+" (unless manual "\\.") "~") |
504 |
(expand-file-name (concat (file-name-nondirectory file) |
(expand-file-name (concat (file-name-nondirectory file) |
505 |
".~" (or rev (vc-workfile-version file)) |
".~" (or rev (vc-workfile-version file)) |
506 |
(unless manual ".") "~") |
(unless manual ".") "~") |
507 |
(file-name-directory file)))) |
(file-name-directory file)))) |
508 |
|
|
658 |
(get-file-buffer |
(get-file-buffer |
659 |
(abbreviate-file-name |
(abbreviate-file-name |
660 |
(file-chase-links buffer-file-name)))) |
(file-chase-links buffer-file-name)))) |
661 |
|
|
662 |
(vc-follow-link) |
(vc-follow-link) |
663 |
(message "Followed link to %s" buffer-file-name) |
(message "Followed link to %s" buffer-file-name) |
664 |
(vc-find-file-hook)) |
(vc-find-file-hook)) |