[nongnu] elpa/popon 8dc5dff3ac 1/3: Fix #3: Don't use cXXXr functions

[ELPA Syncer]

branch: elpa/popon
commit 8dc5dff3ac694fecdfb14bff6908ff4a3028554f
Author: Akib Azmain Turja <akib@disroot.org>
Commit: Akib Azmain Turja <akib@disroot.org>

    Fix #3: Don't use cXXXr functions
---
 popon.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/popon.el b/popon.el
index eb9718669e..c5ad63de31 100644
--- a/popon.el
+++ b/popon.el
@@ -381,7 +381,8 @@ START and END specifies which part to return.  They can be 
in any order."
                 (setq pair (list key nil nil))
                 (push pair line-map))
               (setf (cadr pair) (or (cadr pair) (nth 2 line)))
-              (push (cons (- i (nth 3 line)) (car line)) (caddr pair)))))
+              (push (cons (- i (nth 3 line)) (car line))
+                    (cadr (cdr pair))))))
         (setq i (1+ i))))
     (dolist (block line-map)
       (let ((ov (make-overlay (caar block) (cdar block))))
@@ -397,7 +398,7 @@ START and END specifies which part to return.  They can be 
in any order."
                                    (1- (caar block)) (caar block))
                                   "\n")))
              (setq text "\n"))
-           (dolist (line (sort (caddr block) #'car-less-than-car))
+           (dolist (line (sort (cadr (cdr block)) #'car-less-than-car))
              (setq text (concat text
                                 (make-string (- (car line)
                                                 current-offset)