mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-30 12:21:25 -08:00
Code Issues Projects Releases Wiki Activity

Fix electric paring in rcirc buffers

Browse source 
* rcirc.el (rcirc--electric-pair-inhibit): Add new predicate function.
(rcirc-mode): Use rcirc--electric-pair-inhibit.
This commit is contained in:
Philip Kaludercic 2022-07-31 12:45:29 +02:00
parent ca2d3ed74c
commit df8dede858
1 changed files with 18 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/net/rcirc.el
View file

@ -1388,6 +1388,21 @@ Each element looks like (FILENAME . TEXT).")
"The current number of responses printed in this channel.
This number is independent of the number of lines in the buffer.")
(defun rcirc--electric-pair-inhibit (char)
"Check whether CHAR should be paired by `electric-pair-mode'.
This uses the default value inhibition predicate (as set by
`electric-pair-inhibit-predicate'), but ignores all text prior to
the prompt so that mismatches parentheses by some other message
does not confuse the pairing."
(let ((fallback (default-value 'electric-pair-inhibit-predicate)))
;; The assumption is that this function is only bound by
;; `rcirc-mode', and should never be the global default.
(cl-assert (not (eq fallback #'rcirc--electric-pair-inhibit)))
(save-restriction
(widen)
(narrow-to-region rcirc-prompt-start-marker (point-max))
(funcall fallback char))))
(defun rcirc-mode (process target)
"Initialize an IRC buffer for writing with TARGET.
PROCESS is the process object used for communication.
@ -1459,6 +1474,9 @@ PROCESS is the process object used for communication.
(when rcirc-cycle-completion-flag
(setq-local completion-cycle-threshold t))
(setq-local electric-pair-inhibit-predicate
#'rcirc--electric-pair-inhibit)
(run-mode-hooks 'rcirc-mode-hook))
(defun rcirc-update-prompt (&optional all)