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

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

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

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


(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 "-u"] 2] "A string or list of strings specifying switches to be passed to diff.\n\nThis variable is also used in the `vc-diff' command (and related\ncommands) if the backend-specific diff switch variable isn't\nset (`vc-git-diff-switches' for git, for instance), and\n`vc-diff-switches' isn't set." :type (choice string (repeat string)) diff-command #[0 "\300\301!\207" [purecopy "diff"] 2] "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])
#@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\267\202,\307\202-\310\202-\311\312 #c*\207" [inhibit-read-only delete-file diff-setup-whitespace t format "\nDiff finished%s.  %s\n" #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (0 36 2 40)) " (no differences)" " (diff error)" "" current-time-string] 7 (#$ . 1318)])
#@597 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 the variable `diff-switches' are passed to the
diff command.

Non-interactively, OLD and NEW may each be a file or a buffer.

(fn OLD NEW &optional SWITCHES NO-ASYNC)
(defalias 'diff #[1026 "\300\301$!\207" [display-buffer diff-no-select] 10 (#$ . 2023) (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)])
#@190 Like `file-local-copy' but also supports a buffer as the argument.
When FILE-OR-BUF is a buffer, return the filename of a local
temporary file with the buffer's contents.

(fn FILE-OR-BUF)
(defalias 'diff-file-local-copy #[257 "\300
!\203r\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 (#$ . 3153)])
#@170 Whether `diff-command' understands the "--label" option.
Possible values are:
  t     -- yes, it does
  nil   -- no, it does not
  check -- try to probe whether it does
(defvar diff-use-labels 'check (#$ . 3573))
#@24 

(fn &optional FORCE)
(defalias 'diff-check-labels #[256 "\211\204\f\302=\204\f\207\303\304!r\211q\210\305\306\307\310\311!\312\"\313$\216\3141.\315	\316\317\316\320%0\2023\210\316\202?\205?\321\322\316\317#\205?\317*\262
\211\207" [diff-use-labels diff-command check generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205	\302\300!\207" vconcat vector [buffer-name kill-buffer] 2 (error) call-process nil t "--help" search-backward "--label"] 8 (#$ . 3792)])
#@483 Compare the OLD and NEW file/buffer.
If the optional SWITCHES is nil, the switches specified in the
variable ‘diff-switches’ are passed to the diff command,
otherwise SWITCHES is used.  SWITCHES can be a string or a list
of strings.

If NO-ASYNC is non-nil, call diff synchronously.

By default, this function creates the diff in the "*Diff*"
buffer.  If BUF is non-nil, BUF is used instead.  This function
returns the buffer used.

(fn OLD NEW &optional SWITCHES NO-ASYNC BUF)
(defalias 'diff-no-select #[1282 "CCC\306\242!\204
\307\242!\240\210\306
\242!\204#\211\307\242!\240\210\242\204,\240\210\242<\2048\211\242C\240\210\204A\310\311!\262\312 \210\313
\242!\313\242!\314\315	\316\242\317\320\204_\205\214\n\321=\205\214\322\n\242;\203s\n\242\202x\323\242!\322
\242;\203\206
\242\202\213\323\242!F	\206\224\n\242	\206\234\f\242D\244\"\"B\324#rq\210\321\325p!\210\321\326 \210)\327p!\210\330 \210\331\332!\210\333\334\335\336\337	
$\340\"\341\342%\211\2112\321
\343\261\210)\204
\344\345!\203
\346\347	34%\350
\351\"\210\352
\333\334\353\336\337\"\354\"\355\356%\"\266\202)
\321\357\3603\361\3614&#\210))\266\204\207" [diff-switches diff-command diff-use-labels default-directory buffer-read-only inhibit-read-only bufferp expand-file-name get-buffer-create "*Diff*" diff-check-labels diff-file-local-copy mapconcat identity append mapcar shell-quote-argument t "--label" prin1-to-string " " buffer-disable-undo erase-buffer buffer-enable-undo diff-mode make-local-variable revert-buffer-function make-byte-code 514 "\304\300\242\301\242\302\242\303p%\207" vconcat vector [diff-no-select] 8 "\n\n(fn IGNORE-AUTO NOCONFIRM)" "\n" fboundp make-process 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 diff-default-directory shell-file-name shell-command-switch] 22 (#$ . 4279)])
#@20 

(fn PROC STRING)
(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 (#$ . 6336)])
#@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 (#$ . 6566) (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 (#$ . 7206)])
#@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 "\301
\206p!r\302
!\206\211q\210\303p\304\305$)\207" [buffer-file-name get-buffer buffer-base-buffer diff nil noasync] 7 (#$ . 7449) "bBuffer: "])
#@578 Find and display the differences between OLD and NEW buffers.

When called interactively, read NEW, then OLD, using the
minibuffer.  The default for NEW is the current buffer, and the
default for OLD is the most recently selected other buffer.
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 the variable `diff-switches' are passed to the
diff command.

OLD and NEW may each be a buffer or a buffer name.

(fn OLD NEW &optional SWITCHES NO-ASYNC)
(defalias 'diff-buffers #[1026 "\300\301!\301!$\207" [diff get-buffer] 9 (#$ . 7800) (byte-code "\300\301p\302#\300\303\304p\302\"\302#\211\305 E\207" [read-buffer "Diff new buffer" t "Diff original buffer" other-buffer diff-switches] 6)])
(provide 'diff)