procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(highlight-changes-colors): Rename from `highlight-changes-colours'.

Browse source 
(highlight-changes-colours): Keep as obsolete alias.
(highlight-changes-face-list): Doc fix.
(hilit-chg-make-list): Use `highlight-changes-colors'.
This commit is contained in:
Juanma Barranquero 2005-06-12 23:08:51 +00:00
parent defa8e19a1
commit b1412131a8
2 changed files with 19 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lisp/ChangeLog
View file

@ -1,3 +1,11 @@
2005-06-13 Juanma Barranquero <lekktu@gmail.com>
* hilit-chg.el (highlight-changes-colors): Rename from
`highlight-changes-colours'.
(highlight-changes-colours): Keep as obsolete alias.
(highlight-changes-face-list): Doc fix.
(hilit-chg-make-list): Use `highlight-changes-colors'.
2005-06-12 Mark A. Hershberger <mah@everybody.org>
* progmodes/cperl-mode.el (cperl-mode): Remove stray paren in

19
lisp/hilit-chg.el
View file

@ -49,9 +49,9 @@
;; 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
;; `highlight-changes-colors'. If `highlight-changes-face-list' is nil when
;; the faces are required they will be constructed from
;; `highlight-changes-colours'.
;; `highlight-changes-colors'.
;;
;;
;; When a Highlight Changes mode is on (either active or passive) you can go
@ -233,9 +233,9 @@
;; A (not very good) default list of colours to rotate through.
;; A (not very good) default list of colors to rotate through.
;;
(defcustom highlight-changes-colours
(defcustom highlight-changes-colors
(if (eq (frame-parameter nil 'background-mode) 'light)
;; defaults for light background:
'( "magenta" "blue" "darkgreen" "chocolate" "sienna4" "NavyBlue")
@ -252,6 +252,9 @@ colors then use this, if you want fancier faces then set
: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,16 +384,16 @@ remove it from existing buffers."
(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
`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-colours'."
`highlight-changes-colors'."
:type '(choice
(repeat
:notify hilit-chg-cust-fix-changes-face-list
face )
(const :tag "Derive from highlight-changes-colours" nil)
(const :tag "Derive from highlight-changes-colors" nil)
)
:group 'highlight-changes)
@ -731,7 +734,7 @@ Hook variables:
;; 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)
(let ((p highlight-changes-colors)
(n 1) name)
(setq highlight-changes-face-list nil)
(while p