[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] scratch/backtrace-mode c7288cc 08/16: Add link in backtrac
From: |
Gemini Lasswell |
Subject: |
[Emacs-diffs] scratch/backtrace-mode c7288cc 08/16: Add link in backtraces to position in buffer being evaluated (bug#14081) |
Date: |
Fri, 27 Jul 2018 15:25:59 -0400 (EDT) |
branch: scratch/backtrace-mode
commit c7288cc2897393a6ad20def68e0ddb13313fb818
Author: Gemini Lasswell <address@hidden>
Commit: Gemini Lasswell <address@hidden>
Add link in backtraces to position in buffer being evaluated (bug#14081)
* lisp/emacs-lisp/backtrace.el (backtrace-frame): Add buffer field.
(backtrace-get-frames): Set buffer field of frame.
(backtrace-buffer-pos): New button type.
(backtrace--pop-to-buffer-pos): New function.
(backtrace--print-func-and-args): Create a button for the buffer
position if it is set.
---
lisp/emacs-lisp/backtrace.el | 27 ++++++++++++++++++++++++---
1 file changed, 24 insertions(+), 3 deletions(-)
diff --git a/lisp/emacs-lisp/backtrace.el b/lisp/emacs-lisp/backtrace.el
index bec57f2..aac43fe 100644
--- a/lisp/emacs-lisp/backtrace.el
+++ b/lisp/emacs-lisp/backtrace.el
@@ -65,7 +65,7 @@ guaranteed."
(cl-defstruct
(backtrace-frame
(:constructor backtrace-make-frame))
- evald fun args flags locals pos)
+ evald fun args flags locals buffer pos)
(cl-defun backtrace-get-frames
(&optional base &key (constructor #'backtrace-make-frame))
@@ -102,9 +102,26 @@ frames before its nearest activation frame are discarded."
;; eval-region calls for the same buffer. That's not a very
;; useful case.
(with-current-buffer (pop eval-buffers)
+ (setf (backtrace-frame-buffer frame) (current-buffer))
(setf (backtrace-frame-pos frame) (point))))))
frames))
+;; Button definition for jumping to a buffer position.
+
+(define-button-type 'backtrace-buffer-pos
+ 'action #'backtrace--pop-to-buffer-pos
+ 'help-echo "mouse-2, RET: Show reading position")
+
+(defun backtrace--pop-to-buffer-pos (button)
+ "Pop to the buffer and position for the BUTTON at point."
+ (let* ((buffer (button-get button 'backtrace-buffer))
+ (pos (button-get button 'backtrace-pos)))
+ (if (buffer-live-p buffer)
+ (progn
+ (pop-to-buffer buffer)
+ (goto-char (max (point-min) (min (point-max) pos))))
+ (message "Buffer has been killed"))))
+
;; Font Locking support
(defconst backtrace--font-lock-keywords
@@ -685,8 +702,12 @@ Format it according to VIEW."
;; After any frame that uses eval-buffer, insert a comment that
;; states the buffer position it's reading at.
(when (backtrace-frame-pos frame)
- (insert (format " ; Reading at buffer position %d"
- (backtrace-frame-pos frame))))
+ (insert " ; Reading at ")
+ (let ((pos (point)))
+ (insert (format "buffer position %d" (backtrace-frame-pos frame)))
+ (make-button pos (point) :type 'backtrace-buffer-pos
+ 'backtrace-buffer (backtrace-frame-buffer frame)
+ 'backtrace-pos (backtrace-frame-pos frame))))
(insert "\n")
(put-text-property beg (point) 'backtrace-section 'func)))
- [Emacs-diffs] branch scratch/backtrace-mode created (now 6b4f622), Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode c7288cc 08/16: Add link in backtraces to position in buffer being evaluated (bug#14081),
Gemini Lasswell <=
- [Emacs-diffs] scratch/backtrace-mode 80d1c52 06/16: Add prefix argument to backtrace-toggle-print-circle, Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode b0e53a0 07/16: Add links in backtraces to functions written in C (bug#25393), Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode 9f7943a 02/16: Add methods for strings to cl-print, Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode 63af8c8 10/16: Change keybinding for backtrace-collapse from '=' to '-', Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode cf2dded 04/16: Always make buttons from function names in backtraces, Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode 31cc6ce 13/16: Add a menu for backtrace-mode, Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode 1d4502d 12/16: * lisp/emacs-lisp/debug.el (debugger-mode-map): Use easy-menu-define., Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode 5d7034a 15/16: Move 'backtrace' from subr.el to backtrace.el, Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode 6b4f622 16/16: Give two backtrace-mode commands better names, Gemini Lasswell, 2018/07/27
- [Emacs-diffs] scratch/backtrace-mode 1ff16de 05/16: Lazily print backtrace frame local variables, Gemini Lasswell, 2018/07/27