[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/hilit-chg.el
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/hilit-chg.el |
Date: |
Sun, 12 Jun 2005 19:06:50 -0400 |
Index: emacs/lisp/hilit-chg.el
diff -c emacs/lisp/hilit-chg.el:1.30 emacs/lisp/hilit-chg.el:1.31
*** emacs/lisp/hilit-chg.el:1.30 Fri Jun 10 14:03:52 2005
--- emacs/lisp/hilit-chg.el Sun Jun 12 23:06:50 2005
***************
*** 49,57 ****
;; either explicitly define each face by customizing
;; `highlight-changes-face-list'. If, however, the faces differ from
;; the `highlight-changes' face only in the foreground color, you can simply
set
! ;; `highlight-changes-colours'. If `highlight-changes-face-list' is nil when
;; the faces are required they will be constructed from
! ;; `highlight-changes-colours'.
;;
;;
;; When a Highlight Changes mode is on (either active or passive) you can go
--- 49,57 ----
;; either explicitly define each face by customizing
;; `highlight-changes-face-list'. If, however, the faces differ from
;; the `highlight-changes' face only in the foreground color, you can simply
set
! ;; `highlight-changes-colors'. If `highlight-changes-face-list' is nil when
;; the faces are required they will be constructed from
! ;; `highlight-changes-colors'.
;;
;;
;; When a Highlight Changes mode is on (either active or passive) you can go
***************
*** 233,241 ****
! ;; A (not very good) default list of colours to rotate through.
;;
! (defcustom highlight-changes-colours
(if (eq (frame-parameter nil 'background-mode) 'light)
;; defaults for light background:
'( "magenta" "blue" "darkgreen" "chocolate" "sienna4" "NavyBlue")
--- 233,241 ----
! ;; A (not very good) default list of colors to rotate through.
;;
! (defcustom highlight-changes-colors
(if (eq (frame-parameter nil 'background-mode) 'light)
;; defaults for light background:
'( "magenta" "blue" "darkgreen" "chocolate" "sienna4" "NavyBlue")
***************
*** 252,257 ****
--- 252,260 ----
:type '(repeat color)
:group 'highlight-changes)
+ (define-obsolete-variable-alias 'highlight-changes-colours
+ 'highlight-changes-colors "22.1")
+
;; If you invoke highlight-changes-mode with no argument, should it start in
;; active or passive mode?
***************
*** 381,396 ****
(defcustom highlight-changes-face-list nil
"*A list of faces used when rotating changes.
Normally the variable is initialized to nil and the list is created from
! `highlight-changes-colours' 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-colours'."
:type '(choice
(repeat
:notify hilit-chg-cust-fix-changes-face-list
face )
! (const :tag "Derive from highlight-changes-colours" nil)
)
:group 'highlight-changes)
--- 384,399 ----
(defcustom highlight-changes-face-list nil
"*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'."
:type '(choice
(repeat
:notify hilit-chg-cust-fix-changes-face-list
face )
! (const :tag "Derive from highlight-changes-colors" nil)
)
:group 'highlight-changes)
***************
*** 731,737 ****
;; so we pick up any changes?
(if (or (null highlight-changes-face-list) ; Don't do it if it
force) ; already exists unless FORCE non-nil.
! (let ((p highlight-changes-colours)
(n 1) name)
(setq highlight-changes-face-list nil)
(while p
--- 734,740 ----
;; so we pick up any changes?
(if (or (null highlight-changes-face-list) ; Don't do it if it
force) ; already exists unless FORCE non-nil.
! (let ((p highlight-changes-colors)
(n 1) name)
(setq highlight-changes-face-list nil)
(while p