Current File : //proc/self/root/kunden/usr/share/emacs/27.2/lisp/vc/vc-filewise.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.

;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@109 Return the master name of FILE.
If the file is not registered, or the master name is not known, return nil.
(defalias 'vc-master-name #[(file) "\302\303\"\206\304!\211\205\305	\"\205\302\303\")\207" [file backend vc-file-getprop vc-name vc-backend vc-filewise-registered] 4 (#$ . 409)])
#@72 Rename OLDMASTER to be the master file for NEWFILE based on TEMPLATES.
(defalias 'vc-rename-master #[(oldmaster newfile templates) "\306\307!!\306\n!\206
\310\311\n!\312\313
\"\314!\204&\314\306!!\203*\315\316!\210\317\3202\226\321\211\203^@\211\203U\306\307!!	\230\203U\322\320\"\210A\211\204;*\321\211\203\221@\211\203\210\306!\211\203\202\323	!\203\210\322\320\"\210A\211\204j*\315\324!0\",\207" [oldmaster dir newfile newdir newbase templates file-name-directory expand-file-name "" file-name-nondirectory mapcar #[(s) "\303	\n#\207" [s newdir newbase vc-possible-master] 4] file-symlink-p error "This is unsafe in the presence of symbolic links" rename-file found nil throw file-directory-p "New file lacks a version control directory" masters f --dolist-tail--] 6 (#$ . 713)])
#@75 Check if FILE is registered in BACKEND using vc-BACKEND-master-templates.
(defalias 'vc-filewise-registered #[(backend file) "\304\305\"\306N\204\307\306\310#\210\311\n	J\"\211;\205!\312\n\313#*\207" [backend sym file result vc-make-backend-sym master-templates vc-templates-grabbed put t vc-check-master-templates vc-file-setprop vc-name] 5 (#$ . 1562)])
(provide 'vc-filewise)