ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/t-mouse.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; 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 (#$ . 410)])
#@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 (#$ . 827)])
(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)
#@586 Toggle mouse support in GNU/Linux consoles (GPM Mouse mode).
With a prefix argument ARG, enable GPM Mouse mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
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 (#$ . 1624) (list (or current-prefix-arg 'toggle))])
#@179 Hook run after entering or leaving `gpm-mouse-mode'.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar gpm-mouse-mode-hook nil (#$ . 3368))
(byte-code "\301\302\303\304\300!\205\n \303\211%\210\305\306!\207" [gpm-mouse-mode-map add-minor-mode gpm-mouse-mode nil boundp provide t-mouse] 6)
Kontol Shell Bypass