[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[nongnu] elpa/popon 8dc5dff3ac 1/3: Fix #3: Don't use cXXXr functions
From: |
ELPA Syncer |
Subject: |
[nongnu] elpa/popon 8dc5dff3ac 1/3: Fix #3: Don't use cXXXr functions |
Date: |
Mon, 27 Jun 2022 09:58:50 -0400 (EDT) |
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)