emacs-elpa-diffs
[Top][All Lists]
Advanced

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

[elpa] externals/realgud 7242eea 048/140: whitespace


From: Rocky Bernstein
Subject: [elpa] externals/realgud 7242eea 048/140: whitespace
Date: Sat, 25 May 2019 19:35:30 -0400 (EDT)

branch: externals/realgud
commit 7242eea610cf2af85adecf8b59677e06931554ea
Author: Jacob O'Donnell <address@hidden>
Commit: Jacob O'Donnell <address@hidden>

    whitespace
---
 realgud/common/track.el | 62 ++++++++++++++++++++++++-------------------------
 1 file changed, 31 insertions(+), 31 deletions(-)

diff --git a/realgud/common/track.el b/realgud/common/track.el
index 164edc4..281cd4d 100644
--- a/realgud/common/track.el
+++ b/realgud/common/track.el
@@ -231,38 +231,38 @@ evaluating (realgud-cmdbuf-info-loc-regexp 
realgud-cmdbuf-info)"
 
       (if (not (equal "" text))
           (with-current-buffer cmdbuf
-             (if (realgud-sget 'cmdbuf-info 'divert-output?)
-                 (realgud-track-divert-prompt text cmdbuf to))
-              ;; FIXME: instead of these fixed filters,
-             ;; put into a list and iterate over that.
-             (realgud-track-termination? text)
-             (setq text-sans-loc (or (realgud-track-loc-remaining text) text))
-             (realgud-track-bp-enable-disable text-sans-loc
-                                              (realgud-cmdbuf-pat 
"brkpt-enable")
-                                              't)
-             (realgud-track-bp-enable-disable text-sans-loc
-                                              (realgud-cmdbuf-pat 
"brkpt-disable")
-                                              nil)
-             (setq frame-num (realgud-track-selected-frame text))
-             (if (and frame-num (not loc))
-                 (setq loc (realgud-track-loc-from-selected-frame
-                            text cmd-mark)))
-
-              (realgud:track-add-breakpoint (realgud-track-bp-loc 
text-sans-loc cmd-mark cmdbuf) cmdbuf)
-
-             (if loc
-                 (let ((selected-frame
-                        (or (not frame-num)
-                            (eq frame-num (realgud-cmdbuf-pat 
"top-frame-num")))))
-                   (realgud-track-loc-action loc cmdbuf (not selected-frame)
-                                              shortkey-on-tracing?)
-                   (realgud-cmdbuf-info-in-debugger?= 't)
-                    (realgud-cmdbuf-mode-line-update))
-                (realgud:track-remove-breakpoints
-                 (realgud-track-bp-delete text-sans-loc cmd-mark cmdbuf)))
-              )
-          )
+            (if (realgud-sget 'cmdbuf-info 'divert-output?)
+                (realgud-track-divert-prompt text cmdbuf to))
+            ;; FIXME: instead of these fixed filters,
+            ;; put into a list and iterate over that.
+            (realgud-track-termination? text)
+            (setq text-sans-loc (or (realgud-track-loc-remaining text) text))
+            (realgud-track-bp-enable-disable text-sans-loc
+                                             (realgud-cmdbuf-pat 
"brkpt-enable")
+                                             't)
+            (realgud-track-bp-enable-disable text-sans-loc
+                                             (realgud-cmdbuf-pat 
"brkpt-disable")
+                                             nil)
+            (setq frame-num (realgud-track-selected-frame text))
+            (if (and frame-num (not loc))
+                (setq loc (realgud-track-loc-from-selected-frame
+                           text cmd-mark)))
+
+            (realgud:track-add-breakpoint (realgud-track-bp-loc text-sans-loc 
cmd-mark cmdbuf) cmdbuf)
+
+            (if loc
+                (let ((selected-frame
+                       (or (not frame-num)
+                           (eq frame-num (realgud-cmdbuf-pat 
"top-frame-num")))))
+                  (realgud-track-loc-action loc cmdbuf (not selected-frame)
+                                            shortkey-on-tracing?)
+                  (realgud-cmdbuf-info-in-debugger?= 't)
+                  (realgud-cmdbuf-mode-line-update))
+              (realgud:track-remove-breakpoints
+               (realgud-track-bp-delete text-sans-loc cmd-mark cmdbuf)))
+            )
         )
+      )
     )
   )
 



reply via email to

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