554 |
|
|
555 |
(run-hooks 'rcirc-mode-hook)) |
(run-hooks 'rcirc-mode-hook)) |
556 |
|
|
557 |
|
(defmacro with-rcirc-process-buffer (process &rest body) |
558 |
|
(declare (indent 1) (debug t)) |
559 |
|
`(with-current-buffer (process-buffer ,process) |
560 |
|
,@body)) |
561 |
|
|
562 |
(defun rcirc-update-prompt () |
(defun rcirc-update-prompt () |
563 |
"Reset the prompt string in the current buffer." |
"Reset the prompt string in the current buffer." |
564 |
(let ((inhibit-read-only t) |
(let ((inhibit-read-only t) |
782 |
(with-current-buffer (process-buffer process) |
(with-current-buffer (process-buffer process) |
783 |
(setq rcirc-last-buffer buffer))) |
(setq rcirc-last-buffer buffer))) |
784 |
|
|
|
(defmacro with-rcirc-process-buffer (process &rest body) |
|
|
(declare (indent 1) (debug t)) |
|
|
`(with-current-buffer (process-buffer ,process) |
|
|
,@body)) |
|
|
|
|
785 |
(defun rcirc-format-response-string (process sender response target text) |
(defun rcirc-format-response-string (process sender response target text) |
786 |
(concat (when rcirc-time-format |
(concat (when rcirc-time-format |
787 |
(format-time-string rcirc-time-format (current-time))) |
(format-time-string rcirc-time-format (current-time))) |