Function: rcirc-edit-multiline

rcirc-edit-multiline is an interactive and byte-compiled function defined in rcirc.el.gz.

Signature

(rcirc-edit-multiline)

Documentation

Move current edit to a dedicated buffer.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/net/rcirc.el.gz
(defun rcirc-edit-multiline ()
  "Move current edit to a dedicated buffer."
  (interactive)
  (let ((pos (1+ (- (point) rcirc-prompt-end-marker))))
    (goto-char (point-max))
    (let ((text (buffer-substring-no-properties rcirc-prompt-end-marker
                                                (point)))
          (parent (buffer-name)))
      (delete-region rcirc-prompt-end-marker (point))
      (setq rcirc-window-configuration (current-window-configuration))
      (pop-to-buffer (concat "*multiline " parent "*"))
      (funcall rcirc-multiline-major-mode)
      (rcirc-multiline-minor-mode 1)
      (setq rcirc-parent-buffer parent)
      (insert text)
      (and (> pos 0) (goto-char pos))
      (message "Type %s to return text to %s, or %s to cancel"
               (substitute-command-keys "\\[rcirc-multiline-minor-submit]")
               parent
               (substitute-command-keys "\\[rcirc-multiline-minor-cancel]")))))