/[emacs]/emacs/lisp/hilit-chg.el
ViewVC logotype

Diff of /emacs/lisp/hilit-chg.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.30 by lektu, Fri Jun 10 14:03:52 2005 UTC revision 1.31 by lektu, Sun Jun 12 23:06:50 2005 UTC
# Line 49  Line 49 
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
# Line 233  Line 233 
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")
# Line 252  colors then use this, if you want fancie Line 252  colors then use this, if you want fancie
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?
# Line 381  remove it from existing buffers." Line 384  remove it from existing buffers."
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    
# Line 731  Hook variables: Line 734  Hook variables:
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

Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26