* riece-display.el (riece-update-user-list-buffer): Rename from

riece-user-list-update-buffer.
(riece-update-channel-list-buffer): Rename from
riece-channel-list-update-buffer.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 50288a4..b7cde81 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,12 @@
 2003-06-03  Daiki Ueno  <ueno@unixuser.org>
 
+       * riece-display.el (riece-update-user-list-buffer): Rename from
+       riece-user-list-update-buffer.
+       (riece-update-channel-list-buffer): Rename from
+       riece-channel-list-update-buffer.
+
+2003-06-03  Daiki Ueno  <ueno@unixuser.org>
+
        * riece-identity.el (riece-identity-canonicalize-prefix): Moved
        from riece-inlines.el; renamed from scandinavian-downcase.
        (riece-identity-equal-no-server): Moved from riece-inlines.el;

diff --git a/lisp/riece-display.el b/lisp/riece-display.el
index 021ab0a..be46a46 100644 (file)
--- a/lisp/riece-display.el
+++ b/lisp/riece-display.el
@@ -29,8 +29,8 @@
 (require 'riece-misc)
 
 (defvar riece-update-buffer-functions
-  '(riece-user-list-update-buffer
-    riece-channel-list-update-buffer
+  '(riece-update-user-list-buffer
+    riece-update-channel-list-buffer
     riece-update-status-indicators
     riece-update-channel-indicator
     riece-update-channel-list-indicator))
@@ -109,7 +109,7 @@
          (set-window-start (get-buffer-window riece-channel-list-buffer)
                            (point-min))))))
 
-(defun riece-user-list-update-buffer ()
+(defun riece-update-user-list-buffer ()
   (if (and riece-user-list-buffer
           (get-buffer riece-user-list-buffer))
       (save-excursion
@@ -130,7 +130,7 @@
                  (insert " " (car users) "\n")))
              (setq users (cdr users))))))))
 
-(defun riece-channel-list-update-buffer ()
+(defun riece-update-channel-list-buffer ()
   (if (and riece-channel-list-buffer
           (get-buffer riece-channel-list-buffer))
       (save-excursion