[elpa] externals/realgud 4babac3 042/140: Track changes in elpa:

[Rocky Bernstein]

branch: externals/realgud
commit 4babac38fea7af83832694932637de23365206ab
Author: rocky <address@hidden>
Commit: rocky <address@hidden>

    Track changes in elpa:
    
    From Stephan Monnier:
    
    add-to-list -> cl-pushnew
    Reverse order of stack listing
    opt-buffer -> _opt-buffer  (it's not used so maybe it should disappear? )
---
 realgud/common/buffer/backtrace.el | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/realgud/common/buffer/backtrace.el 
b/realgud/common/buffer/backtrace.el
index 30f3a59..6644f03 100644
--- a/realgud/common/buffer/backtrace.el
+++ b/realgud/common/buffer/backtrace.el
@@ -209,7 +209,7 @@
     )
   )
 
-(defun realgud-backtrace-moveto-frame (num &optional opt-buffer)
+(defun realgud-backtrace-moveto-frame (num &optional _opt-buffer)
   (if (integerp num)
       (if (realgud-backtrace?)
          (let* ((ring (realgud-sget 'backtrace-info 'frame-ring))
@@ -427,7 +427,7 @@ filename, line number, whether the frame is selected as 
text properties."
                               (match-end frame-group-pat)))
              (setq frame-num (string-to-number frame-num-str))
              (setq frame-num-pos (match-beginning frame-group-pat))
-             (add-to-list 'frame-num-pos-list frame-num-pos t)
+             (cl-pushnew frame-num-pos frame-num-pos-list)
              (add-text-properties (match-beginning frame-group-pat)
                                   (match-end frame-group-pat)
                                   (list 'mouse-face 'highlight
@@ -442,7 +442,7 @@ filename, line number, whether the frame is selected as 
text properties."
                               (match-end 0)))
            (setq frame-num (cl-incf alt-frame-num))
            (setq frame-num-pos (match-beginning 0))
-           (add-to-list 'frame-num-pos-list frame-num-pos t)
+           (cl-pushnew frame-num-pos frame-num-pos-list)
            (add-text-properties (match-beginning 0) (match-end 0)
                                 (list 'mouse-face 'highlight
                                       'help-echo "mouse-2: goto this frame"
@@ -482,7 +482,7 @@ filename, line number, whether the frame is selected as 
text properties."
          (setq selected-frame-num frame-num))
        ))
 
-    (list string selected-frame-num frame-num-pos-list)
+    (list string selected-frame-num (nreverse frame-num-pos-list))
     )
   )