;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. #@109 Slave buffer of the current buffer. See `master-mode'. You can set this variable using `master-set-slave'. (defvar master-of nil (#$ . 84))#@64 Hook run after the slave is changed using \[master-set-slave]. (defvar master-set-slave-hook nil (#$ . 230))#@91 Non-nil if Master mode is enabled. Use the command `master-mode' to change this variable. (defvar master-mode nil (#$ . 344)) (make-variable-buffer-local 'master-mode)#@881 Toggle Master mode. 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'. This is a minor mode. If called interactively, toggle the `Master mode' mode. If the prefix argument is positive, enable the mode, and if it is zero or negative, disable the mode. If called from Lisp, toggle the mode if ARG is `toggle'. Enable the mode if ARG is nil, omitted, or is a positive number. Disable the mode if ARG is a negative number. To check whether the minor mode is enabled in the current buffer, evaluate `master-mode'. The mode's hook is called both when the mode is enabled and when it is disabled. (fn &optional ARG) (defalias 'master-mode #[256 "\302 \303=\203 ?\202\247\203\304W\203\305\202\306\307\301!\2031\310\300 \"\2031\300 B\311\312\203;\313\202<\314\"\210\315\316!\203_\302 \203P\211\302 \232\203_\317\320\321\203[\322\202\\\323\324$\210\210\325 \210\207" [master-mode local-minor-modes current-message toggle 1 nil t boundp delq run-hooks master-mode-hook master-mode-on-hook master-mode-off-hook called-interactively-p any message "%s %sabled%s" "Master mode" "en" "dis" " in current buffer" force-mode-line-update] 7 (#$ . 518) (byte-code "\203\n\301!\202 \302C\207" [current-prefix-arg prefix-numeric-value toggle] 2)]) (defvar master-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\302\300\304\305#\210\302\300\306\307C#\207" [master-mode-hook variable-documentation put "Hook run after entering or leaving `master-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" custom-type hook standard-value nil] 4)#@27 Keymap for `master-mode'. (defvar master-mode-map (byte-code "\300\301!\203\207\211<\203\302!\207\303\304\"\207" [(("" . 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"] 4) (#$ . 2440)) (byte-code "\301\302\303\303\211%\207" [master-mode-map add-minor-mode master-mode nil] 6)#@117 Make BUFFER the slave of the current buffer. Use \[master-mode] to toggle control of the slave buffer. (fn BUFFER) (defalias 'master-set-slave #[257 "\301\300!\210\211\302\303!\207" [master-of make-local-variable run-hooks master-set-slave-hook] 3 (#$ . 2908) "bSlave: "])#@55 Displays a message with the name of the slave buffer. (defalias 'master-show-slave #[0 "\302\303\206\304 #\207" [master-of master-mode message "This buffer is the master of %s. Master-mode is %S." "none"] 4 (#$ . 3188) nil])#@78 Display and scroll the slave buffer up. See `scroll-up'. (fn &optional ARG) (defalias 'master-says-scroll-up #[256 "\300\301\"\207" [master-says scroll-up] 4 (#$ . 3422) nil])#@82 Display and scroll the slave buffer down. See `scroll-down'. (fn &optional ARG) (defalias 'master-says-scroll-down #[256 "\300\301\"\207" [master-says scroll-down] 4 (#$ . 3605) nil])#@103 Display and move to the beginning of the slave buffer. See `beginning-of-buffer'. (fn &optional ARG) (defalias 'master-says-beginning-of-buffer #[256 "\300\301\"\207" [master-says beginning-of-buffer] 4 (#$ . 3797) nil])#@91 Display and move to the end of the slave buffer. See `end-of-buffer'. (fn &optional ARG) (defalias 'master-says-end-of-buffer #[256 "\300\301\"\207" [master-says end-of-buffer] 4 (#$ . 4025) nil])#@64 Recenter the slave buffer. See `recenter'. (fn &optional ARG) (defalias 'master-says-recenter #[256 "\300\301\"\207" [master-says recenter] 4 (#$ . 4229) nil])#@94 Display slave buffer and execute COMMAND with ARG in its window. (fn &optional COMMAND ARG) (defalias 'master-says #[512 "\301\302!!\204\f\303\304!\207\305 \306!\302!=\204\307!\210\203.\3101-\311\"0\210\202.\210\312!\207" [master-of buffer-live-p get-buffer error "Slave buffer has disappeared" selected-window window-buffer switch-to-buffer-other-window (error) apply select-window] 6 (#$ . 4396) nil]) (provide 'master)