[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 94df1d0: Set mouse point in debbugs
From: |
Michael Albinus |
Subject: |
[elpa] master 94df1d0: Set mouse point in debbugs |
Date: |
Mon, 20 Feb 2017 07:36:30 -0500 (EST) |
branch: master
commit 94df1d0773d3d0c2db24d01d9d9fd73d036e0603
Author: Michael Albinus <address@hidden>
Commit: Michael Albinus <address@hidden>
Set mouse point in debbugs
* packages/debbugs/debbugs-gnu.el (debbugs-gnu-select-report)
(debbugs-gnu-select-usertag): Call `mouse-set-point' when
appropriate.
---
packages/debbugs/debbugs-gnu.el | 2 ++
1 file changed, 2 insertions(+)
diff --git a/packages/debbugs/debbugs-gnu.el b/packages/debbugs/debbugs-gnu.el
index f814642..eb94679 100644
--- a/packages/debbugs/debbugs-gnu.el
+++ b/packages/debbugs/debbugs-gnu.el
@@ -1350,6 +1350,7 @@ MERGED is the list of bugs merged with this one."
(defun debbugs-gnu-select-report ()
"Select the report on the current line."
(interactive)
+ (when (mouse-event-p last-input-event) (mouse-set-point last-input-event))
;; We open the report messages.
(let* ((status (debbugs-gnu-current-status))
(id (cdr (assq 'id status)))
@@ -1673,6 +1674,7 @@ The following commands are available:
(defun debbugs-gnu-select-usertag ()
"Select the user tag on the current line."
(interactive)
+ (when (mouse-event-p last-input-event) (mouse-set-point last-input-event))
;; We open the bug reports.
(let ((args (get-text-property (line-beginning-position)
'tabulated-list-id)))
(when args (apply 'debbugs-gnu args))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [elpa] master 94df1d0: Set mouse point in debbugs,
Michael Albinus <=