Mercurial > emacs
changeset 66252:684cec8133e3
(with-rcirc-process-buffer): Move above its first user.
| author | Romain Francoise <romain@orebokech.com> |
|---|---|
| date | Thu, 20 Oct 2005 18:28:20 +0000 |
| parents | b634f15a1cf9 |
| children | ea87e52cf6da |
| files | lisp/ChangeLog lisp/net/rcirc.el |
| diffstat | 2 files changed, 9 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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.
--- 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)))