X-Git-Url: http://drtracing.org/?a=blobdiff_plain;f=binutils%2Fdwarf-mode.el;h=419a57e9c9c2e8b1e8c99f9bbbea42f22ef79205;hb=1296bc99b1bf5da38be18ac1fdf6ad8d1b697e6b;hp=465883e83a2d411b3d063b00390d36b7405106ad;hpb=eb8c0d308be8525f7c25962a9c581f44af23a364;p=deliverable%2Fbinutils-gdb.git

diff --git a/binutils/dwarf-mode.el b/binutils/dwarf-mode.el
index 465883e83a..419a57e9c9 100644
--- a/binutils/dwarf-mode.el
+++ b/binutils/dwarf-mode.el
@@ -1,8 +1,8 @@
 ;;; dwarf-mode.el --- Browser for DWARF information. -*-lexical-binding:t-*-
 
-;; Version: 1.4
+;; Version: 1.5
 
-;; Copyright (C) 2012-2017 Free Software Foundation, Inc.
+;; Copyright (C) 2012-2019 Free Software Foundation, Inc.
 
 ;; This file is not part of GNU Emacs, but is distributed under the
 ;; same terms:
@@ -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)