(with-rcirc-process-buffer): Move above its first user.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4313a51de7be6540245f2e7c3ef477b8180a1ca5..7a7f9dfdddea084c0a7753378ff4d03a9126f39f 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -112,6 +112,9 @@
 
 2005-10-20  Romain Francoise  <romain@orebokech.com>
 
+       * net/rcirc.el (with-rcirc-process-buffer): Move above its first
+       user.
+
        * replace.el (occur-engine): Add follow-link property.
 
        * font-core.el (font-lock-mode): Doc fix.

diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 54013157b2d0a7aa43460cb286988d2b6e3da294..dded8956f590031966312eab93f640c4794055a9 100644 (file)
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -167,7 +167,7 @@ use `rcirc-update-prompt' after changing this variable.")
   "Return rcirc version string.
 If optional argument HERE is non-nil, insert string at point."
   (interactive "P")
-  (let ((version "rcirc.el 0.9 $Revision: 1.1 $"))
+  (let ((version "rcirc.el 0.9 $Revision: 1.2 $"))
     (if here
        (insert version)
       (if (interactive-p)
@@ -554,6 +554,11 @@ If buffer is nil, return the target of the current buffer."
 
   (run-hooks 'rcirc-mode-hook))
 
+(defmacro with-rcirc-process-buffer (process &rest body)
+  (declare (indent 1) (debug t))
+  `(with-current-buffer (process-buffer ,process)
+     ,@body))
+
 (defun rcirc-update-prompt ()
   "Reset the prompt string in the current buffer."
   (let ((inhibit-read-only t)
@@ -777,11 +782,6 @@ Used for displaying messages that don't have an explicit destination."
   (with-current-buffer (process-buffer process)
     (setq rcirc-last-buffer buffer)))
 
-(defmacro with-rcirc-process-buffer (process &rest body)
-  (declare (indent 1) (debug t))
-  `(with-current-buffer (process-buffer ,process)
-     ,@body))
-
 (defun rcirc-format-response-string (process sender response target text)
   (concat (when rcirc-time-format
             (format-time-string rcirc-time-format (current-time)))