* riece-history.el (riece-history-requires): New function.

[riece] / lisp / riece-history.el

diff --git a/lisp/riece-history.el b/lisp/riece-history.el
index 64ed6b9..ed3a057 100644 (file)
--- a/lisp/riece-history.el
+++ b/lisp/riece-history.el
@@ -35,10 +35,10 @@
 
 (require 'riece-options)
 (require 'riece-globals)
-(require 'riece-highlight)
 (require 'riece-identity)
 (require 'riece-signal)
 (require 'ring)
+(eval-when-compile (require 'riece-highlight))
 
 (defgroup riece-history nil
   "Manage history of channel shifting."
@@ -121,6 +121,10 @@
           (not (riece-identity-equal last riece-current-channel)))
       (ring-insert riece-channel-history last)))
 
+(defun riece-history-requires ()
+  (if (memq 'riece-highlight riece-addons)
+      '(riece-highlight)))
+
 (defun riece-history-insinuate ()
   (add-hook 'riece-after-switch-to-channel-functions
            'riece-history-after-switch-to-channel-functions)