(2C-mode): Use make-local-hook and add-hook.

diff --git a/lisp/textmodes/two-column.el b/lisp/textmodes/two-column.el
index 915661486eec846a2afc50b1dfed476cc37b2f53..9b27b5ee37c371448739eeb624063f363be4b38b 100644 (file)
--- a/lisp/textmodes/two-column.el
+++ b/lisp/textmodes/two-column.el
@@ -302,10 +302,10 @@ These keybindings can be customized in your ~/.emacs by `2C-mode-map',
 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))