mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 18:40:39 -08:00
Code Issues Projects Releases Wiki Activity

Remove rcirc-omit-responses-after-join option

Browse source 
The implementation does not work as expected and behaves
unpredictably.

* rcirc.el (rcirc-omit-responses-after-join): Remove option
(rcirc-joined): Remove variable
(rcirc-reconnect): Remove rcirc-joined code
(rcirc-get-buffer-create): Remove rcirc-joined code
(rcirc-print): Remove rcirc-omit-responses-after-join check
* doc/misc/rcirc.texi (Notices): Remove documentation
* etc/NEWS: Remove mention
This commit is contained in:
Philip Kaludercic 2021-09-29 12:15:18 +02:00
parent f11f358213
commit 1a0f4b3f23
3 changed files with 3 additions and 34 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lisp/net/rcirc.el
View file

@ -195,16 +195,6 @@ If nil, no maximum is applied."
"Responses which will be hidden when `rcirc-omit-mode' is enabled."
:type '(repeat string))
(defcustom rcirc-omit-responses-after-join '()
"Types of messages to hide right after joining a channel."
:type '(repeat string)
:version "28.1")
(defvar-local rcirc-joined nil
"Non-nil means we have just connected.
This is used to hide the message types enumerated in
`rcirc-omit-responses-after-join'.")
(defvar-local rcirc-prompt-start-marker nil
"Marker indicating the beginning of the message prompt.")
@ -841,8 +831,7 @@ If QUIET is non-nil, no not emit a message."
(dolist (buffer (mapcar #'cdr rcirc-buffer-alist))
(when (buffer-live-p buffer)
(with-current-buffer buffer
(setq rcirc-joined (current-time)
mode-line-process ":connecting"))))
(setq mode-line-process ":connecting"))))
(let ((nprocess (apply #'rcirc-connect conn-info)))
(when (and (< rcirc-failed-attempts rcirc-reconnect-attempts)
(eq (process-status nprocess) 'failed))
@ -1568,8 +1557,7 @@ Create the buffer if it doesn't exist."
(with-current-buffer new-buffer
(unless (eq major-mode 'rcirc-mode)
(rcirc-mode process target))
(setq mode-line-process nil)
(setq rcirc-joined (current-time)))
(setq mode-line-process nil))
(rcirc-put-nick-channel process (rcirc-nick process) target
rcirc-current-line)
new-buffer)))))
@ -1970,10 +1958,7 @@ connection."
;; make text omittable
(let ((last-activity-lines (rcirc-elapsed-lines process sender target)))
(if (and (not (string= (rcirc-nick process) sender))
(or (member response rcirc-omit-responses)
(and (member response rcirc-omit-responses-after-join)
(< (time-to-seconds (time-since rcirc-joined))
1)))
(member response rcirc-omit-responses)
(or (not last-activity-lines)
(< rcirc-omit-threshold last-activity-lines)))
(put-text-property (point-min) (point-max)