;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; 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)