summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorJim Blandy <jimb@redhat.com>1993-02-22 14:16:48 +0000
committerJim Blandy <jimb@redhat.com>1993-02-22 14:16:48 +0000
commit6f5191a247bdbb31b78ddb81855300174dc210df (patch)
tree35837f423731dc9aa4733c5af89ec78a744d2c2a /lisp
parent37f6661a60d67155fbdfd4556a9e5a63100903a7 (diff)
downloademacs-6f5191a247bdbb31b78ddb81855300174dc210df.tar.gz
* two-column.el: Add autoloads for the functions defined in
tc-mode-map.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/textmodes/two-column.el10
1 files changed, 10 insertions, 0 deletions
diff --git a/lisp/textmodes/two-column.el b/lisp/textmodes/two-column.el
index daafd8c7e98..5e7c2b35d37 100644
--- a/lisp/textmodes/two-column.el
+++ b/lisp/textmodes/two-column.el
@@ -302,6 +302,7 @@ and \\[tc-associate-buffer] (tc-associate-buffer), on both buffers.")
(kill-local-variable 'mode-line-format)
nil))))
+;;;###autoload
(defun tc-two-columns (&optional buffer)
"Split current window vertically for two-column editing.
@@ -376,6 +377,7 @@ The appearance of the screen can be customized by the variables
(fset 'tc-mode 'tc-two-columns)
+;;;###autoload
(defun tc-associate-buffer ()
"Associate another buffer with this one in two-column minor mode.
Can also be used to associate a just previously visited file, by
@@ -399,6 +401,7 @@ See \\[tc-two-columns] and `lisp/two-column.el' for further details."
(if b1 (setq tc-window-width (- (frame-width) b1)))
(tc-two-columns b2)))
+;;;###autoload
(defun tc-split (arg)
"Unmerge a two-column text into two buffers in two-column minor mode.
The text is unmerged at the cursor's column which becomes the local
@@ -466,6 +469,7 @@ See \\[tc-two-columns] and `lisp/two-column.el' for further details."
(setq n 0))
(next-line 1)))))
+;;;###autoload
(defun tc-kill-association ()
"Turn off two-column minor mode in current and associated buffer.
If the associated buffer is unmodified and empty, it is killed."
@@ -493,6 +497,7 @@ If the associated buffer is unmodified and empty, it is killed."
;; this doesn't use yank-rectangle, so that the first column can
;; contain long lines
+;;;###autoload
(defun tc-merge ()
"Merges the associated buffer with the current buffer.
They get merged at the column, which is the value of
@@ -539,6 +544,7 @@ off trailing spaces with \\[beginning-of-buffer] \\[replace-regexp] [ SPC TAB ]
;;;;; utility functions ;;;;;
+;;;###autoload
(defun tc-associated-buffer ()
"Switch to associated buffer."
(interactive)
@@ -550,6 +556,7 @@ off trailing spaces with \\[beginning-of-buffer] \\[replace-regexp] [ SPC TAB ]
;; It would be desirable to intercept anything that causes the current
;; window to scroll. Maybe a `scroll-hook'?
+;;;###autoload
(defun tc-scroll-line (arg)
"Scroll current window upward by ARG lines.
The associated window gets scrolled to the same line."
@@ -575,6 +582,7 @@ The associated window gets scrolled to the same line."
(scroll-up arg))
(select-window window))))
+;;;###autoload
(defun tc-scroll-up (arg)
"Scroll current window upward by ARG screens.
The associated window gets scrolled to the same line."
@@ -582,6 +590,7 @@ The associated window gets scrolled to the same line."
(tc-scroll-line (* arg (- (window-height)
next-screen-context-lines 1))))
+;;;###autoload
(defun tc-scroll-down (arg)
"Scroll current window downward by ARG screens.
The associated window gets scrolled to the same line."
@@ -589,6 +598,7 @@ The associated window gets scrolled to the same line."
(tc-scroll-line (* arg (- next-screen-context-lines
(window-height) -1))))
+;;;###autoload
(defun tc-recenter (arg)
"Center point in window. With ARG, put point on line ARG.
This counts from bottom if ARG is negative. The associated window