From: Lars Hansen <larsh@soem.dk>
Date: Wed, 10 Aug 2005 19:39:32 +0000 (+0000)
Subject: Add handler to desktop-minor-mode-handlers.
X-Git-Tag: emacs-pretest-22.0.90~7647
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=abe5c13aa02424137dff1980a49b0e9273e59332;p=emacs.git

Add handler to desktop-minor-mode-handlers.
(hilit-chg-desktop-restore): New function.
(highlight-changes-mode): Add highlight-changes-mode to
desktop-locals-to-save.
---

diff --git a/lisp/hilit-chg.el b/lisp/hilit-chg.el
index f4b9b71f5e7..7011ff37dd3 100644
--- a/lisp/hilit-chg.el
+++ b/lisp/hilit-chg.el
@@ -673,6 +673,7 @@ Hook variables:
 	(if new-highlight-changes-mode
 	    ;; mode is turned on -- but may be passive
 	    (progn
+	      (add-to-list 'desktop-locals-to-save 'highlight-changes-mode)
 	      (hilit-chg-set new-highlight-changes-mode)
 	      (or was-on
 		  ;; run highlight-changes-enable-hook once
@@ -1154,6 +1155,16 @@ from `global-highlight-changes' when turning on global Highlight Changes mode."
 		 )))
    (buffer-list)))
 
+;;;; Desktop support.
+
+;; Called by `desktop-create-buffer' to restore `highlight-changes-mode'.
+(defun hilit-chg-desktop-restore (desktop-buffer-locals)
+  (highlight-changes-mode
+   (or (cdr (assq 'highlight-changes-mode desktop-buffer-locals)) 1)))
+
+(add-to-list 'desktop-minor-mode-handlers
+             '(highlight-changes-mode . hilit-chg-desktop-restore))
+
 ;; ===================== debug ==================
 ;; For debug & test use:
 ;;