Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Posting-Version: version B 2.10.1 6/24/83; site mit-eddie.UUCP
Path: utzoo!watmath!clyde!burl!ulysses!allegra!mit-eddie!rms@mit-prep
From: rms@mit-prep
Newsgroups: net.emacs
Subject: Bug fix for 16.60
Message-ID: <69@mit-eddie.UUCP>
Date: Fri, 11-Oct-85 21:53:31 EDT
Article-I.D.: mit-eddi.69
Posted: Fri Oct 11 21:53:31 1985
Date-Received: Mon, 14-Oct-85 03:23:43 EDT
Sender: daemon@mit-eddi.UUCP
Organization: MIT, Cambridge, MA
Lines: 46

From: Richard M. Stallman <rms@mit-prep>
This allows `End:' to be used to terminate a
local variable list, as the manual says, not just `end:'.
It also allows backslashes to serve as quotes in the names
of the local variables.


*** files.el.~4~	Wed Oct  9 17:44:57 1985
--- files.el	Fri Oct 11 02:06:21 1985
***************
*** 322,328
  	    (skip-chars-forward "^:\n")
  	    (if (eolp) (error "Missing colon in local variables entry"))
  	    (skip-chars-backward " \t")
! 	    (let ((var (intern (buffer-substring beg (point))))
  		  val)
  	      ;; Setting variable named "end" means end of list.
  	      (if (eq var 'end)

--- 322,329 -----
  	    (skip-chars-forward "^:\n")
  	    (if (eolp) (error "Missing colon in local variables entry"))
  	    (skip-chars-backward " \t")
! 	    (let* ((str (buffer-substring beg (point)))
! 		   (var (read str))
  		  val)
  	      ;; Setting variable named "end" means end of list.
  	      (if (string-equal str "end")
***************
*** 325,331
  	    (let ((var (intern (buffer-substring beg (point))))
  		  val)
  	      ;; Setting variable named "end" means end of list.
! 	      (if (eq var 'end)
  		  (setq continue nil)
  		;; Otherwise read the variable value.
  		(skip-chars-forward "^:")

--- 326,332 -----
  		   (var (read str))
  		  val)
  	      ;; Setting variable named "end" means end of list.
! 	      (if (string-equal str "end")
  		  (setq continue nil)
  		;; Otherwise read the variable value.
  		(skip-chars-forward "^:")