Path to make desktop.el remember hi-lock-interactive-patterns

[Lennart Borgman <lennart.borgman@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 10 bytes --]

Attached.

[-- Attachment #2: desktop.hi-lock.diff --]
[-- Type: application/octet-stream, Size: 1413 bytes --]

Index: desktop.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/desktop.el,v
retrieving revision 1.133
diff -u -r1.133 desktop.el
--- desktop.el	22 Mar 2009 20:09:34 -0000	1.133
+++ desktop.el	12 May 2009 14:02:53 -0000
@@ -325,7 +325,8 @@
     tab-width
     indicate-buffer-boundaries
     indicate-empty-lines
-    show-trailing-whitespace)
+    show-trailing-whitespace
+    hi-lock-interactive-patterns)
   "List of local variables to save for each buffer.
 The variables are saved only when they really are local.  Conventional minor
 modes are restored automatically; they should not be listed here."
@@ -1200,7 +1201,13 @@
               ;; an entry of the form `symbol'
               (make-local-variable this)
               (makunbound this)))
-          (setq desktop-buffer-locals (cdr desktop-buffer-locals)))))))
+          (setq desktop-buffer-locals (cdr desktop-buffer-locals)))
+        ;; Hi-lock
+        (when (and (boundp 'hi-lock-interactive-patterns)
+                   hi-lock-interactive-patterns
+                   hi-lock-mode)
+          (font-lock-add-keywords nil hi-lock-interactive-patterns t)
+          (font-lock-fontify-buffer))))))
 
 ;; ----------------------------------------------------------------------------
 ;; Backward compatibility -- update parameters to 205 standards.