From: Tom Tromey <tromey@redhat.com>
Date: Wed, 13 Jun 2012 14:01:42 +0000 (+0000)
Subject: 	* dwarf-mode.el: Add final comment.  Bump version.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=6f7b1488dfef186af999051b4c6d7a020340b201;p=binutils-gdb.git

	* dwarf-mode.el: Add final comment.  Bump version.
	(dwarf-insert-substructure-button): Use string-to-number.
	(dwarf-browse): Fix autoload cookie.
---

diff --git a/binutils/ChangeLog b/binutils/ChangeLog
index 32ca87c54da..105a45d6f4d 100644
--- a/binutils/ChangeLog
+++ b/binutils/ChangeLog
@@ -1,3 +1,9 @@
+2012-06-12  Tom Tromey  <tromey@redhat.com>
+
+	* dwarf-mode.el: Add final comment.  Bump version.
+	(dwarf-insert-substructure-button): Use string-to-number.
+	(dwarf-browse): Fix autoload cookie.
+
 2012-06-08  Jakub Jelinek  <jakub@redhat.com>
 
 	* dwarf.c (read_and_display_attr_value): Handle
diff --git a/binutils/dwarf-mode.el b/binutils/dwarf-mode.el
index f95319ded5c..4c995ef763b 100644
--- a/binutils/dwarf-mode.el
+++ b/binutils/dwarf-mode.el
@@ -1,6 +1,6 @@
 ;;; dwarf-mode.el --- Browser for DWARF information.
 
-;; Version: 1.0
+;; Version: 1.1
 
 ;; This file is not part of GNU Emacs, but is distributed under the
 ;; same terms:
@@ -56,7 +56,7 @@
   (beginning-of-line)
   (unless (looking-at "^ <\\([0-9]+\\)>")
     (error "Unrecognized line."))
-  (let ((new-depth (1+ (string-to-int (match-string 1)))))
+  (let ((new-depth (1+ (string-to-number (match-string 1)))))
     (dwarf-do-insert-substructure new-depth die)))
 
 (defun dwarf-insert-substructure (arg)
@@ -152,7 +152,7 @@ A prefix argument means expand all children."
 
 (define-key dwarf-mode-map [(control ?m)] #'dwarf-insert-substructure)
 
-;;:###autoload
+;;;###autoload
 (defun dwarf-browse (file)
   "Invoke `objdump' and put output into a `dwarf-mode' buffer.
 This is the main interface to `dwarf-mode'."
@@ -165,3 +165,5 @@ This is the main interface to `dwarf-mode'."
     (dwarf-do-refresh)))
 
 (provide 'dwarf-mode)
+
+;;; dwarf-mode.el ends here