# HG changeset patch
# User Romain Francoise <romain@orebokech.com>
# Date 1129832900 0
# Node ID 684cec8133e3010a757cc7467b7dd4e279508f40
# Parent  b634f15a1cf9a7c2122280f09589fd4b9ef34649
(with-rcirc-process-buffer): Move above its first user.

diff -r b634f15a1cf9 -r 684cec8133e3 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Oct 20 16:59:04 2005 +0000
+++ b/lisp/ChangeLog	Thu Oct 20 18:28:20 2005 +0000
@@ -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 -r b634f15a1cf9 -r 684cec8133e3 lisp/net/rcirc.el
--- a/lisp/net/rcirc.el	Thu Oct 20 16:59:04 2005 +0000
+++ b/lisp/net/rcirc.el	Thu Oct 20 18:28:20 2005 +0000
@@ -167,7 +167,7 @@
   "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 @@
 
   (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 @@
   (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)))