WWWWWW

Current Directory: /usr/share/emacs/24.3/lisp/vc
Viewing File: /usr/share/emacs/24.3/lisp/vc/diff.elc
;ELC
;;; Compiled by mockbuild@buildfarm01-new.corp.cloudlinux.com on Tue Nov 11 12:52:09 2025
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/vc/diff.el
;;; in Emacs version 24.3.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.

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


(byte-code "\300\301\302\303\304\305%\210\306\307\310\311\312DD\313\314\315\304\301&\210\306\316\310\311\317DD\320\314\321\304\301&\207" [custom-declare-group diff nil "Comparing files with `diff'." :group tools custom-declare-variable diff-switches funcall function #[0 "\300\301!\207" [purecopy "-c"] 2 "\n\n(fn)"] "A string or list of strings specifying switches to be passed to diff." :type (choice string (repeat string)) diff-command #[0 "\300\301!\207" [purecopy "diff"] 2 "\n\n(fn)"] "The command to use to run diff." string] 8)
(defalias 'diff-switches #[0 "\205\302\303	;\203	\202\304\305	\306#\"\207" [current-prefix-arg diff-switches read-string "Diff switches: " mapconcat identity " "] 6 "\n\n(fn)"])
#@273 Code run when the diff process exits.
CODE is the exit code of the process.  It should be 0 only if no diffs
were found.
If optional args OLD-TEMP-FILE and/or NEW-TEMP-FILE are non-nil,
delete the temporary files so named.

(fn CODE &optional OLD-TEMP-FILE NEW-TEMP-FILE)
(defalias 'diff-sentinel #[769 "\203\301!\210\211\203\301!\210\302 \210eb\210\212db\210\303\304\305\306\232\203(\307\2023\310\232\2032\311\2023\312\313 #c*\207" [inhibit-read-only delete-file diff-setup-whitespace t format "\nDiff finished%s.  %s\n" 0 " (no differences)" 2 " (diff error)" "" current-time-string] 7 (#$ . 1275)])
#@520 Find and display the differences between OLD and NEW files.
When called interactively, read NEW, then OLD, using the
minibuffer.  The default for NEW is the current buffer's file
name, and the default for OLD is a backup file for NEW, if one
exists.  If NO-ASYNC is non-nil, call diff synchronously.

When called interactively with a prefix argument, prompt
interactively for diff switches.  Otherwise, the switches
specified in `diff-switches' are passed to the diff command.

(fn OLD NEW &optional SWITCHES NO-ASYNC)
(defalias 'diff #[1026 "\300\301$!\207" [display-buffer diff-no-select] 10 (#$ . 1898) (byte-code "\203\301!\203\302\303\304!\305Q\306\307$\202\302\310\306\211\307$\311!\211\203;\301!\203;\302\312\304!\305Q\313!\307$\202C\302\314\313!\306\307$\262\211\315 E\207" [buffer-file-name file-exists-p read-file-name "Diff new file (default " file-name-nondirectory "): " nil t "Diff new file: " file-newest-backup "Diff original file (default " file-name-directory "Diff original file: " diff-switches] 7)])
(defalias 'diff-file-local-copy #[257 "\300!\203r\211q\210\301\302!\303\304\211\304\305%\210\211\262)\207\306!\207" [bufferp make-temp-file "buffer-content-" write-region nil nomessage file-local-copy] 8 "\n\n(fn FILE-OR-BUF)"])
(defalias 'diff-no-select #[1282 "CCC\306@!\204\307@!\240\210\306@!\204#\211\307@!\240\210@\204,\240\210@<\2048\211@C\240\210\204A\310\311!\262\312@!\312@!\313\314	\315@\316\317\204\\\205\203\320\n@;\203j\n@\202o\321@!\320
@;\203}
@\202\202\321@!F	\206\213\n@	\206\223\f@D\244\"\"B\322#\nrq\210\323\324p!\210\323\325 \210)\326p!\210\327 \210\330\305!\210\331\332\333\334\335	
$\336\"\337\340%\211\323\341\261\210)\204\342\343!\203\343\344	/0%\345\346\"\210\347\331\332\350\334\335\"\351\"\352\353%\"\266\202\323\354\355/\356\3560&#\210))\266\204\207" [diff-switches diff-command default-directory buffer-read-only inhibit-read-only revert-buffer-function bufferp expand-file-name get-buffer-create "*Diff*" diff-file-local-copy mapconcat identity append mapcar shell-quote-argument "-L" prin1-to-string " " t buffer-disable-undo erase-buffer buffer-enable-undo diff-mode make-local-variable make-byte-code 514 "\304\300@\301@\302@\303p%\207" vconcat vector [diff-no-select] 8 "\n\n(fn IGNORE-AUTO NOCONFIRM)" "\n" fboundp start-process "Diff" set-process-filter diff-process-filter set-process-sentinel "r\302!q\210\303\304!\300\301#)\207" [process-buffer diff-sentinel process-exit-status] 6 "\n\n(fn PROC MSG)" diff-sentinel call-process nil shell-file-name shell-command-switch] 22 "\n\n(fn OLD NEW &optional SWITCHES NO-ASYNC BUF)"])
(defalias 'diff-process-filter #[514 "r\301!q\210`\302!U\212\302!b\210\303c\210)\302!`\304\223\210)\211\205'\302!b\262)\207" [inhibit-read-only process-buffer process-mark t nil] 6 "\n\n(fn PROC STRING)"])
#@293 Diff this file with its backup file or vice versa.
Uses the latest backup, if there are several numerical backups.
If this file is a backup, diff it with its original.
The backup file is the first file given to `diff'.
With prefix arg, prompt for diff switches.

(fn FILE &optional SWITCHES)
(defalias 'diff-backup #[513 "\300\211\301!\203\262\302!\262\202\"\303!\206\304\305\"\262\262\306#\207" [nil backup-file-name-p file-name-sans-versions diff-latest-backup-file error "No backup found for %s" diff] 8 (#$ . 4838) (byte-code "\300\301!\302 D\207" [read-file-name "Diff (file with backup): " diff-switches] 2)])
#@61 Return the latest existing backup of FILE, or nil.

(fn FN)
(defalias 'diff-latest-backup-file #[257 "\300\301\"\211\203\211\301\"\202\302!\207" [find-file-name-handler diff-latest-backup-file file-newest-backup] 5 (#$ . 5478)])
#@154 View the differences between BUFFER and its associated file.
This requires the external program `diff' to be in your `exec-path'.

(fn &optional BUFFER)
(defalias 'diff-buffer-with-file #[256 "r\301\206p!q\210\302p\303\304$)\207" [buffer-file-name get-buffer diff nil noasync] 6 (#$ . 5721) "bBuffer: "])
(provide 'diff)
F1l3 Manager
