[elpa] externals/inspector 7b67c4ddf0 2/2: Housekeeping

[ELPA Syncer]

branch: externals/inspector
commit 7b67c4ddf06b78655177f32f29d5a1db92dad022
Author: Mariano Montone <marianomontone@gmail.com>
Commit: Mariano Montone <marianomontone@gmail.com>

    Housekeeping
---
 tree-inspector.el | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/tree-inspector.el b/tree-inspector.el
index 6d0831c046..389f003e7e 100644
--- a/tree-inspector.el
+++ b/tree-inspector.el
@@ -149,14 +149,17 @@ in a format understood by `kbd'.  Commands a names of 
Lisp functions."
 
 ;;-------------- treeview functions 
--------------------------------------------
 
-(defvar tree-inspector--fontification-buffer nil)
+(defvar tree-inspector--fontification-buffer nil
+  "Reference to fontification buffer used by 
`tree-inspector--fontify-string'.")
 
 (defun tree-inspector--get-fontification-buffer ()
+  "Return buffer for fontification used by `tree-inspector--fontify-string'."
   (or tree-inspector--fontification-buffer
       (let ((buffer (get-buffer-create "*tree-inspector-fontification*")))
         (with-current-buffer buffer
           (emacs-lisp-mode)
-          (setf tree-inspector--fontification-buffer buffer)))))
+          (setq tree-inspector--fontification-buffer buffer)
+          buffer))))
 
 (defun tree-inspector--fontify-string (string)
   "Fontify STRING as `font-lock-mode' does in emacs-lisp mode."