Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
vc /
Delete
Unzip
Name
Size
Permission
Date
Action
add-log.elc
35.97
KB
-rw-r--r--
2023-06-07 04:15
compare-w.elc
9.89
KB
-rw-r--r--
2023-06-07 04:15
cvs-status.elc
21.51
KB
-rw-r--r--
2023-06-07 04:15
diff-mode.elc
63.77
KB
-rw-r--r--
2023-06-07 04:15
diff.elc
5.9
KB
-rw-r--r--
2023-06-07 04:15
ediff-diff.elc
35.48
KB
-rw-r--r--
2023-06-07 04:15
ediff-help.elc
11.36
KB
-rw-r--r--
2023-06-07 04:15
ediff-hook.elc
6.49
KB
-rw-r--r--
2023-06-07 04:19
ediff-init.elc
58.7
KB
-rw-r--r--
2023-06-07 04:15
ediff-merg.elc
9.68
KB
-rw-r--r--
2023-06-07 04:15
ediff-mult.elc
60.23
KB
-rw-r--r--
2023-06-07 04:15
ediff-ptch.elc
19.55
KB
-rw-r--r--
2023-06-07 04:15
ediff-util.elc
119.83
KB
-rw-r--r--
2023-06-07 04:15
ediff-vers.elc
5
KB
-rw-r--r--
2023-06-07 04:15
ediff-wind.elc
30.84
KB
-rw-r--r--
2023-06-07 04:15
ediff.elc
38.37
KB
-rw-r--r--
2023-06-07 04:15
emerge.elc
76.85
KB
-rw-r--r--
2023-06-07 04:15
log-edit.elc
32.25
KB
-rw-r--r--
2023-06-07 04:15
log-view.elc
18.21
KB
-rw-r--r--
2023-06-07 04:15
pcvs-defs.elc
15.6
KB
-rw-r--r--
2023-06-07 04:15
pcvs-info.elc
23.49
KB
-rw-r--r--
2023-06-07 04:15
pcvs-parse.elc
15.33
KB
-rw-r--r--
2023-06-07 04:15
pcvs-util.elc
24.08
KB
-rw-r--r--
2023-06-07 04:15
pcvs.elc
85.47
KB
-rw-r--r--
2023-06-07 04:15
smerge-mode.elc
37.72
KB
-rw-r--r--
2023-06-07 04:15
vc-annotate.elc
25.01
KB
-rw-r--r--
2023-06-07 04:15
vc-arch.elc
18.12
KB
-rw-r--r--
2023-06-07 04:15
vc-bzr.elc
41.49
KB
-rw-r--r--
2023-06-07 04:15
vc-cvs.elc
33.48
KB
-rw-r--r--
2023-06-07 04:15
vc-dav.elc
5.25
KB
-rw-r--r--
2023-06-07 04:15
vc-dir.elc
40.26
KB
-rw-r--r--
2023-06-07 04:15
vc-dispatcher.elc
16.33
KB
-rw-r--r--
2023-06-07 04:15
vc-git.elc
46.72
KB
-rw-r--r--
2023-06-07 04:15
vc-hg.elc
25.34
KB
-rw-r--r--
2023-06-07 04:15
vc-hooks.elc
31.95
KB
-rw-r--r--
2023-06-07 04:19
vc-mtn.elc
13.72
KB
-rw-r--r--
2023-06-07 04:15
vc-rcs.elc
35.34
KB
-rw-r--r--
2023-06-07 04:15
vc-sccs.elc
15.26
KB
-rw-r--r--
2023-06-07 04:15
vc-svn.elc
21.91
KB
-rw-r--r--
2023-06-07 04:15
vc.elc
68.74
KB
-rw-r--r--
2023-06-07 04:15
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:19:04 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/vc/vc-hooks.el ;;; in Emacs version 24.3 ;;; 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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301\302\303\304\305\306\307&\210\300\310\311\312\304\313\314\315\306\307& \210\300\316\317\320\304\321\306\307&\210\300\322\323\324\304\325\306\307\306\326& \210\300\327\330\331\304\332\306\307&\210\300\333\334\335\304\325\306\307&\210\300\336\334\337\304\325\306\307&\210\300\340\334\341\304\325\306\307&\210\300\342\334\343\314\344\304\325\306\307& \207" [custom-declare-variable vc-ignore-dir-regexp locate-dominating-stop-dir-regexp "Regexp matching directory names that are not under VC's control.\nThe default regexp prevents fruitless and time-consuming attempts\nto determine the VC status in directories in which filenames are\ninterpreted as hostnames." :type regexp :group vc vc-handled-backends '(RCS CVS SVN SCCS Bzr Git Hg Mtn Arch) "List of version control backends for which VC will be used.\nEntries in this list will be tried in order to determine whether a\nfile is under that sort of version control.\nRemoving an entry from the list prevents VC from being activated\nwhen visiting a file managed by that backend.\nAn empty list disables VC altogether." (repeat symbol) :version "23.1" vc-directory-exclusion-list (purecopy '("SCCS" "RCS" "CVS" "MCVS" ".svn" ".git" ".hg" ".bzr" "_MTN" "_darcs" "{arch}")) "List of directory names to be ignored when walking directory trees." (repeat string) vc-make-backup-files nil "If non-nil, backups of registered files are made as with other files.\nIf nil (the default), files covered by version control don't get backups." boolean backup vc-follow-symlinks 'ask "What to do if visiting a symbolic link to a file under version control.\nEditing such a file through the link bypasses the version control system,\nwhich is dangerous and probably not what you want.\n\nIf this variable is t, VC follows the link and visits the real file,\ntelling you about it in the echo area. If it is `ask', VC asks for\nconfirmation whether it should follow the link. If nil, the link is\nvisited and a warning displayed." (choice (const :tag "Ask for confirmation" ask) (const :tag "Visit link and warn" nil) (const :tag "Follow link" t)) vc-display-status t "If non-nil, display revision number and lock status in mode line.\nOtherwise, not displayed." vc-consult-headers "If non-nil, identify work files by searching for version headers." vc-keep-workfiles "Whether to keep work files on disk after commits, on a locking VCS.\nThis variable has no effect on modern merging-based version\ncontrol systems." vc-mistrust-permissions "If non-nil, don't assume permissions/ownership track version-control status.\nIf nil, do rely on the permissions.\nSee also variable `vc-consult-headers'." "24.3"] 10) #@74 Internal access function to variable `vc-mistrust-permissions' for FILE. (defalias 'vc-mistrust-permissions #[(file) "\302=\206 \205 \303 !!\207" [vc-mistrust-permissions file t vc-backend-subdirectory-name] 3 (#$ . 3219)]) #@729 Non-nil means use local operations when possible for remote repositories. This avoids slow queries over the network and instead uses heuristics and past information to determine the current status of a file. If value is the symbol `only-file' `vc-dir' will connect to the server, but heuristics will be used to determine the status for all other VC operations. The value can also be a regular expression or list of regular expressions to match against the host name of a repository; then VC only stays local for hosts that match it. Alternatively, the value can be a list of regular expressions where the first element is the symbol `except'; then VC always stays local except for hosts matched by these regular expressions. (custom-declare-variable 'vc-stay-local ''only-file '(#$ . 3455) :type '(choice (const :tag "Always stay local" t) (const :tag "Only for file operations" only-file) (const :tag "Don't stay local" nil) (list :format "\nExamine hostname and %v" :tag "Examine hostname ..." (set :format "%v" :inline t (const :format "%t" :tag "don't" except)) (regexp :format " stay local,\n%t: %v" :tag "if it matches") (repeat :format "%v%i\n" :inline t (regexp :tag "or")))) :version "23.1" :group 'vc) #@205 Return non-nil if VC should stay local when handling FILE. This uses the `repository-hostname' backend operation. If FILE is a list of files, return non-nil if any of them individually should stay local. (defalias 'vc-stay-local-p #[(file &optional backend) "<\203 \306\307\310\311\"\"\207 \206 \312!\313 \304\"\314\n!\203% \nJ\202& \211 9\2030 \f\202\222 \315!\203< \316!\202? \317! \320 \321\"\206\217 \322 \321\323 \324 #\211 \204Y \325\202\215 \326 \f\242\327=\203i \307 \fA\f:\203t \330\331\f\332#\333\f \"\203\201 \202\204 ?\203\213 \334\202\214 \325))#)\334=*\207" [file backend sym vc-stay-local stay-local dirname delq nil mapcar #[(arg) "\302 \"\207" [arg backend vc-stay-local-p] 3] vc-backend vc-make-backend-sym boundp file-directory-p directory-file-name file-name-directory vc-file-getprop vc-stay-local-p vc-file-setprop vc-call-backend repository-hostname no t except mapconcat identity "\\|" string-match yes hostname default] 8 (#$ . 4677)]) (byte-code "\300\301\302\303#\210\304\301!\210\300\301\305\303#\207" [put vc-mode risky-local-variable t make-variable-buffer-local permanent-local] 4) #@266 Version Control minor mode. This minor mode is automatically activated whenever you visit a file under control of one of the revision control systems in `vc-handled-backends'. VC commands are globally reachable under the prefix `\[vc-prefix-map]': \{vc-prefix-map} (defalias 'vc-mode #[(&optional arg) "\300\207" ["Version Control minor mode.\nThis minor mode is automatically activated whenever you visit a file under\ncontrol of one of the revision control systems in `vc-handled-backends'.\nVC commands are globally reachable under the prefix `\\[vc-prefix-map]':\n\\{vc-prefix-map}"] 1 (#$ . 5819)]) (defalias 'vc-error-occurred '(macro . #[(&rest body) "\301\302\303\304\305\"B\306BBB\207" [body condition-case nil progn append (nil) ((error t))] 6])) #@34 Obarray for per-file properties. (defvar vc-file-prop-obarray (make-vector 17 0) (#$ . 6583)) (defvar vc-touched-properties nil) #@45 Set per-file VC PROPERTY for FILE to VALUE. (defalias 'vc-file-setprop #[(file property value) "\203 >\204 \305 C\"\306\307\n \" \f#\207" [vc-touched-properties property file vc-file-prop-obarray value append put intern] 4 (#$ . 6718)]) #@36 Get per-file VC PROPERTY for FILE. (defalias 'vc-file-getprop #[(file property) "\303 \"\nN\207" [file vc-file-prop-obarray property intern] 3 (#$ . 6968)]) #@34 Clear all VC properties of FILE. (defalias 'vc-file-clearprops #[(file) "\302\303!\203\n \304\303!\210\305\306 \"\307\"\207" [file vc-file-prop-obarray boundp vc-parent-buffer kill-local-variable setplist intern nil] 4 (#$ . 7132)]) #@51 Return BACKEND-specific version of VC symbol SYM. (defalias 'vc-make-backend-sym #[(backend sym) "\302\303\304!\227\305\304 !R!\207" [backend sym intern "vc-" symbol-name "-"] 6 (#$ . 7372)]) #@161 Return BACKEND-specific implementation of FUN. If there is no such implementation, return the default implementation; if that doesn't exist either, return nil. (defalias 'vc-find-backend-function #[(backend fun) "\304 \"\305\n!\203 \n\2023 \306\307\310\311!\227P!!\210\305\n!\203$ \n\2023 \304\312 \"\305 !\2052 B))\207" [backend fun f def vc-make-backend-sym fboundp require intern "vc-" symbol-name default] 5 (#$ . 7572)]) #@288 Call for BACKEND the implementation of FUNCTION-NAME with the given ARGS. Calls (apply 'vc-BACKEND-FUN ARGS) if vc-BACKEND-FUN exists (after trying to find it in vc-BACKEND.el) and else calls (apply 'vc-default-FUN BACKEND ARGS) It is usually called via the `vc-call' macro. (defalias 'vc-call-backend #[(backend function-name &rest args) "\306 \307N\"\211\203 \nA\202' \310 \"\nB \311\f\307 \f\307NB#\210*\n\2043 \312\313 #\202F \n:\203B \314\n@\nA #\202F \314\n \")\207" [function-name backend f #1=#:v #2=#:v args assoc vc-functions vc-find-backend-function put error "Sorry, %s is not implemented for %s" apply] 7 (#$ . 8012)]) #@227 A convenience macro for calling VC backend functions. Functions called by this macro must accept FILE as the first argument. ARGS specifies any additional arguments. FUN should be unquoted. BEWARE!! FILE is evaluated twice!! (defalias 'vc-call '(macro . #[(fun file &rest args) "\303\304D\305 D\nBBBB\207" [file fun args vc-call-backend vc-backend quote] 5 (#$ . 8673)])) #@65 Find PATTERN in the current buffer and return its Ith submatch. (defalias 'vc-parse-buffer #[(pattern i) "eb\210\302\303\304#\205 \305 !\207" [pattern i re-search-forward nil t match-string] 4 (#$ . 9054)]) (put 'vc-parse-buffer 'byte-optimizer 'byte-compile-inline-expand) #@395 Insert the contents of FILE into the current buffer. Optional argument LIMIT is a regexp. If present, the file is inserted in chunks of size BLOCKSIZE (default 8 kByte), until the first occurrence of LIMIT is found. Anything from the start of that occurrence to the end of the buffer is then deleted. The function returns non-nil if FILE exists and its contents were successfully inserted. (defalias 'vc-insert-file #[(file &optional limit blocksize) "\306 \210\307!\205M \204 \310!\210\202H \n\204 \311\312\312\310\313 \211\n\\\211$\211 A@)W\203G \314 \210\315 \313\316#\211 \203B \312\224d|\210 )\203 )\317\313!\210\320\207" [file limit blocksize filepos x pos erase-buffer file-exists-p insert-file-contents 8192 0 nil beginning-of-line re-search-forward move set-buffer-modified-p t] 8 (#$ . 9337)]) #@177 Find the root of a checked out project. The function walks up the directory tree from FILE looking for WITNESS. If WITNESS if not found, return nil, otherwise return the root. (defalias 'vc-find-root #[(file witness) "\206 \304\n \")\207" [vc-ignore-dir-regexp locate-dominating-stop-dir-regexp file witness locate-dominating-file] 3 (#$ . 10162)]) #@292 Return non-nil if FILE is registered in a version control system. This function performs the check each time it is called. To rely on the result of a previous call, use `vc-backend' instead. If the file was previously registered under a certain backend, then that backend is tried first. (defalias 'vc-registered #[(file) "\303\304 !\203 \305\n\304 !\"\203 \303\202. \306\307!\203+ \310 \311\"\211\203+ \311 \"\202. \312\313\215)\207" [handler file vc-ignore-dir-regexp nil file-name-directory string-match boundp file-name-handler-alist find-file-name-handler vc-registered found (byte-code "\303\304\"\305\306 \203 \307=\203 \n\202 \nB\"\210)\310\304\307#\210\311\207" [file backend vc-handled-backends vc-file-getprop vc-backend mapc #[(b) "\302\303 #\205 \304 \305#\205 \306\307\310\"\207" [b file vc-call-backend registered vc-file-setprop vc-backend throw found t] 4] none vc-file-setprop nil] 4)] 4 (#$ . 10522)]) #@148 Return the version control type of FILE-OR-LIST, nil if it's not registered. If the argument is a list, the files must all have the same back end. (defalias 'vc-backend #[(file-or-list) ";\203$ \302\303\"\211\304=\203 \305\202\" \206\" \306!\205\" \302\303\")\207\2032 <\2032 \303@!\207\305\207" [file-or-list property vc-file-getprop vc-backend none nil vc-registered] 4 (#$ . 11470)]) #@64 Return where the repository for the current directory is kept. (defalias 'vc-backend-subdirectory-name #[(file) "\301\302!!\207" [file symbol-name vc-backend] 3 (#$ . 11873)]) #@109 Return the master name of FILE. If the file is not registered, or the master name is not known, return nil. (defalias 'vc-name #[(file) "\302\303\"\206 \304!\211\205 \305 \306#\205 \302\303\")\207" [file backend vc-file-getprop vc-name vc-backend vc-call-backend registered] 5 (#$ . 12057)]) #@616 Indicate how FILES are checked out. If FILES are not registered, this function always returns nil. For registered files, the possible values are: 'implicit FILES are always writable, and checked out `implicitly' when the user saves the first changes to the file. 'locking FILES are read-only if up-to-date; user must type \[vc-next-action] before editing. Strict locking is assumed. 'announce FILES are read-only if up-to-date; user must type \[vc-next-action] before editing. But other users may be editing at the same time. (defalias 'vc-checkout-model #[(backend files) "\302\303 #\207" [backend files vc-call-backend checkout-model] 4 (#$ . 12364)]) #@63 Return the name under which the user accesses the given FILE. (defalias 'vc-user-login-name #[(file) "\305 \"\306=\203. \307 !\310\311\312! r\fq\210\313\216\314\315\316\310\317#!\205* dSd|\210\320 -\2067 \321 \2067 \322\323 !\207" [tramp-file-name-regexp file process-file-side-effects default-directory #1=#:temp-buffer string-match 0 file-name-directory nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n \302!\210\301\207" [#1# buffer-name kill-buffer] 2)) zerop process-file "whoami" t buffer-string user-login-name number-to-string user-uid] 5 (#$ . 13114)]) #@2885 Return the version control state of FILE. A return of nil from this function means we have no information on the status of this file. Otherwise, the value returned is one of: 'up-to-date The working file is unmodified with respect to the latest version on the current branch, and not locked. 'edited The working file has been edited by the user. If locking is used for the file, this state means that the current version is locked by the calling user. This status should *not* be reported for files which have a changed mtime but the same content as the repo copy. USER The current version of the working file is locked by some other USER (a string). 'needs-update The file has not been edited by the user, but there is a more recent version on the current branch stored in the repository. 'needs-merge The file has been edited by the user, and there is also a more recent version on the current branch stored in the repository. This state can only occur if locking is not used for the file. 'unlocked-changes The working version of the file is not locked, but the working file has been changed with respect to that version. This state can only occur for files with locking; it represents an erroneous condition that should be resolved by the user (vc-next-action will prompt the user to do it). 'added Scheduled to go into the repository on the next commit. Often represented by vc-working-revision = "0" in VCSes with monotonic IDs like Subversion and Mercurial. 'removed Scheduled to be deleted from the repository on next commit. 'conflict The file contains conflicts as the result of a merge. For now the conflicts are text conflicts. In the future this might be extended to deal with metadata conflicts too. 'missing The file is not present in the file system, but the VC system still tracks it. 'ignored The file showed up in a dir-status listing with a flag indicating the version-control system is ignoring it, Note: This property is not set reliably (some VCSes don't have useful directory-status commands) so assume that any file with vc-state nil might be ignorable without VC knowing it. 'unregistered The file is not under version control. (defalias 'vc-state #[(file &optional backend) "\302\303\"\206 G\304V\205 \206 \305!\211\205 \306 \"\207" [file backend vc-file-getprop vc-state 0 vc-backend vc-state-refresh] 4 (#$ . 13699)]) #@40 Quickly recompute the `state' of FILE. (defalias 'vc-state-refresh #[(file backend) "\302\303\304 \305##\207" [file backend vc-file-setprop vc-state vc-call-backend state-heuristic] 7 (#$ . 16792)]) #@78 Convenience function that checks whether `vc-state' of FILE is `up-to-date'. (defalias 'vc-up-to-date-p #[(file) "\301!\302=\207" [file vc-state up-to-date] 2 (#$ . 16999)]) (put 'vc-up-to-date-p 'byte-optimizer 'byte-compile-inline-expand) #@168 Default implementation of vc-BACKEND-state-heuristic. It simply calls the real state computation function `vc-BACKEND-state' and does not employ any heuristic at all. (defalias 'vc-default-state-heuristic #[(backend file) "\302\303 #\207" [backend file vc-call-backend state] 4 (#$ . 17248)]) #@65 Return non-nil if FILE has not changed since the last checkout. (defalias 'vc-workfile-unchanged-p #[(file) "\304\305\"\306\307!8\211\203 \310\232\204 \n \232\2023 \311\312!\313#\314\305 \203. \202/ \315#\210 )*\207" [file lastmod checkout-time unchanged vc-file-getprop vc-checkout-time 5 file-attributes (0 0) vc-call-backend vc-backend workfile-unchanged-p vc-file-setprop 0] 5 (#$ . 17548)]) #@108 Check if FILE is unchanged by diffing against the repository version. Return non-nil if FILE is unchanged. (defalias 'vc-default-workfile-unchanged-p #[(backend file) "\300\301\302\303\217!\207" [zerop err (byte-code "\302\303 C\304\211\305&\207" [backend file vc-call-backend diff nil "*vc*"] 7) ((wrong-number-of-arguments (byte-code "\211A@)\304\305\n\306\"!=\203 AA@\307=\204 \310@A\"\207\311\n\306 C#\207" [err x backend file indirect-function vc-find-backend-function diff 4 signal vc-call-backend] 6)))] 4 (#$ . 17963)]) #@125 Return the repository version from which FILE was checked out. If FILE is not registered, this function always returns nil. (defalias 'vc-working-revision #[(file &optional backend) "\302\303\"\206 \206 \304!\211\205 \305\303\306 \307##\207" [file backend vc-file-getprop vc-working-revision vc-backend vc-file-setprop vc-call-backend working-revision] 8 (#$ . 18507)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias vc-workfile-version vc-working-revision nil make-obsolete "23.1"] 4) (defalias 'vc-default-working-revision #[(backend file) "\302\303!\210\304\305 #\207" [backend file message "`working-revision' not found: using the old `workfile-version' instead" vc-call-backend workfile-version] 4]) #@75 Check if FILE is registered in BACKEND using vc-BACKEND-master-templates. (defalias 'vc-default-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 (#$ . 19247)]) (defalias 'vc-possible-master #[(s dirname basename) ";\203 \304 \n#\207\305!\205! \306\307\215\211:\203 @\202 )\207" [s dirname basename result format functionp found (funcall s dirname basename)] 5]) #@651 Return non-nil if there is a master corresponding to FILE. TEMPLATES is a list of strings or functions. If an element is a string, it must be a control string as required by `format', with two string placeholders, such as "%sRCS/%s,v". The directory part of FILE is substituted for the first placeholder, the basename of FILE for the second. If a file with the resulting name exists, it is taken as the master of FILE, and returned. If an element of TEMPLATES is a function, it is called with the directory part and the basename of FILE as arguments. It should return non-nil if it finds a master; that value is then returned by this function. (defalias 'vc-check-master-templates #[(file templates) "\303!\206 \304\305!\306\307\215*\207" [file basename dirname file-name-directory "" file-name-nondirectory found (mapcar #[(s) "\305 \n#\211\205' \306 !\205' \307 !\230\203# \310\f!\310 !\232?\205' \311\312 \")\207" [s dirname basename trial file vc-possible-master file-exists-p file-name-directory file-attributes throw found] 5] templates)] 3 (#$ . 19830)]) (byte-code "\300\301\302\303#\210\304\301\302\305#\207" [defalias vc-toggle-read-only toggle-read-only nil make-obsolete "24.1"] 4) #@111 Return non-nil if unmodified versions should be backed up locally. The default is to switch off this feature. (defalias 'vc-default-make-version-backups-p #[(backend file) "\300\207" [nil] 1 (#$ . 21045)]) #@275 Return a backup file name for REV or the current version of FILE. If MANUAL is non-nil it means that a name for backups created by the user should be returned; if REGEXP is non-nil that means to return a regexp for matching all such backup files, regardless of the version. (defalias 'vc-version-backup-file-name #[(file &optional rev manual regexp) "\203 \304\305 !!\306\n?\205 \307\310R\207\311\305 !\312\313\314\315 \206\" \316 !#\n?\205) \317\310\260\320 !\"\207" [regexp file manual rev regexp-quote file-name-nondirectory "\\.~.+" "\\." "~" expand-file-name ".~" subst-char-in-string 47 95 vc-working-revision "." file-name-directory] 8 (#$ . 21258)]) #@57 Delete all existing automatic version backups for FILE. (defalias 'vc-delete-automatic-version-backups #[(file) "\300\301\302\217\207" [nil (byte-code "\302\303\304\305!\206\n \306\307\310\211\306$#\"\207" [file default-directory mapc delete-file directory-files file-name-directory t vc-version-backup-file-name nil] 10) ((file-error))] 3 (#$ . 21926)]) #@150 Make a backup copy of FILE, which is assumed in sync with the repository. Before doing that, check if there are any old backups and get rid of them. (defalias 'vc-make-version-backup #[(file) "\301\302!\205 \302 ??\205 \303!\210\304\305\306\217\207" [file fboundp msdos-long-file-names vc-delete-automatic-version-backups nil (byte-code "\301\302!\303\304$\207" [file copy-file vc-version-backup-file-name nil keep-date] 5) ((file-error (message "Warning: Cannot make version backup; diff/revert therefore not local")))] 3 (#$ . 22291)]) #@61 Function to be called by `basic-save-buffer' (in files.el). (defalias 'vc-before-save #[nil "\303\303\304\305\217*\207" [buffer-file-name backend file nil (byte-code "\302!\204\n \303!\210\304!\211\2052 \305!)\306=\2052 \307 C\"\310=\2052 \311 \312#\2052 \313!\207" [file backend file-exists-p vc-file-clearprops vc-backend vc-state up-to-date vc-checkout-model implicit vc-call-backend make-version-backups-p vc-make-version-backup] 4) ((error))] 3 (#$ . 22840)]) #@25 List of vc-dir buffers. (defvar vc-dir-buffers nil (#$ . 23324)) #@61 Function to be called by `basic-save-buffer' (in files.el). (defalias 'vc-after-save #[nil "\304 !\211\2033 \305 \306\"\307\310 !8\232\203 \311 \306\312#\210\313\n C\"\314=\2033 \315 \n\"\2033 \316 \n\"\210 \205: \317 !*\207" [buffer-file-name file backend vc-dir-buffers vc-backend vc-file-getprop vc-checkout-time 5 file-attributes vc-file-setprop nil vc-checkout-model implicit vc-state-refresh vc-mode-line vc-dir-resynch-file] 5 (#$ . 23395)]) (defvar vc-menu-entry (byte-code "\300\301\302!\303BB\207" [menu-item purecopy "Version Control" (vc-menu-map :filter vc-menu-map-filter)] 3)) (byte-code "\302\300!\203\f \303\304 #\210\302\207" [menu-bar-tools-menu vc-menu-entry boundp define-key [vc]] 4) (defconst vc-mode-line-map (byte-code "\302 \303\304 #\210)\207" [map vc-menu-entry make-sparse-keymap define-key [mode-line down-mouse-1]] 4)) #@215 Set `vc-mode' to display type of version control for FILE. The value is set in the current buffer, which should be the buffer visiting FILE. If BACKEND is passed use it as the VC backend when computing the result. (defalias 'vc-mode-line #[(file &optional backend) "\206 \306 !\211\204 \307\202a \310\311 #\312\313\314 # \315 \204( \316!\202< \317 \320\321\314\f\2065 \322\323\"\324P\325 &P* \232\203a \204a \326\327 !\203a \326\330\331 !\332\"!\203a \333 \334 \210\207" [backend file vc-mode ml-string ml-echo vc-display-status vc-backend nil vc-call-backend mode-line-string get-text-property 0 help-echo " " symbol-name propertize mouse-face mode-line-highlight format "File under the %s version control system" "\nmouse-1: Version Control menu" local-map zerop user-real-uid logand file-modes 128 t force-mode-line-update vc-mode-line-map buffer-file-name buffer-read-only] 10 (#$ . 24260) (list buffer-file-name)]) #@504 Return a string for `vc-mode-line' to put in the mode line for FILE. Format: "BACKEND-REV" if the file is up-to-date "BACKEND:REV" if the file is edited (or locked by the calling user) "BACKEND:LOCKER:REV" if the file is locked by somebody else "BACKEND@REV" if the file was locally added "BACKEND!REV" if the file contains conflicts or was removed "BACKEND?REV" if the file is under VC, but is missing This function assumes that the file is registered. (defalias 'vc-default-mode-line-string #[(backend file) "\306!\307\n\"\310 \311\n\" \312 \313=\204 \314=\203& \315 \316 Q\202{ ;\2039 \317 P \320 \320 \260\202{ \321=\203H \322 \323 Q\202{ \324=\203W \325 \326 Q\202{ \327=\203f \330 \326 Q\202{ \331=\203u \332 \333 Q\202{ \334 \320 Q\335\f\336 \337R#,\207" [backend backend-name file state state-echo rev symbol-name vc-state nil vc-working-revision propertize up-to-date needs-update "Up to date file" "-" "File locked by" ":" added "Locally added file" "@" conflict "File contains conflicts after the last merge" "!" removed "File removed from the VC system" missing "File tracked by the VC system, but missing from the file system" "?" "Locally modified file" help-echo " under the " " version control system"] 7 (#$ . 25206)]) #@187 If current buffer visits a symbolic link, visit the real file. If the real file is already visited in another buffer, make that buffer current, and kill the buffer that visits the link. (defalias 'vc-follow-link #[nil "\304!p \n=\203 \305\n!\210\306 !q)\202 q\210\305\n!*\207" [buffer-file-truename true-buffer this-buffer truename find-buffer-visiting kill-buffer find-file-noselect] 2 (#$ . 26518)]) (defalias 'vc-default-find-file-hook #[(backend) "\300\207" [nil] 1]) #@66 Function for `find-file-hook' activating VC mode if appropriate. (defalias 'vc-find-file-hook #[nil "\203 \306 \205\242 \307 !\210\310\311\312\306\313$\210\306\314\f\203\" \202& \315\316\317\217)\211\203C \312 \n\"\210 \204< \320\321!\210\313\322\n\323\"\202\241 \"\232?\205O \324\"!\211 #\204Y \306\202\240 $\306=\203h \325\326#\"\202\240 $\327=\203y \330\331\332 !!!\203\206 \333 \210\325\334 \"\210\335 \202\240 \336\337\340#\"!\203\235 \333 \210\325\334 \"\210\335 \202\240 \325\341!))\207" [vc-mode buffer-file-name backend #1=#:body debug-on-error vc-make-backup-files nil vc-file-clearprops add-hook vc-mode-line-hook vc-mode-line t #[nil "\301!\207" [buffer-file-name vc-backend] 2] #2=#:err (funcall #1#) ((error (message "Error: %S" #2#) nil)) make-local-variable backup-inhibited vc-call-backend find-file-hook vc-backend message "Warning: symbolic link to %s-controlled source file" ask get-file-buffer abbreviate-file-name file-chase-links vc-follow-link "Followed link to %s" vc-find-file-hook yes-or-no-p format "Symbolic link to %s-controlled source file; follow link? " "Warning: editing through the link bypasses version control" buffer-file-truename link-type vc-follow-symlinks] 6 (#$ . 27004)]) (add-hook 'find-file-hook 'vc-find-file-hook) #@55 Discard VC info about a file when we kill its buffer. (defalias 'vc-kill-buffer-hook #[nil "\205 \301!\207" [buffer-file-name vc-file-clearprops] 2 (#$ . 28290)]) (add-hook 'kill-buffer-hook 'vc-kill-buffer-hook) (defvar vc-prefix-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210\302\313\314#\210\302\315\316#\210\302\317\320#\210\302\321\322#\210\302\323\324#\210\302\325\326#\210\302\327\330#\210\302\331\332#\210\302\333\334#\210\302\335\336#\210\302\337\340#\210\302\341\342#\210\302\343\344#\210\302\345\346#\210\302\347\350#\210\302\351\352#\210)\207" [map make-sparse-keymap define-key "a" vc-update-change-log "b" vc-switch-backend "c" vc-rollback "d" vc-dir "g" vc-annotate "h" vc-insert-headers "i" vc-register "l" vc-print-log "L" vc-print-root-log "I" vc-log-incoming "O" vc-log-outgoing "m" vc-merge "r" vc-retrieve-tag "s" vc-create-tag "u" vc-revert "v" vc-next-action "+" vc-update "=" vc-diff "D" vc-root-diff "~" vc-revision-other-window] 4)) (byte-code "\300M\210\302 \303\300#\207" [vc-prefix-map ctl-x-map define-key "v"] 4) (defvar vc-menu-map (byte-code "\302\303!\304\305\306#\210\304\307\310#\210\304\311 #\210\304\312\313#\210\304\314\315#\210\304\316\317#\210\304\320\321#\210\304\322\323#\210\304\324\325#\210\304\326\327#\210\304\330\331#\210\304\332\333#\210\304\334\335#\210\304\336 #\210\304\337\340#\210\304\341\342#\210\304\343\344#\210\304\345\346#\210\304\347\350#\210\304\351\352#\210\304\353\354#\210)\207" [map menu-bar-separator make-sparse-keymap "Version Control" bindings--define-key [vc-retrieve-tag] (menu-item "Retrieve Tag" vc-retrieve-tag :help "Retrieve tagged version or branch") [vc-create-tag] (menu-item "Create Tag" vc-create-tag :help "Create version tag") [separator1] [vc-annotate] (menu-item "Annotate" vc-annotate :help "Display the edit history of the current file using colors") [vc-rename-file] (menu-item "Rename File" vc-rename-file :help "Rename file") [vc-revision-other-window] (menu-item "Show Other Version" vc-revision-other-window :help "Visit another version of the current file in another window") [vc-diff] (menu-item "Compare with Base Version" vc-diff :help "Compare file set with the base version") [vc-root-diff] (menu-item "Compare Tree with Base Version" vc-root-diff :help "Compare current tree with the base version") [vc-update-change-log] (menu-item "Update ChangeLog" vc-update-change-log :help "Find change log file and add entries from recent version control logs") [vc-log-out] (menu-item "Show Outgoing Log" vc-log-outgoing :help "Show a log of changes that will be sent with a push operation") [vc-log-in] (menu-item "Show Incoming Log" vc-log-incoming :help "Show a log of changes that will be received with a pull operation") [vc-print-log] (menu-item "Show History" vc-print-log :help "List the change log of the current file set in a window") [vc-print-root-log] (menu-item "Show Top of the Tree History " vc-print-root-log :help "List the change log for the current tree in a window") [separator2] [vc-insert-header] (menu-item "Insert Header" vc-insert-headers :help "Insert headers into a file for use with a version control system.\n") [undo] (menu-item "Undo Last Check-In" vc-rollback :help "Remove the most recent changeset committed to the repository") [vc-revert] (menu-item "Revert to Base Version" vc-revert :help "Revert working copies of the selected file set to their repository contents") [vc-update] (menu-item "Update to Latest Version" vc-update :help "Update the current fileset's files to their tip revisions") [vc-next-action] (menu-item "Check In/Out" vc-next-action :help "Do the next logical version control operation on the current fileset") [vc-register] (menu-item "Register" vc-register :help "Register file set into a version control system") [vc-dir] (menu-item "VC Dir" vc-dir :help "Show the VC status of files in a directory")] 4)) (defalias 'vc-menu-map vc-menu-map) (defalias 'vc-menu-map-filter #[(orig-binding) "9\203 \305!\203 \306! \205# \307\n\203 \310\n!\202! \311 !\312\"\211 \204, \2021 \313\314\f#)\207" [orig-binding vc-mode buffer-file-name default-directory ext-binding fboundp indirect-function vc-call-backend vc-backend vc-responsible-backend extra-menu append ((ext-menu-separator "--"))] 5]) (defalias 'vc-default-extra-menu #[(backend) "\300\207" [nil] 1]) (provide 'vc-hooks)