;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:51:43 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/master.el ;;; in Emacs version 23.4.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 (#$ . 666)) #@64 Hook run after the slave is changed using \[master-set-slave]. (defvar master-set-slave-hook nil (#$ . 814)) #@91 Non-nil if Master mode is enabled. Use the command `master-mode' to change this variable. (defvar master-mode nil (#$ . 929)) (make-variable-buffer-local 'master-mode) #@469 Toggle Master mode. With no argument, this command toggles the mode. Non-null prefix argument turns on the mode. Null prefix argument turns off the 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'. (defalias 'master-mode #[(&optional arg) "\303  \304=\203\n?\202( \203\305 !\306V\202(\n\204\"\307\202(\310\311\302\"\210\312\313\314\n\2033\315\2024\316\"\210\317\320!\203U\303 \203H\303 \232\203U\310\321\n\203R\322\202S\323\"\210)\324 \210\n\207" [#1=#:last-message arg master-mode current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil run-hooks master-mode-hook master-mode-on-hook master-mode-off-hook called-interactively-p any "Master mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 1104) (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) (#$ . 2200)) (add-minor-mode 'master-mode nil master-mode-map) #@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 (#$ . 2634) "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 (#$ . 2912) 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 (#$ . 3149) 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 (#$ . 3329) 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 (#$ . 3517) 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 (#$ . 3742) nil]) #@44 Recenter the slave buffer. See `recenter'. (defalias 'master-says-recenter #[(&optional arg) "\301\302\"\207" [arg master-says recenter] 3 (#$ . 3943) 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 (#$ . 4107) nil]) (provide 'master)