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

This commit is contained in:
Richard M. Stallman 1995-08-22 20:55:36 +00:00
parent d183f322f9
commit 5181be3a88

View file

@ -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))