# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 809124936 0
# Node ID 7fd541abf2afe065ebc1ab931ad31f2d1385a548
# Parent  61f11030ecc99006aa1a3b54d82ec92aabd57594
(2C-mode): Use make-local-hook and add-hook.

diff -r 61f11030ecc9 -r 7fd541abf2af lisp/textmodes/two-column.el
--- a/lisp/textmodes/two-column.el	Tue Aug 22 20:30:57 1995 +0000
+++ b/lisp/textmodes/two-column.el	Tue Aug 22 20:55:36 1995 +0000
@@ -302,10 +302,10 @@
 The appearance of the screen can be customized by the variables
 `2C-window-width', `2C-beyond-fill-column', `2C-mode-line-format' and
 `truncate-partial-width-windows'."
-  (make-variable-buffer-local 'post-command-hook)
+  (make-local-hook 'post-command-hook)
+  (add-hook 'post-command-hook '2C-autoscroll nil t)
   (setq fill-column (- 2C-window-width
 		       2C-beyond-fill-column)
-	post-command-hook '2C-autoscroll
 	mode-line-format 2C-mode-line-format
 	2C-mode other)
   (run-hooks '2C-mode-hook))