From 6f7b1488dfef186af999051b4c6d7a020340b201 Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Wed, 13 Jun 2012 14:01:42 +0000 Subject: [PATCH] * dwarf-mode.el: Add final comment. Bump version. (dwarf-insert-substructure-button): Use string-to-number. (dwarf-browse): Fix autoload cookie. --- binutils/ChangeLog | 6 ++++++ binutils/dwarf-mode.el | 8 +++++--- 2 files changed, 11 insertions(+), 3 deletions(-) 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 + + * 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 * 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 -- 2.30.2