emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/elp.el [lexbind]


From: Miles Bader
Subject: [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/elp.el [lexbind]
Date: Sat, 04 Sep 2004 05:43:19 -0400

Index: emacs/lisp/emacs-lisp/elp.el
diff -c emacs/lisp/emacs-lisp/elp.el:1.26.4.1 
emacs/lisp/emacs-lisp/elp.el:1.26.4.2
*** emacs/lisp/emacs-lisp/elp.el:1.26.4.1       Tue Oct 14 23:32:21 2003
--- emacs/lisp/emacs-lisp/elp.el        Sat Sep  4 09:26:22 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.




reply via email to

[Prev in Thread] Current Thread [Next in Thread]