Function: erc-display-msg

erc-display-msg is a byte-compiled function defined in erc.el.gz.

Signature

(erc-display-msg LINE)

Documentation

Display LINE as a message of the user to the current target at point.

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc.el.gz
;; (defun erc-display-command (line)
;;   (when erc-insert-this
;;     (let ((insert-position (point)))
;;       (unless erc-hide-prompt
;;         (erc-display-prompt nil nil (erc-command-indicator)
;;                             (and (erc-command-indicator)
;;                                  'erc-command-indicator-face)))
;;       (let ((beg (point)))
;;         (insert line)
;;         (erc-put-text-property beg (point)
;;                                'font-lock-face 'erc-command-indicator-face)
;;         (insert "\n"))
;;       (when (processp erc-server-process)
;;         (set-marker (process-mark erc-server-process) (point)))
;;       (set-marker erc-insert-marker (point))
;;       (save-excursion
;;         (save-restriction
;;           (narrow-to-region insert-position (point))
;;           (run-hooks 'erc-send-modify-hook)
;;           (run-hooks 'erc-send-post-hook))))))

(defun erc-display-msg (line)
  "Display LINE as a message of the user to the current target at point."
  (when erc-insert-this
    (let ((insert-position (point)))
      (insert (erc-format-my-nick))
      (let ((beg (point)))
        (insert line)
        (erc-put-text-property beg (point)
                               'font-lock-face 'erc-input-face))
      (insert "\n")
      (when (processp erc-server-process)
        (set-marker (process-mark erc-server-process) (point)))
      (set-marker erc-insert-marker (point))
      (save-excursion
        (save-restriction
          (narrow-to-region insert-position (point))
          (run-hooks 'erc-send-modify-hook)
          (run-hooks 'erc-send-post-hook))))))