From 190ea9cd3eee8910285005cdd54352238af9a558 Mon Sep 17 00:00:00 2001 From: Philip Kaludercic Date: Wed, 28 Jul 2021 10:31:57 +0200 Subject: [PATCH] Replace cl-c[ad]+r with regular c[ad]+r * rcirc.el (rcirc-make-trees): Replace cl-cdadr with cdadr (rcirc-handler-333): Replace cl-cadddr with cadddr (rcirc-authenticate): Replace cl-cdddr with cdddr --- lisp/net/rcirc.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index b850ac00648..629b51d7c35 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -2405,7 +2405,7 @@ prefix with another element in PAIRS." (when (and (listp x) (listp (cadr x))) (setcdr x (if (> (length (cdr x)) 1) (rcirc-make-trees (cdr x)) - (setcdr x (list (cl-cdadr x))))))) + (setcdr x (list (cdadr x))))))) alist))) ;;; /commands these are called with 3 args: PROCESS, TARGET, which is @@ -3234,7 +3234,7 @@ RFC1459." (with-current-buffer buffer (let ((setter (nth 2 args)) (time (current-time-string - (string-to-number (cl-cadddr args))))) + (string-to-number (cadddr args))))) (rcirc-print process sender "TOPIC" (cadr args) (format "%s (%s on %s)" rcirc-topic setter time)))))) @@ -3344,7 +3344,7 @@ Passwords are stored in `rcirc-authinfo' (which see)." (server (car i)) (nick (nth 2 i)) (method (cadr i)) - (args (cl-cdddr i))) + (args (cdddr i))) (when (and (string-match server rcirc-server)) (if (and (memq method '(nickserv chanserv bitlbee)) (string-match nick rcirc-nick)) -- 2.39.5