From e7f166024092087721269f7bdab9153fceec08ec Mon Sep 17 00:00:00 2001 From: "F. Jason Park" Date: Thu, 9 Nov 2023 10:37:49 -0800 Subject: [PATCH 5/6] [5.6] Don't output non-modules in erc-modes * lisp/erc/erc.el (erc-modes): Only list actual modules created via `define-erc-module. Also `quote' members of the resulting list. --- lisp/erc/erc.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/erc/erc.el b/lisp/erc/erc.el index be8e2d19b7f..00ee97b7e14 100644 --- a/lisp/erc/erc.el +++ b/lisp/erc/erc.el @@ -8135,8 +8135,9 @@ erc-modes (let (modes (case-fold-search nil)) (dolist (var (apropos-internal "^erc-.*mode$")) (when (and (boundp var) + (get var 'erc-module) (symbol-value var)) - (setq modes (cons (symbol-name var) + (setq modes (cons (concat "`" (symbol-name var) "'") modes)))) modes) ", "))) -- 2.41.0