/[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.34 by ttn, Sat Aug 6 22:13:43 2005 UTC revision 1.35 by lh, Wed Aug 10 19:39:32 2005 UTC
# Line 673  Hook variables: Line 673  Hook variables:
673          (if new-highlight-changes-mode          (if new-highlight-changes-mode
674              ;; mode is turned on -- but may be passive              ;; mode is turned on -- but may be passive
675              (progn              (progn
676                  (add-to-list 'desktop-locals-to-save 'highlight-changes-mode)
677                (hilit-chg-set new-highlight-changes-mode)                (hilit-chg-set new-highlight-changes-mode)
678                (or was-on                (or was-on
679                    ;; run highlight-changes-enable-hook once                    ;; run highlight-changes-enable-hook once
# Line 1154  from `global-highlight-changes' when tur Line 1155  from `global-highlight-changes' when tur
1155                   )))                   )))
1156     (buffer-list)))     (buffer-list)))
1157    
1158    ;;;; Desktop support.
1159    
1160    ;; Called by `desktop-create-buffer' to restore `highlight-changes-mode'.
1161    (defun hilit-chg-desktop-restore (desktop-buffer-locals)
1162      (highlight-changes-mode
1163       (or (cdr (assq 'highlight-changes-mode desktop-buffer-locals)) 1)))
1164    
1165    (add-to-list 'desktop-minor-mode-handlers
1166                 '(highlight-changes-mode . hilit-chg-desktop-restore))
1167    
1168  ;; ===================== debug ==================  ;; ===================== debug ==================
1169  ;; For debug & test use:  ;; For debug & test use:
1170  ;;  ;;

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

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