[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/elp.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/elp.el [emacs-unicode-2] |
Date: |
Fri, 27 Aug 2004 03:24:58 -0400 |
Index: emacs/lisp/emacs-lisp/elp.el
diff -c emacs/lisp/emacs-lisp/elp.el:1.26.10.1
emacs/lisp/emacs-lisp/elp.el:1.26.10.2
*** emacs/lisp/emacs-lisp/elp.el:1.26.10.1 Fri Apr 16 12:50:13 2004
--- emacs/lisp/emacs-lisp/elp.el Fri Aug 27 07:00:26 2004
***************
*** 513,519 ****
(numberp elp-report-limit)
(< cc elp-report-limit))
nil
! (insert symname)
(insert-char 32 (+ elp-field-len (- (length symname)) 2))
;; print stuff out, formatting it nicely
(insert callcnt)
--- 513,519 ----
(numberp elp-report-limit)
(< cc elp-report-limit))
nil
! (elp-output-insert-symname symname)
(insert-char 32 (+ elp-field-len (- (length symname)) 2))
;; print stuff out, formatting it nicely
(insert callcnt)
***************
*** 525,530 ****
--- 525,556 ----
(insert atstr))
(insert "\n"))))
+ (defvar elp-results-symname-map
+ (let ((map (make-sparse-keymap)))
+ (define-key map [mouse-2] 'elp-results-jump-to-definition-by-mouse)
+ (define-key map "\C-m" 'elp-results-jump-to-definition)
+ map)
+ "Keymap used on the function name column." )
+
+ (defun elp-results-jump-to-definition-by-mouse (event)
+ "Jump to the definition of the function under the place specified by EVENT."
+ (interactive "e")
+ (posn-set-point (event-end event))
+ (elp-results-jump-to-definition))
+
+ (defun elp-results-jump-to-definition ()
+ "Jump to the definition of the function under the point."
+ (interactive)
+ (find-function (get-text-property (point) 'elp-symname)))
+
+ (defun elp-output-insert-symname (symname)
+ ;; Insert SYMNAME with text properties.
+ (insert (propertize symname
+ 'elp-symname (intern symname)
+ 'keymap elp-results-symname-map
+ 'mouse-face 'highlight
+ 'help-echo (substitute-command-keys
"\\{elp-results-symname-map}"))))
+
;;;###autoload
(defun elp-results ()
"Display current profiling results.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/elp.el [emacs-unicode-2],
Miles Bader <=