procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

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

Browse source
This commit is contained in:
Romain Francoise 2005-10-20 18:28:20 +00:00
parent 10625c3cc9
commit c18a54de65
2 changed files with 9 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/ChangeLog
View file

@ -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.

12
lisp/net/rcirc.el
View file

@ -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)))