Function: profiler-report-make-entry-part

profiler-report-make-entry-part is a byte-compiled function defined in profiler.el.gz.

Signature

(profiler-report-make-entry-part ENTRY)

Source Code

;; Defined in /usr/src/emacs/lisp/profiler.el.gz
(defun profiler-report-make-entry-part (entry)
  (let ((string (cond
		 ((eq entry t)
		  "Others")
		 ;; When we save profile data into a file, the function
                 ;; objects are replaced with their "names".  When we see
                 ;; a string here, that's presumably why, so just print
                 ;; it as-is.
		 ((stringp entry) entry)
		 (t (propertize (help-fns-function-name entry)
                                ;; Override the `button-map' which
                                ;; otherwise adds RET, mouse-1, and TAB
                                ;; bindings we don't want.  :-(
                                'keymap '(make-sparse-keymap)
                                'follow-link "\r"
                                ;; FIXME: The help-echo code gets confused
                                ;; by the `follow-link' property and rewrites
                                ;; `mouse-2' to `mouse-1' :-(
                                'help-echo "\
mouse-2: jump to definition\n\
RET: expand or collapse")))))
    (propertize string 'profiler-entry entry)))