X-Git-Url: http://drtracing.org/?a=blobdiff_plain;f=binutils%2Fdwarf-mode.el;h=419a57e9c9c2e8b1e8c99f9bbbea42f22ef79205;hb=6ce9ba7afcc64217e008d3b51f8c7ef4c496957e;hp=625e30d4e87e3eaf5ce0d5960e77dc9ba5560877;hpb=c85fa91b5c0dc70641d75d6ab9315ad547487c1f;p=deliverable%2Fbinutils-gdb.git

diff --git a/binutils/dwarf-mode.el b/binutils/dwarf-mode.el
index 625e30d4e8..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.3
+;; 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)