branch: externals/inspector
commit b6092890745cfebd588035f38b46f45480418f3d
Author: Mariano Montone <marianomont...@gmail.com>
Commit: Mariano Montone <marianomont...@gmail.com>
Housekeeping
---
inspector.el | 27 ++++++++++++++++++++++++++-
1 file changed, 26 insertions(+), 1 deletion(-)
diff --git a/inspector.el b/inspector.el
index 9885933608..e4a8dd6a2e 100644
--- a/inspector.el
+++ b/inspector.el
@@ -1,4 +1,25 @@
-;;; emacs-inspector.el --- Inspector for Emacs Lisp objects -*-
lexical-binding: t -*-
+;;; inspector.el --- Emacs Lisp objects inspector. -*- lexical-binding: t -*-
+
+;; Copyright (C) 2021 Mariano Montone
+
+;; Author: Mariano Montone <marianomont...@gmail.com>
+;; URL: https://github.com/mmontone/slime-doc-contribs
+;; Keywords: help, lisp, slime, common-lisp
+;; Version: 0.1
+;; Package-Requires: ((emacs "25"))
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation, either version 3 of the License, or
+;; (at your option) any later version.
+
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+;; GNU General Public License for more details.
+
+;; You should have received a copy of the GNU General Public License
+;; along with this program. If not, see <http://www.gnu.org/licenses/>.
;;; Commentary:
@@ -39,13 +60,16 @@
plist))
(defun inspector--insert-horizontal-line (&rest width)
+ "Insert an horizontal line with width WIDTH."
(insert (make-string (or width 80) ?\u2500)))
(defun inspector--insert-property (property-name)
+ "Insert an inspector property."
(insert property-name)
(insert ": "))
(defun inspector--insert-title (title)
+ "Insert title for inspector."
(insert title)
(newline)
(inspector--insert-horizontal-line)
@@ -244,6 +268,7 @@ When ADD-TO-HISTORY is T, OBJECT is added to inspector
history for navigation pu
(locals (backtrace--locals nframe base)))
(inspector-inspect (alist-to-plist locals))))
+;; Press letter 'i' in debugger backtrace to inspect locals.
(define-key debugger-mode-map (kbd "i") 'debugger-inspect-locals)
(defgroup inspector nil
