fix mouse event handle.

mitchan0321 · Aug 1, 2024 · 83d3611 · 83d3611
1 parent 58c6c61
commit 83d3611
Showing 1 changed file with 6 additions and 6 deletions.
diff --git a/lib/pmacs-command-mouse.prfm b/lib/pmacs-command-mouse.prfm
@@ -147,7 +147,7 @@ defcommand mouse-buffer-click-link desc: "Mouse click open buffer." {
         $window cursor-move-to $geom $ey $ex;
         $window end-region;
         $main set-last-mouse-event $window $y $x;
-        return NONE;
+        return SELF;
     };
     $window apply-command $main $window "" jump-to-buffer;
     $window end-region;
@@ -168,7 +168,7 @@ defcommand mouse-buffer-click-next-window desc: "Mouse click open buffer at next
         $window cursor-move-to $geom $ey $ex;
         $window end-region;
         $main set-last-mouse-event $window $y $x;
-        return NONE;
+        return SELF;
     };
     $window apply-command $main $window "" buffer-list-open-next-window;
     $window end-region;
@@ -189,7 +189,7 @@ defcommand mouse-buffer-click-previous-window desc: "Mouse click open buffer at
         $window cursor-move-to $geom $ey $ex;
         $window end-region;
         $main set-last-mouse-event $window $y $x;
-        return NONE;
+        return SELF;
     };
     $window apply-command $main $window "" buffer-list-open-previous-window;
     $window end-region;
@@ -210,7 +210,7 @@ defcommand mouse-dired-click-link desc: "Mouse click open file dired." {
         $window cursor-move-to $geom $ey $ex;
         $window end-region;
         $main set-last-mouse-event $window $y $x;
-        return NONE;
+        return SELF;
     };
     $window apply-command $main $window "" dired-open;
     $window end-region;
@@ -231,7 +231,7 @@ defcommand mouse-dired-click-next-window desc: "Mouse click open file at next wi
         $window cursor-move-to $geom $ey $ex;
         $window end-region;
         $main set-last-mouse-event $window $y $x;
-        return NONE;
+        return SELF;
     };
     $window apply-command $main $window "" dired-open-next-window;
     $window end-region;
@@ -252,7 +252,7 @@ defcommand mouse-dired-click-previous-window desc: "Mouse click open file at pre
         $window cursor-move-to $geom $ey $ex;
         $window end-region;
         $main set-last-mouse-event $window $y $x;
-        return NONE;
+        return SELF;
     };
     $window apply-command $main $window "" dired-open-previous-window;
     $window end-region;