Lines Matching defs:master
0 ;;; master.el --- make a buffer the master over another buffer
30 ;; master-mode is a minor mode which enables you to scroll another
31 ;; buffer (the slave) without leaving your current buffer (the master).
33 ;; It can be used by sql.el, for example: The SQL buffer is the master
38 ;; This is how to use sql.el and master.el together: The variable
44 ;; (master-mode t)
45 ;; (master-set-slave sql-buffer))))
48 ;; (master-set-slave sql-buffer))))
59 (defgroup master nil
60 "Support for master/slave relationships between buffers."
66 (defvar master-of nil
67 "Slave buffer of the current buffer. See `master-mode'.
68 You can set this variable using `master-set-slave'.")
70 (defvar master-set-slave-hook nil
71 "Hook run after the slave is changed using \\[master-set-slave].")
73 ;;; Define master mode.
76 (define-minor-mode master-mode
85 \\{master-mode-map}
87 The slave buffer is stored in the buffer-local variable `master-of'.
88 You can set this variable using `master-set-slave'. You can show
89 yourself the value of `master-of' by calling `master-show-slave'."
90 :group 'master
92 '(("\C-c\C-n" . master-says-scroll-up)
93 ("\C-c\C-p" . master-says-scroll-down)
94 ("\C-c<" . master-says-beginning-of-buffer)
95 ("\C-c>" . master-says-end-of-buffer)
96 ("\C-c\C-l" . master-says-recenter)))
100 (defun master-set-slave (buffer)
102 Use \\[master-mode] to toggle control of the slave buffer."
104 (make-local-variable 'master-of)
105 (setq master-of buffer)
106 (run-hooks 'master-set-slave-hook))
108 (defun master-show-slave ()
111 (message "This buffer is the master of %s. Master-mode is %S."
112 (or master-of "none")
113 master-mode))
118 ;;; Functions that the master buffer can call for the slave buffer.
120 (defun master-says-scroll-up (&optional arg)
124 (master-says 'scroll-up arg))
126 (defun master-says-scroll-down (&optional arg)
130 (master-says 'scroll-down arg))
132 (defun master-says-beginning-of-buffer (&optional arg)
136 (master-says 'beginning-of-buffer arg))
138 (defun master-says-end-of-buffer (&optional arg)
142 (master-says 'end-of-buffer arg))
144 (defun master-says-recenter (&optional arg)
148 (master-says 'recenter arg))
150 ;; The master function doing the stuff.
152 (defun master-says (&optional command arg)
155 (if (null (buffer-live-p (get-buffer master-of)))
158 (if (not (eq (window-buffer window) (get-buffer master-of)))
159 (switch-to-buffer-other-window master-of))
163 (provide 'master)
166 ;;; master.el ends here