Current File : //usr/local/share/emacs/27.2/lisp/t-mouse.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
#@58 Try to enable gpm mouse support on the current terminal.
(defalias 'gpm-mouse-enable #[nil "\302\303\216\304\305!\204 \306\307!\210 \205 \305 \210\310\302\311\312#\210\312\211*\207" [activated gpm-mouse-mode nil #[nil "?\205 \301 \207" [activated gpm-mouse-disable] 1] fboundp gpm-mouse-start error "Emacs must be built with Gpm to use this mode" set-terminal-parameter gpm-mouse-active t] 4 (#$ . 408)])
#@59 Try to disable gpm mouse support on the current terminal.
(defalias 'gpm-mouse-disable #[nil "\300\301!\203 \301 \210\302\303\304\303#\207" [fboundp gpm-mouse-stop set-terminal-parameter nil gpm-mouse-active] 4 (#$ . 825)])
(byte-code "\300\301\302\303#\210\304\301\302\305#\210\306\302\307\310\311\312\313\314\315\316\317\320& \207" [defalias t-mouse-mode gpm-mouse-mode nil make-obsolete "23.1" custom-declare-variable t "Non-nil if Gpm-Mouse mode is enabled.\nSee the `gpm-mouse-mode' command\nfor a description of this minor mode.\nSetting this variable directly does not take effect;\neither customize it (see the info node `Easy Customization')\nor call the function `gpm-mouse-mode'." :set custom-set-minor-mode :initialize custom-initialize-default :group mouse :type boolean] 12)
#@668 Toggle mouse support in GNU/Linux consoles (GPM Mouse mode).
If called interactively, enable Gpm-Mouse mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
This allows the use of the mouse when operating on a GNU/Linux console,
in the same way as you can use the mouse under X11.
It relies on the `gpm' daemon being activated.
Note that when `gpm-mouse-mode' is enabled, you cannot use the
mouse to transfer text between Emacs and other programs which use
GPM. This is due to limitations in GPM and the Linux kernel.
(defalias 'gpm-mouse-mode #[(&optional arg) "\306 \307\304 \310=\203 \311\304!?\202 \312 !\313V\"\210\314 \315\211\203[ @\316\n!\317=\203T \f\320\n\321\"=\204T \322 p &\323\216\324\325\n!@\326\"\210\f\203P \327 \210\202S \330 \210+ A\211\204\" *\331\332\311\304!\203h \333\202i \334\"\210\335\336!\203\226 \337\304!\210\306 \203\201 \306 \232\203\226 \340 '\341\342\311\304!\203\220 \343\202\221 \344'#\210))\345 \210\311\304!\207" [#1=#:last-message arg terminal --dolist-tail-- gpm-mouse-mode #2=#:old-buffer current-message set-default toggle default-value prefix-numeric-value 0 terminal-list nil terminal-live-p t terminal-parameter gpm-mouse-active selected-frame #[nil "\302!\203 \303\304\"\210\305 !\205 q\207" [#3=#:old-frame #2# frame-live-p select-frame norecord buffer-live-p] 3] select-frame frames-on-display-list norecord gpm-mouse-enable gpm-mouse-disable run-hooks gpm-mouse-mode-hook gpm-mouse-mode-on-hook gpm-mouse-mode-off-hook called-interactively-p any customize-mark-as-set "" message "Gpm-Mouse mode %sabled%s" "en" "dis" force-mode-line-update #3# local] 5 (#$ . 1622) (list (or current-prefix-arg 'toggle))])
(defvar gpm-mouse-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \307\211%\210\311\312!\207" [gpm-mouse-mode-map gpm-mouse-mode-hook variable-documentation put "Hook run after entering or leaving `gpm-mouse-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode gpm-mouse-mode nil boundp provide t-mouse] 6)
Mini Shell