comparison lisp/net/rcirc.el @ 66252:684cec8133e3

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

66251:b634f15a1cf9


(defun rcirc-version (&optional here)
  "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 $"))
    (if here
	(insert version)
      (if (interactive-p)
	  (message "%s" version)
	version))))

  (make-local-variable 'overlay-arrow-position)
  (setq overlay-arrow-position (make-marker))
  (set-marker overlay-arrow-position nil)

  (run-hooks 'rcirc-mode-hook))

(defun rcirc-update-prompt ()
  "Reset the prompt string in the current buffer."
  (let ((inhibit-read-only t)
        (prompt (or rcirc-prompt "")))

(defun rcirc-set-last-buffer (process buffer)
  "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
            (format-time-string rcirc-time-format (current-time)))
          (cond ((or (string= response "PRIVMSG")
                     (string= response "NOTICE")

66252:684cec8133e3


(defun rcirc-version (&optional here)
  "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)
	  (message "%s" version)
	version))))

  (make-local-variable 'overlay-arrow-position)
  (setq overlay-arrow-position (make-marker))
  (set-marker overlay-arrow-position nil)

  (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)
        (prompt (or rcirc-prompt "")))

(defun rcirc-set-last-buffer (process buffer)
  "Set the last working buffer for PROCESS to BUFFER."
  (with-current-buffer (process-buffer process)
    (setq rcirc-last-buffer buffer)))

(defun rcirc-format-response-string (process sender response target text)
  (concat (when rcirc-time-format
            (format-time-string rcirc-time-format (current-time)))
          (cond ((or (string= response "PRIVMSG")
                     (string= response "NOTICE")