/[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.29 by miles, Fri Jun 10 08:48:45 2005 UTC revision 1.30 by lektu, Fri Jun 10 14:03:52 2005 UTC
# Line 241  Line 241 
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)
# Line 383  remove it from existing buffers." Line 383  remove it from existing buffers."
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
# Line 778  of `highlight-changes-face-list', one le Line 778  of `highlight-changes-face-list', one le
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    
# Line 846  is non-nil." Line 846  is non-nil."
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)))
# Line 890  If a buffer is read-only, differences wi Line 890  If a buffer is read-only, differences wi
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)
# Line 921  changes are made, so \\[highlight-change Line 921  changes are made, so \\[highlight-change
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))))

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

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