| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/master.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:25 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/master.el
;;; in Emacs version 24.3.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(custom-declare-group 'master nil "Support for master/slave relationships between buffers." :version "22.1" :group 'convenience)
#@109 Slave buffer of the current buffer. See `master-mode'.
You can set this variable using `master-set-slave'.
(defvar master-of nil (#$ . 679))
#@64 Hook run after the slave is changed using \[master-set-slave].
(defvar master-set-slave-hook nil (#$ . 827))
#@91 Non-nil if Master mode is enabled.
Use the command `master-mode' to change this variable.
(defvar master-mode nil (#$ . 942))
(make-variable-buffer-local 'master-mode)
#@492 Toggle Master mode.
With a prefix argument ARG, enable Master mode if ARG is
positive, and disable it otherwise. If called from Lisp, enable
the mode if ARG is omitted or nil.
When Master mode is enabled, you can scroll the slave buffer
using the following commands:
\{master-mode-map}
The slave buffer is stored in the buffer-local variable `master-of'.
You can set this variable using `master-set-slave'. You can show
yourself the value of `master-of' by calling `master-show-slave'.
(defalias 'master-mode #[(&optional arg) "\303 \304=\203 \n?\202 \305 !\306V\307\310\n\203 \311\202 \312\"\210\313\314!\203@ \303 \2033 \303 \232\203@ \315\316\n\203= \317\202> \320\"\210)\321 \210\n\207" [#1=#:last-message arg master-mode current-message toggle prefix-numeric-value 0 run-hooks master-mode-hook master-mode-on-hook master-mode-off-hook called-interactively-p any message "Master mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 1117) (list (or current-prefix-arg 'toggle))])
#@27 Keymap for `master-mode'.
(defvar master-mode-map (byte-code "\301\302!\203\f \202 <\203 \303!\202 \304\305\")\207" [m (("" . master-says-scroll-up) ("" . master-says-scroll-down) ("<" . master-says-beginning-of-buffer) (">" . master-says-end-of-buffer) ("\f" . master-says-recenter)) keymapp easy-mmode-define-keymap error "Invalid keymap %S"] 3) (#$ . 2123))
(byte-code "\301\302\303\303\211%\207" [master-mode-map add-minor-mode master-mode nil] 6)
#@105 Makes BUFFER the slave of the current buffer.
Use \[master-mode] to toggle control of the slave buffer.
(defalias 'master-set-slave #[(buffer) "\302\301!\210\303\304!\207" [buffer master-of make-local-variable run-hooks master-set-slave-hook] 2 (#$ . 2599) "bSlave: "])
#@55 Displays a message with the name of the slave buffer.
(defalias 'master-show-slave #[nil "\302\303\206 \304 #\207" [master-of master-mode message "This buffer is the master of %s. Master-mode is %S." "none"] 4 (#$ . 2877) nil])
#@58 Display and scroll the slave buffer up.
See `scroll-up'.
(defalias 'master-says-scroll-up #[(&optional arg) "\301\302\"\207" [arg master-says scroll-up] 3 (#$ . 3114) nil])
#@62 Display and scroll the slave buffer down.
See `scroll-down'.
(defalias 'master-says-scroll-down #[(&optional arg) "\301\302\"\207" [arg master-says scroll-down] 3 (#$ . 3294) nil])
#@83 Display and move to the beginning of the slave buffer.
See `beginning-of-buffer'.
(defalias 'master-says-beginning-of-buffer #[(&optional arg) "\301\302\"\207" [arg master-says beginning-of-buffer] 3 (#$ . 3482) nil])
#@71 Display and move to the end of the slave buffer.
See `end-of-buffer'.
(defalias 'master-says-end-of-buffer #[(&optional arg) "\301\302\"\207" [arg master-says end-of-buffer] 3 (#$ . 3707) nil])
#@44 Recenter the slave buffer.
See `recenter'.
(defalias 'master-says-recenter #[(&optional arg) "\301\302\"\207" [arg master-says recenter] 3 (#$ . 3908) nil])
#@66 Display slave buffer and execute COMMAND with ARG in its window.
(defalias 'master-says #[(&optional command arg) "\303\304!!\204\f \305\306!\207\307 \310 !\304!=\204 \311!\210\n\203& \312\313\314\217\210\315 !)\207" [master-of window command buffer-live-p get-buffer error "Slave buffer has disappeared" selected-window window-buffer switch-to-buffer-other-window nil (apply command arg) ((error)) select-window] 3 (#$ . 4072) nil])
(provide 'master)