JezK
Edit File: hilit-chg.elc
;ELC ;;; Compiled by mockbuild@buildfarm03-new.corp.cloudlinux.com on Wed Aug 19 23:52:30 2026 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/hilit-chg.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 "\302\303!\210\304\305\306\307\310\311\312\313&\210\314\305\315\316\312\305%\210\317\320\321\305#\210\317\320\322\323\324!\206' \325#\210\314\326\327\330\312\305%\210\317\331\321\326#\210\317\331\322\323\324!\206A \325#\210\332\333\334\306#\210\335\306\211\203o @\333N\203h \334N\204h \317\334\333N#\210 A\211\204Q *\336\333\334\324#\210\337\334\340\341\342\343\312\305&\210\332\344\345\306#\210\335\306\211\203\255 @\344N\203\246 \345N\204\246 \317\345\344N#\210 A\211\204\217 *\336\344\345\346#\210\337\345\325\347\342\350\312\305&\210\332\351\352\306#\210\335\306\211\203\353 @\351N\203\344 \352N\204\344 \317\352\351N#\210 A\211\204\315 *\336\351\352\346#\210\337\352\353\354\342\355\312\305&\210\332\356\357\306#\210\335\306\211\203) @\356N\203\"\357N\204\"\317\357\356N#\210 A\211\204 *\336\356\357\346#\210\337\357\360\361\342\362\312\305&\210\337\363\325\364\342\365\312\305&\210\337\366\306\367\342\350\312\305&\207" [prop --dolist-tail-- require wid-edit custom-declare-group highlight-changes nil "Highlight Changes mode." :version "20.4" :group faces custom-declare-face ((((min-colors 88) (class color)) (:foreground "red1")) (((class color)) (:foreground "red")) (t (:inverse-video t))) "Face used for highlighting changes." put highlight-changes-face face-alias obsolete-face purecopy "22.1" t highlight-changes-delete ((((min-colors 88) (class color)) (:foreground "red1" :underline t)) (((class color)) (:foreground "red" :underline t)) (t (:inverse-video t))) "Face used for highlighting deletions." highlight-changes-delete-face defvaralias highlight-changes-colours highlight-changes-colors (saved-value saved-variable-comment) make-obsolete-variable custom-declare-variable (if (eq (frame-parameter nil 'background-mode) 'light) '("magenta" "blue" "darkgreen" "chocolate" "sienna4" "NavyBlue") '("yellow" "magenta" "blue" "maroon" "firebrick" "green4" "DarkOrchid")) "Colors used by `highlight-changes-rotate-faces'.\nThe newest rotated change will be displayed in the first element of this list,\nthe next older will be in the second element etc.\n\nThis list is used if `highlight-changes-face-list' is nil, otherwise that\nvariable overrides this list. If you only care about foreground\ncolors then use this, if you want fancier faces then set\n`highlight-changes-face-list'." :type (repeat color) highlight-changes-initial-state highlight-changes-visibility-initial-state "23.1" "Controls whether changes are initially visible in Highlight Changes mode.\n\nThis controls the initial value of `highlight-changes-visible-mode'.\nWhen a buffer is in Highlight Changes mode the function\n`highlight-changes-visible-mode' is used to toggle the mode on or off." boolean highlight-changes-active-string highlight-changes-visible-string " +Chg" "The string used when in Highlight Changes mode and changes are visible.\nThis should be set to nil if no indication is desired, or to\na string with a leading space." (choice string (const :tag "None" nil)) highlight-changes-passive-string highlight-changes-invisible-string " -Chg" "The string used when in Highlight Changes mode and changes are hidden.\nThis should be set to nil if no indication is desired, or to\na string with a leading space." (choice string (const :tag "None" nil)) highlight-changes-global-modes "Determine whether a buffer is suitable for global Highlight Changes mode.\n\nA function means call that function to decide: if it returns non-nil,\nthe buffer is suitable.\n\nA list means the elements are major modes suitable for Highlight\nChanges mode, or a list whose first element is `not' followed by major\nmodes which are not suitable.\n\nA value of t means the buffer is suitable if it is visiting a file and\nits name does not begin with ` ' or `*'.\n\nA value of nil means no buffers are suitable for `global-highlight-changes-mode'\n(effectively disabling the mode).\n\nExample:\n (c-mode c++-mode)\nmeans that Highlight Changes mode is turned on for buffers in C and C++\nmodes only." (choice (const :tag "all non-special buffers visiting files" t) (set :menu-tag "specific modes" :tag "modes" :value (not) (const :tag "All except these" not) (repeat :tag "Modes" :inline t (symbol :tag "mode"))) (function :menu-tag "determined by function" :value buffer-file-name) (const :tag "none" nil)) highlight-changes-global-changes-existing-buffers "If non-nil, toggling global Highlight Changes mode affects existing buffers.\nNormally, `global-highlight-changes' affects only new buffers (to be\ncreated). However, if `highlight-changes-global-changes-existing-buffers'\nis non-nil, then turning on `global-highlight-changes' will turn on\nHighlight Changes mode in suitable buffers, and turning the mode off will\nremove it from existing buffers."] 9) (defvar hilit-chg-list nil) (defvar hilit-chg-string " ??") (make-variable-buffer-local 'hilit-chg-string) #@113 Non-nil if Highlight-Changes mode is enabled. Use the command `highlight-changes-mode' to change this variable. (defvar highlight-changes-mode nil (#$ . 5465)) (make-variable-buffer-local 'highlight-changes-mode) #@1007 Toggle highlighting changes in this buffer (Highlight Changes mode). With a prefix argument ARG, enable Highlight Changes mode if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil. When Highlight Changes is enabled, changes are marked with a text property. Normally they are displayed in a distinctive face, but command \[highlight-changes-visible-mode] can be used to toggles this on and off. Other functions for buffers in this mode include: \[highlight-changes-next-change] - move point to beginning of next change \[highlight-changes-previous-change] - move to beginning of previous change \[highlight-changes-remove-highlight] - remove the change face from the region \[highlight-changes-rotate-faces] - rotate different "ages" of changes through various faces. \[highlight-compare-with-file] - mark text as changed by comparing this buffer with the contents of a file \[highlight-compare-buffers] highlights differences between two buffers. (defalias 'highlight-changes-mode #[(&optional arg) "\305 \306=\203 \n?\202 \307 !\310V\311 \204$ \312\313!\203A \313 \203A \314=\2031 \f\2041 \n?\n\203; \315 \210\202E \316 \210\202E \317\320!\210\321\322\n\203O \323\202P \324\"\210\325\326!\203q \305 \203d \305 \232\203q \317\327\n\203n \330\202o \331\"\210)\332 \210\n\207" [#1=#:last-message arg highlight-changes-mode this-command highlight-changes-global-changes-existing-buffers current-message toggle prefix-numeric-value 0 display-color-p fboundp x-display-grayscale-p global-highlight-changes-mode hilit-chg-set hilit-chg-clear message "Highlight Changes mode requires color or grayscale display" run-hooks highlight-changes-mode-hook highlight-changes-mode-on-hook highlight-changes-mode-off-hook called-interactively-p any "Highlight-Changes mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 5686) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \305\211%\207" [highlight-changes-mode-map add-minor-mode highlight-changes-mode hilit-chg-string boundp nil] 6) #@129 Non-nil if Highlight-Changes-Visible mode is enabled. Use the command `highlight-changes-visible-mode' to change this variable. (defvar highlight-changes-visible-mode t (#$ . 7770)) (make-variable-buffer-local 'highlight-changes-visible-mode) #@551 Toggle visibility of highlighting due to Highlight Changes mode. With a prefix argument ARG, enable Highlight Changes Visible mode if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil. Highlight Changes Visible mode only has an effect when Highlight Changes mode is on. When enabled, the changed text is displayed in a distinctive face. The default value can be customized with variable `highlight-changes-visibility-initial-state'. This command does not itself set highlight-changes mode. (defalias 'highlight-changes-visible-mode #[(&optional arg) "\303 \304=\203 \n?\202 \305 !\306V\307 \210\310\311\n\203! \312\202\" \313\"\210\314\315!\203C \303 \2036 \303 \232\203C \316\317\n\203@ \320\202A \321\"\210)\322 \210\n\207" [#1=#:last-message arg highlight-changes-visible-mode current-message toggle prefix-numeric-value 0 hilit-chg-update run-hooks highlight-changes-visible-mode-hook highlight-changes-visible-mode-on-hook highlight-changes-visible-mode-off-hook called-interactively-p any message "Highlight-Changes-Visible mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 8020) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \303\211%\207" [highlight-changes-visible-mode-map add-minor-mode highlight-changes-visible-mode nil boundp] 6) (defalias 'hilit-chg-cust-fix-changes-face-list #[(w _wc &optional event) "\306!\307 \235\203c \310 ! G\311\211\211 \211 \203R @\312\313\314 \"! \f=\204@ \307=\203; \315\316\f\"\210\202@ \315 \f\"\210\317\fC\n\" SA\211\204 \n\306!\232\204b \320\n\"\210\321 \210-)\322\323\"\211 \205v \324\325$)\207" [w old-list new-list old-name new-name n widget-value default reverse nil intern format "highlight-changes-%d" copy-face highlight-changes append widget-value-set widget-setup widget-get :parent widget-apply :notify p parent event] 6]) #@429 A list of faces used when rotating changes. Normally the variable is initialized to nil and the list is created from `highlight-changes-colors' when needed. However, you can set this variable to any list of faces. You will have to do this if you want faces which don't just differ from the `highlight-changes' face by the foreground color. Otherwise, this list will be constructed when needed from `highlight-changes-colors'. (custom-declare-variable 'highlight-changes-face-list nil '(#$ . 9943) :type '(choice (repeat :notify hilit-chg-cust-fix-changes-face-list face) (const :tag "Derive from highlight-changes-colors" nil)) :group 'highlight-changes) #@211 Call function FUNC for each region used by Highlight Changes mode. If START-POSITION is nil, (point-min) is used. If END-POSITION is nil, (point-max) is used. FUNC is called with 3 params: PROPERTY START STOP. (defalias 'hilit-chg-map-changes #[(func &optional start-position end-position) "\206 e \206\n d\306\211 \211 \205< \fW\205< \307 \310\"\311 \f\310 $ \2035 \n \n\2063 \f#\210\n\211\204 \306,\207" [start-position end-position end prop limit start nil get-text-property hilit-chg text-property-not-all func] 6 (#$ . 10607)]) #@230 Display face information for Highlight Changes mode. An overlay from BEG to END containing a change face is added from the information in the text property of type `hilit-chg'. This is the opposite of `hilit-chg-hide-changes'. (defalias 'hilit-chg-display-changes #[(&optional beg end) "\302\303 #\207" [beg end hilit-chg-map-changes hilit-chg-make-ov] 4 (#$ . 11158)]) (defalias 'hilit-chg-make-ov #[(prop start end) "\204 \306\307!\210\310 \n\"\311=\203 \312\202 \235A@ \f\2035 \313 \304\f#\210\313 \314\315#\210\313 \316\315#\2029 \306\317\"*\207" [prop start end hilit-chg-list face ov error "hilit-chg-make-ov: prop is nil" make-overlay hilit-chg-delete highlight-changes-delete overlay-put evaporate t hilit-chg "hilit-chg-make-ov: no face for prop: %s"] 4]) #@221 Remove face information for Highlight Changes mode. The overlay containing the face is removed, but the text property containing the change information is retained. This is the opposite of `hilit-chg-display-changes'. (defalias 'hilit-chg-hide-changes #[(&optional beg end) "\206 e \206\n d\306 \n\"\307 \211 \205- @\310\f\311\"\203% \312\f!\210 A\211\204 \307,\207" [beg end limit start p --dolist-tail-- overlays-in nil overlay-get hilit-chg delete-overlay] 4 (#$ . 11942)]) #@156 Fix change overlays in region between BEG and END. Ensure the overlays agree with the changes as determined from the text properties of type `hilit-chg'. (defalias 'hilit-chg-fixup #[(beg end) "\302 \303\304$\210\305 \"\207" [beg end remove-overlays hilit-chg t hilit-chg-display-changes] 5 (#$ . 12436)]) #@75 Bind variables according to VARLIST and eval BODY restoring buffer state. (defalias 'highlight-save-buffer-state '(macro . #[(&rest body) "\302\303!\304\305B\306B\307 B\310\311BBF)\207" [modified body make-symbol "modified" let* ((buffer-modified-p)) ((inhibit-modification-hooks t) deactivate-mark buffer-file-name buffer-file-truename) progn unless ((restore-buffer-modified-p nil))] 6 (#$ . 12751)])) (byte-code "\300\301\302\303#\210\300\301\304\305#\207" [put highlight-save-buffer-state lisp-indent-function 0 edebug-form-spec t] 4) #@137 Remove the change face from the region between BEG and END. This allows you to manually remove highlighting from uninteresting changes. (defalias 'highlight-changes-remove-highlight #[(beg end) "\306 \307\310\211\310 \311 \312#\210\313 \"\210?\205 \314\310!-\207" [#1=#:modified inhibit-modification-hooks deactivate-mark buffer-file-name buffer-file-truename beg buffer-modified-p t nil remove-text-properties (hilit-chg nil) hilit-chg-fixup restore-buffer-modified-p end] 5 (#$ . 13300) "r"]) #@140 Record changes and optionally display them in a distinctive face. `hilit-chg-set' adds this function to the `after-change-functions' hook. (defalias 'hilit-chg-set-face-on-change #[(beg end leng-before &optional no-property-change) "\306 \307\216\310\311 \203 \f\205\226 \205\226 \312\"\202\226 \313 \314 \315\211 \315 U\203J \316V\203J \n\\d^\317\202m \320\311\"\317=\203m \214~\210\321\211T\311\211$\210 \203l \312T\"\210) \204{ \321\311 $\210 \204\204 \203\214 \322 #\210?\205\225 \323\315!-,\207" [save-match-data-internal type end-incr undo-in-progress highlight-changes-mode highlight-changes-visible-mode match-data ((byte-code "\301\302\"\207" [save-match-data-internal set-match-data evaporate] 3)) 1 hilit-chg hilit-chg-fixup buffer-modified-p t nil 0 hilit-chg-delete get-text-property put-text-property hilit-chg-make-ov restore-buffer-modified-p beg end #1=#:modified inhibit-modification-hooks deactivate-mark buffer-file-name buffer-file-truename leng-before no-property-change] 6 (#$ . 13812)]) #@62 Update a buffer's highlight changes when visibility changed. (defalias 'hilit-chg-update #[nil "\203 \206 \305 \207\f \206 \306 \207" [highlight-changes-visible-mode highlight-changes-visible-string hilit-chg-string buffer-read-only highlight-changes-invisible-string hilit-chg-display-changes hilit-chg-hide-changes] 1 (#$ . 14878)]) #@49 Turn on Highlight Changes mode for this buffer. (defalias 'hilit-chg-set #[nil "\303\304\305\306#\210\307 \210\306 \310 \210\311 \210\312\304\305\313\306$\207" [highlight-changes-mode highlight-changes-visibility-initial-state highlight-changes-visible-mode remove-hook after-change-functions hilit-chg-set-face-on-change t hilit-chg-make-list hilit-chg-update force-mode-line-update add-hook nil] 5 (#$ . 15227)]) #@91 Remove Highlight Changes mode for this buffer. This removes all saved change information. (defalias 'hilit-chg-clear #[nil "\203\n \306\307\310 \"\207\311\312\313\314#\210\315 \314\316\211 \316 \317 \210\320\321!\210 \204* \322\316!\210-\316\323 \207" [buffer-read-only #1=#:modified inhibit-modification-hooks deactivate-mark buffer-file-name buffer-file-truename message "Cannot remove highlighting from read-only mode buffer %s" buffer-name remove-hook after-change-functions hilit-chg-set-face-on-change t buffer-modified-p nil hilit-chg-hide-changes hilit-chg-map-changes #[(_prop start stop) "\302 \303#\207" [start stop remove-text-properties (hilit-chg nil)] 4] restore-buffer-modified-p force-mode-line-update highlight-changes-mode] 5 (#$ . 15650)]) #@73 Move to the beginning of the next change, if in Highlight Changes mode. (defalias 'highlight-changes-next-change #[nil "\203- `\303\304`\305\"\211\203 \306`\305\"\n\203 \306\n\305\"\n\203( \nb\202+ \307\310!*\207\307\311!\207" [highlight-changes-mode prop start nil get-text-property hilit-chg next-single-property-change message "no next change" "This buffer is not in Highlight Changes mode."] 4 (#$ . 16423) nil]) #@77 Move to the beginning of the previous change, if in Highlight Changes mode. (defalias 'highlight-changes-previous-change #[nil "\203F `\303o\204 \304`S\305\" \203 \306`\305\"\n\203$ \306\n\305\"\n\2038 \306\n\305\"\2067 \304e\305\"\2057 e\n\203A \nb\202D \307\310!*\207\307\311!\207" [highlight-changes-mode prop start nil get-text-property hilit-chg previous-single-property-change message "no previous change" "This buffer is not in Highlight Changes mode."] 3 (#$ . 16854) nil]) #@63 Construct `hilit-chg-list' and `highlight-changes-face-list'. (defalias 'hilit-chg-make-list #[(&optional force) "\203 \2036 \n\306\307 \307 \2035 \310\311\312\f\"!\313\314 \"\210\315 @\"\210\316 C\" A\fT\202 +\317\314D\306\307\211 \203i \310\311\320\f\"! @\316D\" A\fT\202E \316D\"\211,\207" [highlight-changes-face-list force highlight-changes-colors name n p 1 nil intern format "highlight-changes-%d" copy-face highlight-changes set-face-foreground append hilit-chg "change-%d" hilit-chg-list last-face last-category] 4 (#$ . 17351)]) #@59 Increment (age) the Highlight Changes mode text property. (defalias 'hilit-chg-bump-change #[(prop start end) "\305 \306=\203 \307\n8\202 \307 \n\2358 \203\" \310 \f\311$\202( \312\313 \f $)\207" [new-prop prop hilit-chg-list start end nil hilit-chg-delete 2 put-text-property hilit-chg message "%d-%d unknown property %s not changed"] 5 (#$ . 17940)]) #@601 Rotate the faces if in Highlight Changes mode and the changes are visible. Current changes are displayed in the face described by the first element of `highlight-changes-face-list', one level older changes are shown in face described by the second element, and so on. Very old changes remain shown in the last face in the list. You can automatically rotate colors when the buffer is saved by adding this function to `write-file-functions' as a buffer-local value. To do this, eval the following in the buffer to be saved: (add-hook 'write-file-functions 'highlight-changes-rotate-faces nil t) (defalias 'highlight-changes-rotate-faces #[nil "\203 \203 \304 \305\306\216\307 \210\310 \210\311\312!\210\313 \210+\314\207" [highlight-changes-mode highlight-changes-visible-mode inhibit-modification-hooks modified buffer-modified-p t ((byte-code "\204 \301\302!\210\302\207" [modified restore-buffer-modified-p nil] 2)) hilit-chg-make-list hilit-chg-hide-changes hilit-chg-map-changes hilit-chg-bump-change hilit-chg-display-changes nil] 2 (#$ . 18306) nil]) #@138 Get differences between two buffers and set highlight changes. Both buffers are done unless optional parameter MARKUP-A-ONLY is non-nil. (defalias 'highlight-markup-buffers #[(buf-a file-a buf-b file-b &optional markup-a-only) "\306\307!\210\310 \311\216\312\211\312\211 \312\211 \312\211 \312 \313 ! \313 ! r q\210 ) !r q\210 ) \"\312\211 # $%\203n \203n \314\315\316 \"!\203k r q\210\317 \210\313 ! )\202n \312%%\204} \320 \312\"\211%#&\203\246 \203\246 \314\315\316 \"!\203\243 r q\210\317 \210\313 ! )\202\246 \312&&\204\265 \320 \312\"\211&$ q\210\321\322!\210'\204\314 r q\210\321\322!\210)\323 % &$\211@ A@\324 \210\n\2031\n@@\n@A@ @@ @A@ \fZZ q\210\325\f !$\210'\204(r q\210\325\"$\210)\nA A\202\341 \204@r q\210\326\312!\210) \204Or q\210\326\312!\210)#\203Y\327#!\210$\205b\327$!.\207" [#1=#:wconfig change-info change-a change-b a-start a-end require ediff-util current-window-configuration ((set-window-configuration #1#)) nil buffer-modified-p y-or-n-p format "Save buffer %s? " save-buffer ediff-make-temp-file highlight-changes-mode 1 hilit-chg-get-diff-info hilit-chg-make-list hilit-chg-set-face-on-change set-buffer-modified-p delete-file len-a b-start b-end len-b buf-a bufa-modified buf-b bufb-modified buffer-read-only buf-a-read-only buf-b-read-only temp-a temp-b file-a file-b markup-a-only] 6 (#$ . 19384)]) #@505 Compare two buffers and highlight the differences. The default is the current buffer and the one in the next window. If either buffer is modified and is visiting a file, you are prompted to save the file. Unless the buffer is unmodified and visiting a file, the buffer is written to a temporary file for comparison. If a buffer is read-only, differences will be highlighted but no property changes are made, so \[highlight-changes-next-change] and \[highlight-changes-previous-change] will not work. (defalias 'highlight-compare-buffers #[(buf-a buf-b) "\304!\304 !\305 \n$*\207" [buf-a buf-b file-b file-a buffer-file-name highlight-markup-buffers] 5 (#$ . 20821) (list (get-buffer (read-buffer "buffer-a " (current-buffer) t)) (get-buffer (read-buffer "buffer-b " (window-buffer (next-window (selected-window))) t)))]) #@542 Compare this buffer with a file, and highlight differences. If the buffer has a backup filename, it is used as the default when this function is called interactively. If the current buffer is visiting the file being compared against, it also will have its differences highlighted. Otherwise, the file is read in temporarily but the buffer is deleted. If the buffer is read-only, differences will be highlighted but no property changes are made, so \[highlight-changes-next-change] and \[highlight-changes-previous-change] will not work. (defalias 'highlight-compare-with-file #[(file-b) "p\305 \306\n!\211\206 \307\n! \310 \f\n ?%\210 ?\205\" \311\f!,\207" [buf-a file-a file-b existing-buf buf-b buffer-file-name get-file-buffer find-file-noselect highlight-markup-buffers kill-buffer] 7 (#$ . 21658) (let ((file buffer-file-name) (file-name nil) (file-dir nil)) (and file (setq file-name (file-name-nondirectory file) file-dir (file-name-directory file))) (setq file-name (make-backup-file-name file-name)) (if (file-exists-p file-name) nil (setq file-name nil)) (list (read-file-name "Find to compare with: " file-dir nil nil file-name)))]) (defalias 'hilit-chg-get-diff-info #[(buf-a file-a buf-b file-b) "\306\211\211\307 \f \306\211\310\311\312BC&\210\n\2034 \313\n!\2034 \314\313\n!!\2034 r\nq\210\315\306!\210)\202@ \316=\204@ \317!\210 +D\207" [hilit-y hilit-x hilit-e buf-a file-a buf-b nil ediff-setup hilit-chg-get-diff-list-hk ediff-job-name something get-buffer buffer-name ediff-really-quit ediff-quit error file-b this-command ediff-KILLED-VITAL-BUFFER] 10]) (defalias 'hilit-chg-get-diff-list-hk #[nil "p\306\307\211\211\211\211\211 \307\211W\205\344 \310!\210\311 \312\"A*JH\313H\211\203G \314\f\307\"\202` \311 \312\"A*JH\211\306\234C\n \203\200 \315 @!\316 @!D A\314C\"\202b \317 \312\"A*JH\313H\211\203\242 \314 \307\"\202\273 \317 \312\"A*JH\211\306\234C \203\333 \315 @!\316 @!D A\314C\"\202\275 T\211\202 .\207" [hilit-e b a vb va p 0 nil ediff-make-fine-diffs A assoc 1 append overlay-start overlay-end B extent n hilit-x hilit-y ediff-number-of-differences ediff-difference-vector-alist alist buf-type] 8]) (defvar highlight-changes-mode-major-mode nil) (byte-code "\300\301!\210\302\303\304\305\306\307\310\311\312\313\314\315& \207" [make-variable-buffer-local highlight-changes-mode-major-mode custom-declare-variable global-highlight-changes-mode nil "Non-nil if Global-Highlight-Changes mode is enabled.\nSee the command `global-highlight-changes-mode' for a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `global-highlight-changes-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group highlight-changes :type boolean] 12) #@387 Toggle Highlight-Changes mode in all buffers. With prefix ARG, enable Global-Highlight-Changes mode if ARG is positive; otherwise, disable it. If called from Lisp, enable the mode if ARG is omitted or nil. Highlight-Changes mode is enabled in all buffers where `highlight-changes-mode-turn-on' would do it. See `highlight-changes-mode' for more information on Highlight-Changes mode. (defalias 'global-highlight-changes-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\211\203/ \312\313\314\"\210\312\315\314\"\210\312\316\317\"\210\312\320\321\"\210\202C \322\313\314\"\210\322\315\314\"\210\322\316\317\"\210\322\320\321\"\210\323 \324\211 \203m \f@r q\210\n\203] \325 \210\202e \203e \305\326!\210)\fA\211\204L *\327\330\n\203x \331\202y \332\"\210\333\334!\203\236 \335\302!\210\306 \203\221 \306 \232\203\236 \336\337\n\203\233 \340\202\234 \341\"\210)\342 \210\n\207" [#1=#:last-message arg global-highlight-changes-mode buf --dolist-tail-- highlight-changes-mode current-message toggle prefix-numeric-value 0 add-hook after-change-major-mode-hook global-highlight-changes-mode-enable-in-buffers change-major-mode-after-body-hook find-file-hook global-highlight-changes-mode-check-buffers change-major-mode-hook global-highlight-changes-mode-cmhh remove-hook buffer-list nil highlight-changes-mode-turn-on -1 run-hooks global-highlight-changes-mode-hook global-highlight-changes-mode-on-hook global-highlight-changes-mode-off-hook called-interactively-p any customize-mark-as-set message "Global-Highlight-Changes mode %sabled" "en" "dis" force-mode-line-update] 4 (#$ . 24586) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n \303\211%\207" [global-highlight-changes-mode-map add-minor-mode global-highlight-changes-mode nil boundp] 6) (defvar global-highlight-changes-mode-buffers nil) (defalias 'global-highlight-changes-mode-enable-in-buffers #[nil "\306\211\2059 \n@\307 !\2031 r q\210 \f=\2040 \203+ \305\310!\210\311 \210\f\2020 \311 \210\f)\nA\211\204 \306*\207" [global-highlight-changes-mode-buffers buf --dolist-tail-- highlight-changes-mode-major-mode major-mode highlight-changes-mode nil buffer-live-p -1 highlight-changes-mode-turn-on] 3]) (put 'global-highlight-changes-mode-enable-in-buffers 'definition-name 'global-highlight-changes-mode) (defalias 'global-highlight-changes-mode-check-buffers #[nil "\301 \210\302\303\304\305\"\207" [global-highlight-changes-mode-buffers global-highlight-changes-mode-enable-in-buffers nil remove-hook post-command-hook global-highlight-changes-mode-check-buffers] 3]) (put 'global-highlight-changes-mode-check-buffers 'definition-name 'global-highlight-changes-mode) (defalias 'global-highlight-changes-mode-cmhh #[nil "\300\301p\"\210\302\303\304\"\207" [add-to-list global-highlight-changes-mode-buffers add-hook post-command-hook global-highlight-changes-mode-check-buffers] 3]) (byte-code "\300\301\302\303#\210\304\305\303\306#\210\307\305\303\310#\207" [put global-highlight-changes-mode-cmhh definition-name global-highlight-changes-mode defalias global-highlight-changes nil make-obsolete "23.1"] 4) #@134 See if Highlight Changes mode should be turned on for this buffer. This is called when `global-highlight-changes-mode' is turned on. (defalias 'highlight-changes-mode-turn-on #[nil "\206@ \204\n \303\207\304 !\203 \202: <\203/ \242\305=\203) \n A>?\202: \n >\202: \306\307\310 \"?\205@ \311 \205@ \300\312!\207" [highlight-changes-mode highlight-changes-global-modes major-mode nil functionp not string-match "^[ *]" buffer-name buffer-file-name 1] 3 (#$ . 27727)]) (defalias 'hilit-chg-desktop-restore #[(desktop-buffer-locals) "\301\211\236A\206 \302!\207" [desktop-buffer-locals highlight-changes-mode 1] 3]) (byte-code "\300\301\302\"\210\300\303\304\"\210\305\306!\207" [add-to-list desktop-minor-mode-handlers (highlight-changes-mode . hilit-chg-desktop-restore) desktop-locals-to-save highlight-changes-mode provide hilit-chg] 3)