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 |
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 |
;; |
;; |