241 |
'( "magenta" "blue" "darkgreen" "chocolate" "sienna4" "NavyBlue") |
'( "magenta" "blue" "darkgreen" "chocolate" "sienna4" "NavyBlue") |
242 |
;; defaults for dark background: |
;; defaults for dark background: |
243 |
'("yellow" "magenta" "blue" "maroon" "firebrick" "green4" "DarkOrchid")) |
'("yellow" "magenta" "blue" "maroon" "firebrick" "green4" "DarkOrchid")) |
244 |
"*Colours used by `highlight-changes-rotate-faces'. |
"*Colors used by `highlight-changes-rotate-faces'. |
245 |
The newest rotated change will be displayed in the first element of this list, |
The newest rotated change will be displayed in the first element of this list, |
246 |
the next older will be in the second element etc. |
the next older will be in the second element etc. |
247 |
|
|
248 |
This list is used if `highlight-changes-face-list' is nil, otherwise that |
This list is used if `highlight-changes-face-list' is nil, otherwise that |
249 |
variable overrides this list. If you only care about foreground |
variable overrides this list. If you only care about foreground |
250 |
colours then use this, if you want fancier faces then set |
colors then use this, if you want fancier faces then set |
251 |
`highlight-changes-face-list'." |
`highlight-changes-face-list'." |
252 |
:type '(repeat color) |
:type '(repeat color) |
253 |
:group 'highlight-changes) |
:group 'highlight-changes) |
383 |
Normally the variable is initialized to nil and the list is created from |
Normally the variable is initialized to nil and the list is created from |
384 |
`highlight-changes-colours' when needed. However, you can set this variable |
`highlight-changes-colours' when needed. However, you can set this variable |
385 |
to any list of faces. You will have to do this if you want faces which |
to any list of faces. You will have to do this if you want faces which |
386 |
don't just differ from the `highlight-changes' face by the foreground colour. |
don't just differ from the `highlight-changes' face by the foreground color. |
387 |
Otherwise, this list will be constructed when needed from |
Otherwise, this list will be constructed when needed from |
388 |
`highlight-changes-colours'." |
`highlight-changes-colours'." |
389 |
:type '(choice |
:type '(choice |
778 |
face described by the second element, and so on. Very old changes remain |
face described by the second element, and so on. Very old changes remain |
779 |
shown in the last face in the list. |
shown in the last face in the list. |
780 |
|
|
781 |
You can automatically rotate colours when the buffer is saved |
You can automatically rotate colors when the buffer is saved |
782 |
by adding the following to `local-write-file-hooks', by evaling it in the |
by adding the following to `local-write-file-hooks', by evaling it in the |
783 |
buffer to be saved): |
buffer to be saved): |
784 |
|
|
846 |
|
|
847 |
(setq change-a (car change-info)) |
(setq change-a (car change-info)) |
848 |
(setq change-b (car (cdr change-info))) |
(setq change-b (car (cdr change-info))) |
849 |
|
|
850 |
(hilit-chg-make-list) |
(hilit-chg-make-list) |
851 |
(while change-a |
(while change-a |
852 |
(setq a-start (nth 0 (car change-a))) |
(setq a-start (nth 0 (car change-a))) |
890 |
changes are made, so \\[highlight-changes-next-change] and |
changes are made, so \\[highlight-changes-next-change] and |
891 |
\\[highlight-changes-previous-change] will not work." |
\\[highlight-changes-previous-change] will not work." |
892 |
(interactive |
(interactive |
893 |
(list |
(list |
894 |
(get-buffer (read-buffer "buffer-a " (current-buffer) t)) |
(get-buffer (read-buffer "buffer-a " (current-buffer) t)) |
895 |
(get-buffer |
(get-buffer |
896 |
(read-buffer "buffer-b " |
(read-buffer "buffer-b " |
897 |
(window-buffer (next-window (selected-window))) t)))) |
(window-buffer (next-window (selected-window))) t)))) |
898 |
(let ((file-a (buffer-file-name buf-a)) |
(let ((file-a (buffer-file-name buf-a)) |
899 |
(file-b (buffer-file-name buf-b))) |
(file-b (buffer-file-name buf-b))) |
900 |
(highlight-markup-buffers buf-a file-a buf-b file-b) |
(highlight-markup-buffers buf-a file-a buf-b file-b) |
921 |
nil ;; default |
nil ;; default |
922 |
'yes ;; must exist |
'yes ;; must exist |
923 |
(let ((f (buffer-file-name (current-buffer)))) |
(let ((f (buffer-file-name (current-buffer)))) |
924 |
(if f |
(if f |
925 |
(progn |
(progn |
926 |
(setq f (make-backup-file-name f)) |
(setq f (make-backup-file-name f)) |
927 |
(or (file-exists-p f) |
(or (file-exists-p f) |
928 |
(setq f nil))) |
(setq f nil))) |
929 |
) |
) |
930 |
f)))) |
f)))) |