* [pushed] Add full display feature to dwarf-mode.el
@ 2023-02-09 20:50 Tom Tromey
0 siblings, 0 replies; only message in thread
From: Tom Tromey @ 2023-02-09 20:50 UTC (permalink / raw)
To: binutils; +Cc: Tom Tromey
I've found that I often use dwarf-mode with relatively small test
files. In this situation, it's handy to be able to expand all the
DWARF, rather than moving to each "..." separately and using C-u C-m.
This patch implements this feature. It also makes a couple of other
minor changes:
* I removed a stale FIXME from dwarf-mode. In practice I find I often
use "g" to restore the buffer to a pristine state; checking the file
mtime would work against this.
* I tightened the regexp in dwarf-insert-substructure. This prevents
the C-m binding from trying to re-read a DIE which has already been
expanded.
* Finally, I've bumped the dwarf-mode version number so that this
version can easily be installed using package.el.
2023-02-09 Tom Tromey <tromey@adacore.com>
* dwarf-mode.el: Bump version to 1.8.
(dwarf-insert-substructure): Tighten regexp.
(dwarf-refresh-all): New defun.
(dwarf-mode-map): Bind "A" to dwarf-refresh-all.
(dwarf-mode): Remove old FIXME.
---
binutils/ChangeLog | 8 ++++++++
binutils/dwarf-mode.el | 17 ++++++++++++++---
2 files changed, 22 insertions(+), 3 deletions(-)
diff --git a/binutils/dwarf-mode.el b/binutils/dwarf-mode.el
index 82f6753b1e5..3ab2e188478 100644
--- a/binutils/dwarf-mode.el
+++ b/binutils/dwarf-mode.el
@@ -1,6 +1,6 @@
;;; dwarf-mode.el --- Browser for DWARF information. -*-lexical-binding:t-*-
-;; Version: 1.7
+;; Version: 1.8
;; Copyright (C) 2012-2023 Free Software Foundation, Inc.
@@ -111,7 +111,7 @@ By default, expands just one level of children.
A prefix argument means expand all children."
(interactive "P")
(beginning-of-line)
- (unless (looking-at "^ <\\([0-9]+\\)><\\([0-9a-f]+\\)>")
+ (unless (looking-at "^ <\\([0-9]+\\)><\\([0-9a-f]+\\)>: \\.\\.\\.")
(error "Unrecognized line."))
(let ((die (match-string 2)))
(if arg
@@ -185,6 +185,17 @@ A prefix argument means expand all children."
(expand-file-name dwarf-file))
(set-buffer-modified-p nil)))
+(defun dwarf-refresh-all ()
+ "Refresh the current buffer without eliding substructure.
+Note that this can result in very voluminous output."
+ (interactive)
+ (dwarf--check-running)
+ (let ((inhibit-read-only t))
+ (dwarf--invoke (point-min) (point-max)
+ dwarf-objdump-program "-Wi"
+ (expand-file-name dwarf-file))
+ (set-buffer-modified-p nil)))
+
(defvar dwarf-mode-syntax-table
(let ((table (make-syntax-table)))
;; This at least makes it so mark-sexp on some hex digits inside
@@ -198,6 +209,7 @@ A prefix argument means expand all children."
(let ((map (make-sparse-keymap)))
(set-keymap-parent map special-mode-map)
(define-key map [(control ?m)] #'dwarf-insert-substructure)
+ (define-key map "A" #'dwarf-refresh-all)
map)
"Keymap for dwarf-mode buffers.")
@@ -207,7 +219,6 @@ A prefix argument means expand all children."
\\{dwarf-mode-map}"
(set (make-local-variable 'font-lock-defaults) '(dwarf-font-lock-keywords))
- ;; FIXME: we could be smarter and check the file time.
(set (make-local-variable 'revert-buffer-function) #'dwarf-do-refresh)
(jit-lock-register #'dwarf-fontify-region))
--
2.39.1
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2023-02-09 20:50 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2023-02-09 20:50 [pushed] Add full display feature to dwarf-mode.el Tom Tromey
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).