hack-local-variables bug?

[David PONCE]

Hi All,

When opening the etc/NEWS file with `case-fold-search' customized to
be nil, I got this error:

Debugger entered--Lisp error: (error "Local variables list is not
properly terminated")
  signal(error ("Local variables list is not properly terminated"))
  error("Local variables list is not properly terminated")
  hack-local-variables()
  normal-mode(t)
  after-find-file(nil t)
  find-file-noselect-1(#<buffer NEWS> "~/installs/emacs/etc/NEWS" nil
  nil "~/installs/emacs/etc/NEWS" (1096062 771))
  find-file-noselect("~/installs/emacs/etc/NEWS" nil nil nil)
  find-file("~/installs/emacs/etc/NEWS")

It looks like a let bind of `case-fold-search' is missing in
`hack-local-variables'. This patch fixes the problem for me, however I
am not sure it is the right thing to do.

---------- cut here
Index: files.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/files.el,v
retrieving revision 1.745
diff -c -r1.745 files.el
*** files.el    9 Feb 2005 15:50:42 -0000       1.745
--- files.el    14 Mar 2005 10:00:40 -0000
***************
*** 2245,2251 ****
          (forward-line 1)
          (let ((startpos (point))
                endpos
!               (thisbuf (current-buffer)))
            (save-excursion
              (if (not (re-search-forward
                        (concat prefix "[ \t]*End:[ \t]*" suffix)
--- 2245,2252 ----
          (forward-line 1)
          (let ((startpos (point))
                endpos
!               (thisbuf (current-buffer))
!               (case-fold-search t))
            (save-excursion
              (if (not (re-search-forward
                        (concat prefix "[ \t]*End:[ \t]*" suffix)
---------- cut here

Regards,
David

In GNU Emacs 22.0.50.16 (i686-pc-linux-gnu, GTK+ Version 2.4.14)
 of 2005-03-14 on maunakea
Distributor `The X.Org Foundation', version 11.0.60700000
configured using `configure '--with-gtk'

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: en_US.UTF-8
  locale-coding-system: utf-8
  default-enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  auto-compression-mode: t
  global-auto-revert-mode: t
  msb-mode: t
  recentf-mode: t
  tabbar-mwheel-mode: t
  tabbar-mode: t
  cua-mode: t
  tooltip-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  column-number-mode: t
  line-number-mode: t
  transient-mark-mode: t