;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'message) #@62 Prints each line in `LINES' to a buffer named `BUFFER-NAME'. (defalias 'diffview--print-all-lines-to-buffer #[(lines buffer-name) "\305!\211\203\f\306 !\210r\307!q\210\310 \210\n\311\211\205-\f@\211\312\261\210\fA\211\204\311,\207" [buffer-name old-temp-buffer lines line --dolist-tail-- get-buffer kill-buffer get-buffer-create erase-buffer nil "\n"] 3 (#$ . 106)]) (defvar diffview--minus-bufname "*side-by-side-1*") (defvar diffview--plus-bufname "*side-by-side-2*") (defvar diffview--saved-wincfg nil) #@51 A + followed by one non + or the end of the line. (defvar diffview--regexp-is-plus-line "^\\+\\([^+]\\{1\\}\\|$\\)" (#$ . 630)) #@51 A - followed by one non - or the end of the line. (defvar diffview--regexp-is-minus-line "^-\\([^-]\\{1\\}\\|$\\)" (#$ . 764)) #@58 Displays `INPUT-STRING' (a diff) in a side-by-side view. (defalias 'diffview--view-string #[(input-string) "\306 \307 \210\310\211\211\311\211\312\211\211\313 \314\"\n\310\211 \203 @\315!\"\203HB\316 T\202r\315\"\"\203aB\317\fT\202rBB\311 T\232\204\367\311=\203\367 \fV\203\275\211A\242 \fZ\312#$#$W\203\262\320B#T\211#\202\235*B\202\363 \fW\203\363\211A\242\f Z\312#$#$W\203\353\320B#T\211#\202\326*B\312\211 A\211 \204**\321\322!%\"\210\321\322!&\"\210\323%\310\324#\210eb\210\325 \210\326 \210\327\330!\210\323&\310\324#\210eb\210\325 \210\331 . \207" [diffview--saved-wincfg input-string all-lines total-lines current-lines-in-minus current-lines-in-plus current-window-configuration delete-other-windows nil in-common 0 split-string "\n" string-match in-plus in-minus "" diffview--print-all-lines-to-buffer reverse switch-to-buffer t diffview-mode split-window-right other-window 1 scroll-all-mode last-state current-state tmp-line minus-lines plus-lines line --dolist-tail-- diffview--regexp-is-plus-line diffview--regexp-is-minus-line i --dotimes-limit-- diffview--minus-bufname diffview--plus-bufname] 12 (#$ . 897)]) #@50 Show current diff buffer in a side-by-side view. (defalias 'diffview-current #[nil "\300\301 !\207" [diffview--view-string buffer-string] 2 (#$ . 2171) nil]) #@50 Show current diff region in a side-by-side view. (defalias 'diffview-region #[nil "\300`\301 {!\207" [diffview--view-string mark] 3 (#$ . 2335) nil]) #@108 Show `message-mode' buffer in a side-by-side view. This is useful for reading patches from mailing lists. (defalias 'diffview-message #[nil "\302\211\212\303 \210\304\305!\210`T\304\306!\210`T\307 {!+\207" [end beg nil message-goto-body search-forward-regexp "^---$" "^-- $" diffview--view-string] 3 (#$ . 2492) nil]) (defvar diffview-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [diffview-mode-hook variable-documentation put "Hook run after entering Diffview mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp diffview-mode-map definition-name diffview-mode] 4) (defvar diffview-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204\303\307\310\311#\210\312\313 !\210\307\302N\204-\303\307\302\304\314!#\210\306\300!\204B\303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P\303\300\302\304\320!#\210\303\311\321\322#\207" [diffview-mode-abbrev-table diffview-mode-map variable-documentation put purecopy "Keymap for `diffview-mode'." boundp diffview-mode-syntax-table definition-name diffview-mode (lambda (#1=#:def-tmp-var) (defvar diffview-mode-syntax-table #1#)) make-syntax-table "Syntax table for `diffview-mode'." (lambda (#1#) (defvar diffview-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `diffview-mode'." derived-mode-parent special-mode] 5) #@234 Mode for viewing diffs side-by-side In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `diffview-mode-hook', as the final or penultimate step during initialization. \{diffview-mode-map} (defalias 'diffview-mode #[nil "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2036 \321 =\203<\322\f\323 \"\210)\324\325\"\204V=\204V\326\325C#\210\327 !\210\330\f!\210\331)\332\333!\207" [delay-mode-hooks major-mode mode-name diffview-mode-map diffview-mode-syntax-table parent make-local-variable t special-mode diffview-mode "Diffview" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table (diff-font-lock-keywords t nil nil nil (font-lock-multiline)) run-mode-hooks diffview-mode-hook diffview-mode-abbrev-table local-abbrev-table font-lock-defaults] 6 (#$ . 3994) nil]) #@46 Quit diffview and clean up diffview buffers. (defalias 'diffview--quit #[nil "\305 \210\306\307!\210\310!\310 !\211\203\311 !\210\n\203\311\n!\210*\312\f!\207" [diffview--plus-bufname diffview--minus-bufname minusbuf plusbuf diffview--saved-wincfg delete-other-windows scroll-all-mode 0 get-buffer kill-buffer set-window-configuration] 4 (#$ . 5061) nil]) (byte-code "\301\302\303#\210\304\305!\207" [diffview-mode-map define-key "q" diffview--quit provide diffview] 4)