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

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

[elpa] master 2ea1709 24/56: Restor column location...


From: Rocky Bernstein
Subject: [elpa] master 2ea1709 24/56: Restor column location...
Date: Sat, 27 May 2017 05:02:32 -0400 (EDT)

branch: master
commit 2ea1709893cc96878da2854367e6ef40f9fac8b4
Author: rocky <address@hidden>
Commit: rocky <address@hidden>

    Restor column location...
    
    Add more flake8 log types
---
 realgud/common/fringe.el | 7 ++++---
 realgud/lang/python.el   | 2 +-
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/realgud/common/fringe.el b/realgud/common/fringe.el
index c50153b..042424a 100644
--- a/realgud/common/fringe.el
+++ b/realgud/common/fringe.el
@@ -131,7 +131,9 @@ for example to indicate a debugger position."
                ;; We need to ignore field boundaries, so we use
                ;; forward-line rather than beginning-of-line.
                (forward-line 0)
-               (set overlay-arrow (point-marker)))))))))
+               (setq overlay-arrow-position (point-marker))
+               (goto-char position)
+               )))))))
 
 (defun realgud-fringe-history-set (loc-hist &optional do-cmdbuf?)
   "Set arrows on the last positions we have stopped on."
@@ -158,8 +160,7 @@ for example to indicate a debugger position."
     (when loc1
       (realgud-fringe-set-arrow 'realgud-overlay-arrow1 mark1)
       (when (and do-cmdbuf? cmd-mark1)
-         (realgud-fringe-set-arrow 'realgud-overlay-arrow1 cmd-mark1)
-         (goto-char (marker-position cmd-mark1)))
+         (realgud-fringe-set-arrow 'realgud-overlay-arrow1 cmd-mark1))
       )
     ))
 
diff --git a/realgud/lang/python.el b/realgud/lang/python.el
index 8706e10..47b2c27 100644
--- a/realgud/lang/python.el
+++ b/realgud/lang/python.el
@@ -176,7 +176,7 @@ traceback) line."  )
 
 (defconst realgud-flake8-msg-loc-pat
   (make-realgud-loc-pat
-   :regexp "^\\(.*\\):\\([0-9]+\\):\\([0-9]+\\): [EFW]\\([0-9]+\\) "
+   :regexp "^\\(.*\\):\\([0-9]+\\):\\([0-9]+\\): [EFWCN]\\([0-9]+\\) "
    :file-group 1
    :line-group 2
    :column-group 3



reply via email to

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