;;; profiler.el --- UI and helper functions for Emacs's native profiler -*- lexical-binding: t -*-
-;; Copyright (C) 2012 Free Software Foundation, Inc.
+;; Copyright (C) 2012-2013 Free Software Foundation, Inc.
;; Author: Tomohiro Matsuyama <tomo@cx4a.org>
;; Keywords: lisp
(defgroup profiler nil
"Emacs profiler."
:group 'lisp
+ :version "24.3"
:prefix "profiler-")
(defconst profiler-version "24.3")
(propertize (symbol-name entry)
'face 'link
'mouse-face 'highlight
- 'help-echo "mouse-2 or RET jumps to definition"))
+ 'help-echo "\
+mouse-2: jump to definition\n\
+RET: expand or collapse"))
(t
(profiler-format-entry entry)))))
(propertize string 'profiler-entry entry)))
t))))))
(defun profiler-report-collapse-entry ()
- "Collpase entry at point."
+ "Collapse entry at point."
(interactive)
(save-excursion
(beginning-of-line)