changeset 1904:cca15d76f3e5

* two-column.el: Add autoloads for the functions defined in tc-mode-map.

--- a/lisp/textmodes/two-column.el	Mon Feb 22 14:16:25 1993 +0000
+++ b/lisp/textmodes/two-column.el	Mon Feb 22 14:16:48 1993 +0000
@@ -302,6 +302,7 @@
 	    (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 @@
 
 (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 @@
     (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 @@
 	  (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 @@
 
 ;; 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 @@
 
 ;;;;; utility functions ;;;;;
 
+;;;###autoload
 (defun tc-associated-buffer ()
   "Switch to associated buffer."
   (interactive)
@@ -550,6 +556,7 @@
 
 ;; 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 @@
 	    (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 @@
   (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 @@
   (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