* riece-highlight.el (riece-highlight-uninstall): Use
authorDaiki Ueno <ueno@unixuser.org>
Sat, 27 Aug 2005 07:02:53 +0000 (07:02 +0000)
committerDaiki Ueno <ueno@unixuser.org>
Sat, 27 Aug 2005 07:02:53 +0000 (07:02 +0000)
riece-remprop instead of remprop.

* riece-addon.el (riece-uninstall-addon): Use riece-remprop
instead of remprop.

* riece-xemacs.el (riece-remprop): New alias.
* riece-emacs.el (riece-remprop): New function.

* COMPILE (riece-compile-modules): Add current directory to load-path.

* riece-history.el (riece-history-requires): New function.
* riece-addon.el (riece-insinuate-addon-1): Require add-on feature.

lisp/COMPILE
lisp/ChangeLog
lisp/riece-addon.el
lisp/riece-async.el
lisp/riece-emacs.el
lisp/riece-highlight.el
lisp/riece-xemacs.el

index 1576401..051a7d9 100644 (file)
@@ -62,7 +62,8 @@
     "aproxy.rb"))
 
 (defun riece-compile-modules (modules)
-  (let (error-modules)
+  (let ((load-path (cons nil load-path))
+       error-modules)
     (while modules
       (let ((source (expand-file-name
                     (concat (symbol-name (car modules)) ".el"))))
index f270506..2b34cf0 100644 (file)
@@ -1,5 +1,16 @@
 2005-08-27  Daiki Ueno  <ueno@unixuser.org>
 
+       * riece-highlight.el (riece-highlight-uninstall): Use
+       riece-remprop instead of remprop.
+
+       * riece-addon.el (riece-uninstall-addon): Use riece-remprop
+       instead of remprop.
+
+       * riece-xemacs.el (riece-remprop): New alias.
+       * riece-emacs.el (riece-remprop): New function.
+
+       * COMPILE (riece-compile-modules): Add current directory to load-path.
+
        * riece-history.el (riece-history-requires): New function.
        * riece-addon.el (riece-insinuate-addon-1): Require add-on feature.
 
index 1b1288f..9421ff2 100644 (file)
                (funcall uninstall))
            (setq riece-addon-dependencies
                  (delq entry riece-addon-dependencies))
-           (remprop addon 'riece-addon-insinuated)
+           (riece-remprop addon 'riece-addon-insinuated)
            (setq riece-addons (delq addon riece-addons)
                  riece-save-variables-are-dirty t
                  riece-addon-dependencies
index 6841a0c..b234b58 100644 (file)
@@ -37,6 +37,7 @@
 ;;; Code:
 
 (require 'riece-options)
+(require 'riece-ruby)                  ;riece-ruby-command
 
 (defgroup riece-async nil
   "Connect to IRC server via async proxy."
index 7477633..2caf85a 100644 (file)
@@ -135,6 +135,16 @@ If N is nil, all messages will be returned."
            (reverse-region (point-min) (point-max))
            (buffer-string))))))
 
+(defun riece-remprop (symbol property)
+  (let ((plist (symbol-plist symbol)))
+    (if (eq (car plist) property)
+       (setplist symbol (cdr (cdr plist)))
+      (while (and (nthcdr 2 plist)
+                 (eq (car (nthcdr 2 plist)) property))
+       (setq plist (nthcdr 2 plist)))
+      (if (nthcdr 2 plist)
+         (setcdr (cdr plist) (nthcdr 4 plist))))))
+
 (provide 'riece-emacs)
 
 ;;; riece-emacs.el ends here
index 1164918..a0bc93c 100644 (file)
            (remove-hook 'after-change-functions
                         'riece-highlight-hide-prefix t))
        (setq buffers (cdr buffers)))))
-  (remprop 'riece-channel-mode 'font-lock-defaults)
-  (remprop 'riece-others-mode 'font-lock-defaults)
-  (remprop 'riece-dialogue-mode 'font-lock-defaults)
+  (riece-remprop 'riece-channel-mode 'font-lock-defaults)
+  (riece-remprop 'riece-others-mode 'font-lock-defaults)
+  (riece-remprop 'riece-dialogue-mode 'font-lock-defaults)
   (remove-hook 'riece-dialogue-mode-hook
               'riece-highlight-setup-dialogue)
-  (remprop 'riece-channel-list-mode 'font-lock-defaults)
+  (riece-remprop 'riece-channel-list-mode 'font-lock-defaults)
   (remove-hook 'riece-channel-list-mode-hook
               'riece-highlight-setup-channel-list)
   (remove-hook 'riece-format-identity-for-channel-list-indicator-functions
index 70735ac..b50d265 100644 (file)
@@ -137,6 +137,8 @@ If N is nil, all messages will be returned."
   (with-output-to-string
     (print-recent-messages n)))
 
+(defalias 'riece-remprop 'remprop)
+
 (provide 'riece-xemacs)
 
 ;;; riece-xemacs.el ends here