From 33f79d5354ce397f2f8d2d6299941c13fdd05fab Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Tue, 23 Apr 2013 15:47:14 +0100 Subject: [PATCH] avoid using cl primitives use nth where possible, multiple cars where not --- iplayer.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/iplayer.el b/iplayer.el index 5b5b5c4..8e88352 100644 --- a/iplayer.el +++ b/iplayer.el @@ -36,11 +36,11 @@ (setq iplayer-updating-cache-process nil iplayer-updating-cache-sentinel-info nil) (dolist (info info) - (let ((iplayer-command-frame (car info)) - (iplayer-command-window (cadr info)) - (iplayer-command-buffer (caddr info)) - (keys (car (cdddr info))) - (function (cadr (cdddr info)))) + (let ((iplayer-command-frame (nth 0 info)) + (iplayer-command-window (nth 1 info)) + (iplayer-command-buffer (nth 2 info)) + (keys (nth 3 info)) + (function (nth 4 info))) (when (and (frame-live-p iplayer-command-frame) (window-live-p iplayer-command-window) (buffer-live-p iplayer-command-buffer)) @@ -80,7 +80,7 @@ (let (docstring interactive) (when (stringp (car body)) (setq docstring (car body) body (cdr body))) - (when (and (consp (car body)) (eql (caar body) 'interactive)) + (when (and (consp (car body)) (eql (car (car body)) 'interactive)) (setq interactive (car body) body (cdr body))) `(defun ,name ,arglist ,@(when docstring (list docstring)) -- 2.39.5