[Emacs-diffs] Changes to emacs/lisp/net/rcirc.el

[Romain Francoise]

Index: emacs/lisp/net/rcirc.el
diff -c emacs/lisp/net/rcirc.el:1.2 emacs/lisp/net/rcirc.el:1.3
*** emacs/lisp/net/rcirc.el:1.2 Thu Oct 20 16:53:55 2005
--- emacs/lisp/net/rcirc.el     Thu Oct 20 18:28:18 2005
***************
*** 167,173 ****
    "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.2 $"))
      (if here
        (insert version)
        (if (interactive-p)
--- 167,173 ----
    "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.3 $"))
      (if here
        (insert version)
        (if (interactive-p)
***************
*** 554,559 ****
--- 554,564 ----
  
    (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)
***************
*** 776,786 ****
    "Set the last working buffer for PROCESS to BUFFER."
    (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
--- 781,786 ----