* riece-highlight.el: Make it an add-on.
authorueno <ueno>
Fri, 30 May 2003 02:07:41 +0000 (02:07 +0000)
committerueno <ueno>
Fri, 30 May 2003 02:07:41 +0000 (02:07 +0000)
(riece-highlight-insinuate): New function.
* riece.el: Don't require 'riece-highlight.
* riece-options.el (riece-addons): Turn on riece-highlight and
riece-ctcp by default.

lisp/ChangeLog
lisp/riece-highlight.el
lisp/riece-options.el
lisp/riece.el

index ee62fc8..9396a18 100644 (file)
@@ -1,5 +1,11 @@
 2003-05-30  Daiki Ueno  <ueno@unixuser.org>
 
+       * riece-highlight.el: Make it an add-on.
+       (riece-highlight-insinuate): New function.
+       * riece.el: Don't require 'riece-highlight.
+       * riece-options.el (riece-addons): Turn on riece-highlight and
+       riece-ctcp by default.
+
        * riece-display.el (riece-configure-windows-predicate): New function.
        (riece-configure-windows-predicate): New user option.
        (riece-redisplay-buffers): Use it.
index 9575ca8..466e3cb 100644 (file)
   :type '(repeat (list string))
   :group 'riece-highlight)
 
-(put 'riece-channel-mode 'font-lock-defaults
-     '(riece-highlight-font-lock-keywords t))
-(put 'riece-others-mode 'font-lock-defaults
-     '(riece-highlight-font-lock-keywords t))
-(put 'riece-dialogue-mode 'font-lock-defaults
-     '(riece-highlight-font-lock-keywords t))
-
 (defun riece-highlight-schedule-turn-on-font-lock ()
   (add-hook 'riece-channel-mode-hook
            'riece-highlight-turn-on-font-lock)
   (add-hook 'riece-dialogue-mode-hook
            'riece-highlight-turn-on-font-lock))
 
-(add-hook 'riece-after-load-startup-hook
-         'riece-highlight-schedule-turn-on-font-lock)
-
 (defvar font-lock-support-mode)
 (defun riece-highlight-turn-on-font-lock ()
   (make-local-variable 'font-lock-defaults)
     (if (looking-at riece-prefix-regexp)
        (put-text-property (match-beginning 1) (match-end 1) 'invisible t))))
 
+(defun riece-highlight-insinuate ()
+  (put 'riece-channel-mode 'font-lock-defaults
+       '(riece-highlight-font-lock-keywords t))
+  (put 'riece-others-mode 'font-lock-defaults
+       '(riece-highlight-font-lock-keywords t))
+  (put 'riece-dialogue-mode 'font-lock-defaults
+       '(riece-highlight-font-lock-keywords t))
+  (add-hook 'riece-after-load-startup-hook
+           'riece-highlight-schedule-turn-on-font-lock))
+
 (provide 'riece-highlight)
 
 ;;; riece-highlight.el ends here
index e4263fa..cafcc4d 100644 (file)
@@ -105,7 +105,7 @@ way is to put Riece variables on .emacs or file loaded from there."
   :type '(repeat (file :tag "Initialization File"))
   :group 'riece-options)
 
-(defcustom riece-addons nil
+(defcustom riece-addons '(riece-highlight riece-ctcp)
   "Add-ons insinuated into Riece."
   :type '(repeat symbol)
   :group 'riece-options)
index 75888f0..5236676 100644 (file)
@@ -31,7 +31,6 @@
   (require 'riece-emacs))
 
 (require 'riece-filter)
-(require 'riece-highlight)
 (require 'riece-display)
 (require 'riece-server)
 (require 'riece-compat)