* riece-history.el (riece-history-requires): New function.
authorueno <ueno>
Sat, 27 Aug 2005 04:22:40 +0000 (04:22 +0000)
committerueno <ueno>
Sat, 27 Aug 2005 04:22:40 +0000 (04:22 +0000)
* riece-addon.el (riece-insinuate-addon-1): Require add-on feature.

lisp/ChangeLog
lisp/riece-addon.el
lisp/riece-history.el
lisp/riece-xface.el

index 8d158db..f270506 100644 (file)
@@ -1,5 +1,10 @@
 2005-08-27  Daiki Ueno  <ueno@unixuser.org>
 
+       * riece-history.el (riece-history-requires): New function.
+       * riece-addon.el (riece-insinuate-addon-1): Require add-on feature.
+
+2005-08-27  Daiki Ueno  <ueno@unixuser.org>
+
        * riece-foolproof.el (riece-foolproof-description): Made it more
        descriptive.
 
index e2a6f21..a2a6bc3 100644 (file)
   (if (get addon 'riece-addon-insinuated)
       (if verbose
          (message "Add-on %S is already insinuated" addon))
+    (require addon)
     (funcall (intern (concat (symbol-name addon) "-insinuate")))
     (put addon 'riece-addon-insinuated t)
     (if verbose
@@ -310,7 +311,6 @@ All normal editing commands are turned off."
        module-description-alist
        description enabled point)
     (while pointer
-      
       (setq description (intern-soft (concat (symbol-name (car (car pointer)))
                                             "-description"))
            module-description-alist
index 64ed6b9..ed3a057 100644 (file)
 
 (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."
           (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)
index 30f7bb4..b94b006 100644 (file)
@@ -31,7 +31,7 @@
 (require 'riece-identity)
 (require 'riece-globals)
 (require 'riece-display)
-(require 'riece-lsdb)
+(eval-when-compile (require 'riece-lsdb))
 
 (defvar riece-xface-enabled nil)