ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/vc/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/vc/vc-filewise.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 (#$ . 411)])
#@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 (#$ . 715)])
#@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 (#$ . 1564)])
(provide 'vc-filewise)
Kontol Shell Bypass