From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Thu, 25 Jul 2019 20:00:59 +0000 (+0200)
Subject: Fix mouse-1 in profiler-report-mode-map
X-Git-Tag: emacs-27.0.90~1817^2~121
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d8272ff755a4dcbef95cdda24b23154f47a953cb;p=emacs.git

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).
---

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)