From 1021d1cb1214771711c61117ba0923c73a3ff431 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Sun, 24 Jun 2018 21:25:44 -0600 Subject: [PATCH] Add a syntax table to dwarf-mode.el This adds a syntax table for dwarf-mode to dwarf-mode.el. I noticed the need for this when trying to use mark-sexp (C-M-SPC) on a hex number -- it copied the trailing ">" as well, which isn't desirable. I've also bumped the version number to make this simpler to install via the Emacs package system. Tested locally. I'm checking this in. binutils/ChangeLog 2018-06-25 Tom Tromey * dwarf-mode.el (dwarf-mode-syntax-table): New variable. Bump version number. --- binutils/ChangeLog | 5 +++++ binutils/dwarf-mode.el | 11 ++++++++++- 2 files changed, 15 insertions(+), 1 deletion(-) diff --git a/binutils/ChangeLog b/binutils/ChangeLog index 28babb2224..08c00c6f1d 100644 --- a/binutils/ChangeLog +++ b/binutils/ChangeLog @@ -1,3 +1,8 @@ +2018-06-25 Tom Tromey + + * dwarf-mode.el (dwarf-mode-syntax-table): New variable. + Bump version number. + 2018-06-24 Nick Clifton * README-how-to-make-a-release: Update with experiences from diff --git a/binutils/dwarf-mode.el b/binutils/dwarf-mode.el index 8eed1b7df6..3692f0ef27 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.4 +;; Version: 1.5 ;; Copyright (C) 2012-2018 Free Software Foundation, Inc. @@ -181,6 +181,15 @@ A prefix argument means expand all children." (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 + ;; <...> does not also copy the ">". + (modify-syntax-entry ?< "(>" table) + (modify-syntax-entry ?> ")<" table) + table) + "Syntax table for dwarf-mode buffers.") + (defvar dwarf-mode-map (let ((map (make-sparse-keymap))) (set-keymap-parent map special-mode-map)