From: Romain Francoise <romain@orebokech.com>
Date: Thu, 20 Oct 2005 18:28:20 +0000 (+0000)
Subject: (with-rcirc-process-buffer): Move above its first user.
X-Git-Tag: emacs-pretest-22.0.90~6458
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=c18a54de65c1736093aeceaceb3cc5f91ec141dd;p=emacs.git

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

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4313a51de7b..7a7f9dfddde 100644
--- 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 54013157b2d..dded8956f59 100644
--- 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)))