592 |
;; ": try \"cmds\"")) |
;; ": try \"cmds\"")) |
593 |
;; (concat "no access to command \"" cmd |
;; (concat "no access to command \"" cmd |
594 |
;; "\" for " from "."))))) |
;; "\" for " from "."))))) |
|
(when (and reply |
|
|
(not (erbot-safep reply))) |
|
|
(setq reply (concat " " reply))) |
|
595 |
(erc-log reply) |
(erc-log reply) |
596 |
|
|
597 |
|
|
614 |
) |
) |
615 |
|
|
616 |
(let* ((inhibit-read-only t) |
(let* ((inhibit-read-only t) |
617 |
(lines (split-string reply "\n")) |
(lines (split-string reply "[\n\r]+")) |
618 |
(multiline-p (< 1 (length lines))) |
(multiline-p (< 1 (length lines))) |
619 |
p) |
p) |
620 |
(mapc |
(mapc |
621 |
(lambda (line) |
(lambda (line) |
622 |
|
(when (and line |
623 |
|
(not (erbot-safep line))) |
624 |
|
(setq line (concat " " line))) |
625 |
(goto-char (point-max)) |
(goto-char (point-max)) |
626 |
(setq p (re-search-backward (erc-prompt))) |
(setq p (re-search-backward (erc-prompt))) |
627 |
;;(insert (erc-format-timestamp) "<" me "> ") |
;;(insert (erc-format-timestamp) "<" me "> ") |