Re: How to switch off the touchpad when Emacs window is active under Linux?

["Pascal J. Bourguignon" <pjb@informatimago.com>]

Ian Zimmerman <itz@buug.org> writes:

> On 2015-08-24 21:02 +0200, AW wrote:
>
>> Synclient on this notebook works, but this function doesn't:
>
>> (defun turn-off-mouse (&optional frame)
>>   (interactive)
>>   (let ((inhibit-message t) (default-directory "~"))
>>     (shell-command "synclient TouchpadOff=1")))
>> 
>> (defun turn-on-mouse (&optional frame)
>>   (interactive)
>>   (let ((inhibit-message t) (default-directory "~"))
>>     (shell-command "synclient TouchpadOff=0")))
>> 
>> (add-hook 'focus-in-hook #'turn-off-mouse)
>> (add-hook 'focus-out-hook #'turn-on-mouse)
>> (add-hook 'delete-frame-functions #'turn-on-mouse)
>
> The variable inhibit-message doesn't exist in my emacs (probably a
> recent addition), but I'm guessing that it discards any output from the
> subprocess.  I would leave it out so you see what prevents synclient
> from working.
>
> Also, I don't see why changing default-directory should be necessary,
> either.

Alternatively, you could disable the mouse by  binding all the mouse
events to null commands.  For example, I have this in my ~/.emacs; you
could extend it to all mouse buttons:

(defun ignore () (interactive))
(loop for key in (list (kbd "<mouse-5>") (kbd "C-<mouse-5>") (kbd "S-<mouse-5>")
                       (kbd "<mouse-4>") (kbd "C-<mouse-4>") (kbd "S-<mouse-4>"))
     do (global-set-key key 'ignore))

-- 
__Pascal Bourguignon__                 http://www.informatimago.com/
“The factory of the future will have only two employees, a man and a
dog. The man will be there to feed the dog. The dog will be there to
keep the man from touching the equipment.” -- Carl Bass CEO Autodesk