Lines Matching +defs:end +defs:of
11 ;; This file is part of GNU Emacs.
14 ;; it under the terms of the GNU General Public License as published by
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
23 ;; You should have received a copy of the GNU General Public License
66 (defvar master-of nil
67 "Slave buffer of the current buffer. See `master-mode'.
87 The slave buffer is stored in the buffer-local variable `master-of'.
89 yourself the value of `master-of' by calling `master-show-slave'."
94 ("\C-c<" . master-says-beginning-of-buffer)
95 ("\C-c>" . master-says-end-of-buffer)
101 "Makes BUFFER the slave of the current buffer.
102 Use \\[master-mode] to toggle control of the slave buffer."
104 (make-local-variable 'master-of)
105 (setq master-of buffer)
109 "Displays a message with the name of the slave buffer."
111 (message "This buffer is the master of %s. Master-mode is %S."
112 (or master-of "none")
132 (defun master-says-beginning-of-buffer (&optional arg)
133 "Display and move to the beginning of the slave buffer.
134 See `beginning-of-buffer'."
136 (master-says 'beginning-of-buffer arg))
138 (defun master-says-end-of-buffer (&optional arg)
139 "Display and move to the end of the slave buffer.
140 See `end-of-buffer'."
142 (master-says 'end-of-buffer 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))