diff options
author | Stefan Kangas <stefan@marxist.se> | 2021-10-12 02:35:23 +0200 |
---|---|---|
committer | Stefan Kangas <stefan@marxist.se> | 2021-10-12 02:41:35 +0200 |
commit | cd5b63807b6558ae0c4a05dc322601282a8312c2 (patch) | |
tree | 82db86a1548e321a061b02f5e0e244538eb06dee /lisp/erc/erc-dcc.el | |
parent | 8436243ac62a12b732e9c8cb54bb3c1d6efc9c25 (diff) | |
download | emacs-cd5b63807b6558ae0c4a05dc322601282a8312c2.tar.gz |
Remove last XEmacs compat code from ERC
* lisp/erc/erc-dcc.el (erc-dcc-member): Remove XEmacs compat code.
* lisp/erc/erc-goodies.el (erc-move-to-prompt-setup): Doc fix;
remove spurious reference to XEmacs; this is needed also for
Emacs.
Diffstat (limited to 'lisp/erc/erc-dcc.el')
-rw-r--r-- | lisp/erc/erc-dcc.el | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/lisp/erc/erc-dcc.el b/lisp/erc/erc-dcc.el index db278a1275c..52b0b9586d5 100644 --- a/lisp/erc/erc-dcc.el +++ b/lisp/erc/erc-dcc.el @@ -183,9 +183,7 @@ compared with `erc-nick-equal-p' which is IRC case-insensitive." (let ((prop (car prem)) (val (cadr prem))) (setq prem (cddr prem) - ;; plist-member is a predicate in xemacs - test (and (plist-member elt prop) - (plist-get elt prop))) + test (cadr (plist-member elt prop))) ;; if the property exists and is equal, we continue, else, try the ;; next element of the list (or (and (eq prop :nick) (if (>= emacs-major-version 28) |