emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

feature/rcirc-update 190ea9c: Replace cl-c[ad]+r with regular c[ad]+r


From: Philip Kaludercic
Subject: feature/rcirc-update 190ea9c: Replace cl-c[ad]+r with regular c[ad]+r
Date: Wed, 28 Jul 2021 04:32:05 -0400 (EDT)

branch: feature/rcirc-update
commit 190ea9cd3eee8910285005cdd54352238af9a558
Author: Philip Kaludercic <philipk@posteo.net>
Commit: Philip Kaludercic <philipk@posteo.net>

    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 b850ac0..629b51d 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))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]