diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-25 22:00:59 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-25 22:00:59 +0200 |
commit | d8272ff755a4dcbef95cdda24b23154f47a953cb (patch) | |
tree | 9a82ca0790bd338e3a37f90a5da66c2b5fc82e9b /lisp/profiler.el | |
parent | 7633391ce093b0269e3cc77af8a8f437e5d14042 (diff) | |
download | emacs-d8272ff755a4dcbef95cdda24b23154f47a953cb.tar.gz |
Fix mouse-1 in profiler-report-mode-map
* lisp/profiler.el (profiler-report-mode-map): Make `mouse-1'
respect `mouse-1-click-follows-link' (bug#30515).
Diffstat (limited to 'lisp/profiler.el')
-rw-r--r-- | lisp/profiler.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/profiler.el b/lisp/profiler.el index 775096276da..ee11ff68c56 100644 --- a/lisp/profiler.el +++ b/lisp/profiler.el @@ -473,6 +473,7 @@ this variable directly.") (fboundp entry)) (propertize (symbol-name entry) 'face 'link + 'follow-link "\r" 'mouse-face 'highlight 'help-echo "\ mouse-2: jump to definition\n\ @@ -534,9 +535,9 @@ RET: expand or collapse")) (define-key map "\r" 'profiler-report-toggle-entry) (define-key map "\t" 'profiler-report-toggle-entry) (define-key map "i" 'profiler-report-toggle-entry) - (define-key map [mouse-1] 'profiler-report-toggle-entry) (define-key map "f" 'profiler-report-find-entry) (define-key map "j" 'profiler-report-find-entry) + (define-key map [follow-link] 'mouse-face) (define-key map [mouse-2] 'profiler-report-find-entry) (define-key map "d" 'profiler-report-describe-entry) (define-key map "C" 'profiler-report-render-calltree) |