[Gpm] small regexp fix in t-mouse.el

[Wolfgang Sourdeau]

--Multipart_Fri_Jul_14_23:58:37_2000-1
Content-Type: application/octet-stream; type=patch
Content-Disposition: attachment; filename="t-mouse.el.diff"
Content-Transfer-Encoding: 7bit

--- t-mouse.el.old	Mon Sep 13 18:00:00 1999
+++ t-mouse.el	Fri Jul 14 23:41:23 2000
@@ -76,6 +76,7 @@
              (goto-char (point-min))
              (if (or
 		  ;; Many versions of "ps", all different....
+		  (re-search-forward " +tty\\(.?[0-9a-f]\\)" nil t)
 		  (re-search-forward "p \\([0-9a-f]\\)" nil t)
 		  (re-search-forward "v0\\([0-9a-f]\\)" nil t)
 		  (re-search-forward "[0-9]+ +\\([0-9]+\\)" nil t)
@@ -332,10 +333,12 @@
                          "-e-move" "-dall" "-d-hard"
                          "-f")))
   (setq t-mouse-filter-accumulator "")
-  (set-process-filter t-mouse-process 't-mouse-process-filter)
+  (set-process-filter t-mouse-process (function t-mouse-process-filter))
   (process-kill-without-query t-mouse-process)
   t-mouse-process)
 
 (provide 't-mouse)
 
 ;;; t-mouse.el ends here

--Multipart_Fri_Jul_14_23:58:37_2000-1
Content-Type: text/plain; charset=US-ASCII


Here enclosed is a small patch which fixes a small problem related to
regexps in t-mouse.el.
t-mouse never worked for me before. It seemed to be related to the way
it was catching with the output of "ps" (many versions...).
Now that I am learning elisp, I fixed it.


Wolfgang

ps: I haven't subscribed to the mailing-list, so in case of feedback
please answer by private mail
--Multipart_Fri_Jul_14_23:58:37_2000-1--