bug#4366: 23.1; Can't turn off visual-line-mode via html-mode-hook

[Allan Gottlieb]

Please write in English if possible, because the Emacs maintainers
usually do not have translators to read other languages for them.

Your bug report will be posted to the bug-gnu-emacs@gnu.org mailing list,
and to the gnu.emacs.bug news group.

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

Have /tmp/fun.el contain
(defun visual-off-fill-on ()
  "For html, turn OFF visual-line-mode and turn-ON auto fill"
  (visual-line-mode 0)
  (auto-fill-mode 1))

Start emacs -Q
(load-file "/tmp/fun.el")
(global-visual-line-mode)
(add-hook 'html-mode-hook 'visual-off-fill-on)
(find-file "/tmp/x.html")   ; non-existent file

mode line shows fill as expected, but also shows wrap, the bug.

However, if one does instead

Start emacs -Q
(load-file "/tmp/fun.el")
(global-visual-line-mode)
(find-file "/tmp/x.html")   ; non-existent file
(visual-off-fill-on)

then all is well (mode line shows fill and not wrap).

thanks for emacs,
allan

If Emacs crashed, and you have the Emacs process in the gdb debugger,
please include the output from the following gdb commands:
    `bt full' and `xbacktrace'.
If you would like to further debug the crash, please read the file
/usr/share/emacs/23.1/etc/DEBUG for instructions.


In GNU Emacs 23.1.1 (i686-pc-linux-gnu, GTK+ Version 2.14.7)
 of 2009-08-17 on ajglap
Windowing system distributor `The X.Org Foundation', version 11.0.10503000
configured using `configure  '--prefix=/usr' '--build=i686-pc-linux-gnu' 
'--host=i686-pc-linux-gnu' '--mandir=/usr/share/man' 
'--infodir=/usr/share/info' '--datadir=/usr/share' '--sysconfdir=/etc' 
'--localstatedir=/var/lib' '--program-suffix=-emacs-23' 
'--infodir=/usr/share/info/emacs-23' '--with-sound' '--with-x' 
'--with-toolkit-scroll-bars' '--with-gif' '--with-jpeg' '--with-png' 
'--without-rsvg' '--with-tiff' '--with-xpm' '--with-xft' '--without-libotf' 
'--without-m17n-flt' '--with-x-toolkit=gtk' '--without-hesiod' 
'--without-kerberos' '--without-kerberos5' '--with-gpm' '--with-dbus' 
'build_alias=i686-pc-linux-gnu' 'host_alias=i686-pc-linux-gnu' 'CFLAGS=-O2 
-march=prescott -pipe' 'LDFLAGS=-Wl,-O1''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: nil
  value of $XMODIFIERS: nil
  locale-coding-system: nil
  default-enable-multibyte-characters: t

Major mode: Summary

Minor modes in effect:
  gnus-mailing-list-mode: t
  iswitchb-mode: t
  delete-selection-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  global-auto-composition-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
. <return> <return> I SPC p l a n SPC o n SPC s u b 
<backspace> <backspace> <backspace> f i l l <backspace> 
i n g SPC a SPC b u g SPC r e p o r t SPC u n l e s 
s SPC s o m e o n e SPC e x p l a i n s SPC <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> <backspace> 
<backspace> <backspace> <backspace> <backspace> . <return> 
<return> <help-echo> <down-mouse-1> <mouse-1> <double-down-mouse-1> 
<double-mouse-1> <triple-down-mouse-1> <mouse-movement> 
<mouse-movement> <triple-drag-mouse-1> <help-echo> 
<down-mouse-1> <mouse-1> a l l a n <return> C-c C-c 
<help-echo> <help-echo> M-x r e p o r t - e m a c s 
- u <backspace> b u g <return> c a n t <backspace> 
' t SPC t u r n SPC v i s u a l - l i n e - m o d e 
SPC o f f SPC v i a SPC h t m l - m o d e - h o o k 
<help-echo> <select-window> <down-mouse-1> <mouse-1> 
C-x b <help-echo> C-x o C-x o C-x b i n f o <return> 
u u <up> <up> <up> <return> <down> <down> <down> <down> 
<down> <down> <down> <right> <right> <right> <right> 
<right> <right> <right> <right> <right> <right> <right> 
<right> <right> <right> <return> C-s h t m l C-g <next> 
<next> <next> <next> <next> <next> <next> <next> <next> 
<next> q <select-window> <help-echo> <select-window> 
<help-echo> <select-window> <help-echo> <select-window> 
M-x r e p o r t - e m a c s - b u g <return> C-g C-x 
b C-s b u C-g M-x r e p o r t - e m a c s - b u g 
<return>

Recent messages:
Auto-saving...done
Sending...
Sending via mail...
Wrote /home/gottlieb/Mail/MAIL/320979
Sending...done
byte-code: Command attempted to use minibuffer while in minibuffer
bunzip2ing elisp-4.info.bz2...done
bunzip2ing elisp-10.info.bz2...done
Mark saved where search started
Quit
Quit