Function: erc-unfill-notice

erc-unfill-notice is a byte-compiled function defined in erc-imenu.el.gz.

Signature

(erc-unfill-notice)

Documentation

Return text from point to a computed end as a string unfilled.

Don't rely on this function, read it first!

Source Code

;; Defined in /usr/src/emacs/lisp/erc/erc-imenu.el.gz
(defun erc-unfill-notice ()
  "Return text from point to a computed end as a string unfilled.
Don't rely on this function, read it first!"
  (let ((str (buffer-substring
	      (save-excursion
		(re-search-forward (regexp-quote erc-notice-prefix)))
	      (progn
		(while (save-excursion
			 (forward-line 1)
			 (looking-at "    "))
		  (forward-line 1))
		(end-of-line) (point))))
	(inhibit-read-only t))
    (with-temp-buffer
      (insert str)
      (goto-char (point-min))
      (while (re-search-forward "\n +" nil t)
	(replace-match " "))
      (buffer-substring (point-min) (point-max)))))