When Highlight Changes is enabled, changes are marked with a text
property. Normally they are displayed in a distinctive face, but
When Highlight Changes is enabled, changes are marked with a text
property. Normally they are displayed in a distinctive face, but
"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.
"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.
(defun hilit-chg-display-changes (&optional beg end)
"Display face information for Highlight Changes mode.
(defun hilit-chg-display-changes (&optional beg end)
"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'.
+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'."
(hilit-chg-map-changes 'hilit-chg-make-ov beg end))
This is the opposite of `hilit-chg-hide-changes'."
(hilit-chg-map-changes 'hilit-chg-make-ov beg end))
this function to `write-file-functions' as a buffer-local value. To do
this, eval the following in the buffer to be saved:
this function to `write-file-functions' as a buffer-local value. To do
this, eval the following in the buffer to be saved:
(interactive)
(when (and highlight-changes-mode highlight-changes-visible-mode)
(let ((modified (buffer-modified-p))
(interactive)
(when (and highlight-changes-mode highlight-changes-visible-mode)
(let ((modified (buffer-modified-p))