bug#43847: ERC - prevent yanking multiple lines into IRC (feature request) *patch*

[Corwin Brust <corwin@bru.st>]

[-- Attachment #1: Type: text/plain, Size: 259 bytes --]

Goldarn.

On Wed, Oct 7, 2020 at 10:27 AM Noam Postavsky <npostavs@gmail.com> wrote:
>
> Corwin Brust <corwin@bru.st> writes:
>
> > All feedback gratefully received :)
>
> I think you may have forgotten to include the patch :)
>

Thanks so much Noam.

Corwin

[-- Attachment #2: erc-yank.patch --]
[-- Type: application/octet-stream, Size: 1237 bytes --]

diff -u "c:/emacs/share/emacs/27.1/lisp/erc/erc.el-27.1" "c:/emacs/share/emacs/27.1/lisp/erc/erc.el"
--- c:/emacs/share/emacs/27.1/lisp/erc/erc.el-27.1	2020-10-07 08:10:35.000000000 -0500
+++ c:/emacs/share/emacs/27.1/lisp/erc/erc.el	2020-10-07 08:19:36.205700600 -0500
@@ -1154,6 +1154,7 @@
     (define-key map "\C-m" 'erc-send-current-line)
     (define-key map "\C-a" 'erc-bol)
     (define-key map [home] 'erc-bol)
+    (define-key map "\C-y" 'erc-yank)
     (define-key map "\C-c\C-a" 'erc-bol)
     (define-key map "\C-c\C-b" 'erc-switch-to-buffer)
     (define-key map "\C-c\C-c" 'erc-toggle-interpret-controls)
@@ -4084,6 +4085,19 @@
         (setq erc-input-ring-index nil))
     (kill-line)))
 
+(defun erc-yank (&optional arg)
+  "Unfill then yank.  ARG is handled by `yank', which see."
+  (interactive)
+  (insert
+   (save-excursion
+     (with-temp-buffer
+       (yank arg)
+       (goto-char (point-min))
+       (let ((fill-column (point-max))
+	     (emacs-lisp-docstring-fill-column t))
+	 (fill-paragraph))
+       (buffer-string)))))
+
 (defun erc-complete-word-at-point ()
   (run-hook-with-args-until-success 'erc-complete-functions))
 

Diff finished.  Wed Oct  7 08:20:01 2020