49 |
;; either explicitly define each face by customizing |
;; either explicitly define each face by customizing |
50 |
;; `highlight-changes-face-list'. If, however, the faces differ from |
;; `highlight-changes-face-list'. If, however, the faces differ from |
51 |
;; the `highlight-changes' face only in the foreground color, you can simply set |
;; the `highlight-changes' face only in the foreground color, you can simply set |
52 |
;; `highlight-changes-colours'. If `highlight-changes-face-list' is nil when |
;; `highlight-changes-colors'. If `highlight-changes-face-list' is nil when |
53 |
;; the faces are required they will be constructed from |
;; the faces are required they will be constructed from |
54 |
;; `highlight-changes-colours'. |
;; `highlight-changes-colors'. |
55 |
;; |
;; |
56 |
;; |
;; |
57 |
;; When a Highlight Changes mode is on (either active or passive) you can go |
;; When a Highlight Changes mode is on (either active or passive) you can go |
233 |
|
|
234 |
|
|
235 |
|
|
236 |
;; A (not very good) default list of colours to rotate through. |
;; A (not very good) default list of colors to rotate through. |
237 |
;; |
;; |
238 |
(defcustom highlight-changes-colours |
(defcustom highlight-changes-colors |
239 |
(if (eq (frame-parameter nil 'background-mode) 'light) |
(if (eq (frame-parameter nil 'background-mode) 'light) |
240 |
;; defaults for light background: |
;; defaults for light background: |
241 |
'( "magenta" "blue" "darkgreen" "chocolate" "sienna4" "NavyBlue") |
'( "magenta" "blue" "darkgreen" "chocolate" "sienna4" "NavyBlue") |
252 |
:type '(repeat color) |
:type '(repeat color) |
253 |
:group 'highlight-changes) |
:group 'highlight-changes) |
254 |
|
|
255 |
|
(define-obsolete-variable-alias 'highlight-changes-colours |
256 |
|
'highlight-changes-colors "22.1") |
257 |
|
|
258 |
|
|
259 |
;; If you invoke highlight-changes-mode with no argument, should it start in |
;; If you invoke highlight-changes-mode with no argument, should it start in |
260 |
;; active or passive mode? |
;; active or passive mode? |
384 |
(defcustom highlight-changes-face-list nil |
(defcustom highlight-changes-face-list nil |
385 |
"*A list of faces used when rotating changes. |
"*A list of faces used when rotating changes. |
386 |
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 |
387 |
`highlight-changes-colours' when needed. However, you can set this variable |
`highlight-changes-colors' when needed. However, you can set this variable |
388 |
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 |
389 |
don't just differ from the `highlight-changes' face by the foreground color. |
don't just differ from the `highlight-changes' face by the foreground color. |
390 |
Otherwise, this list will be constructed when needed from |
Otherwise, this list will be constructed when needed from |
391 |
`highlight-changes-colours'." |
`highlight-changes-colors'." |
392 |
:type '(choice |
:type '(choice |
393 |
(repeat |
(repeat |
394 |
:notify hilit-chg-cust-fix-changes-face-list |
:notify hilit-chg-cust-fix-changes-face-list |
395 |
face ) |
face ) |
396 |
(const :tag "Derive from highlight-changes-colours" nil) |
(const :tag "Derive from highlight-changes-colors" nil) |
397 |
) |
) |
398 |
:group 'highlight-changes) |
:group 'highlight-changes) |
399 |
|
|
734 |
;; so we pick up any changes? |
;; so we pick up any changes? |
735 |
(if (or (null highlight-changes-face-list) ; Don't do it if it |
(if (or (null highlight-changes-face-list) ; Don't do it if it |
736 |
force) ; already exists unless FORCE non-nil. |
force) ; already exists unless FORCE non-nil. |
737 |
(let ((p highlight-changes-colours) |
(let ((p highlight-changes-colors) |
738 |
(n 1) name) |
(n 1) name) |
739 |
(setq highlight-changes-face-list nil) |
(setq highlight-changes-face-list nil) |
740 |
(while p |
(while p |