hscroll-mode in compilation-hook

[Juan Leon Lahoz Garcia]

In GNU Emacs 20.7.1 (i386-redhat-linux-gnu, X toolkit)
 of Tue Jun 13 2000 on porky.devel.redhat.com

configured using `configure --mandir=/usr/man --infodir=/usr/info
--prefix=/usr --libexecdir=/usr/lib --sharedstatedir=/var --with-gcc
--with-pop --with-x-toolkit i386-redhat-linux-gnu'

I wanna my compilations buffers to be in hscroll-mode. In the days
of Emacs 20.3 I had this:

(setq compilation-mode-hook '(hscroll-mode))

witch was working okey. Now (in 20.7), that line seems to make the
compilation buffer to switch the hscroll mode (that is what
(hscroll-mode) do). So I did:
 
(defun set-hscroll-mode()
  (hscroll-mode t))
(setq compilation-mode-hook '(set-hscroll-mode))

This doesn't work. In the modeline it says "Hscr", but hscroll-mode
isn't being used.

The following does work as I want (It put the buffer in hscroll-mode,
then switch it two times):

(defun set-hscroll-mode()
  (hscroll-mode t)
  (hscroll-mode)
  (hscroll-mode))
(setq compilation-mode-hook '(set-hscroll-mode))

I think this code is a bit "strange", so all this might be a little
bug synthom.

--
Leon