[Patch] Correctly handle file local variables containing a ":"

[Patch] Correctly handle file local variables containing a ":"

[Bastien]

[-- Attachment #1: Type: text/plain, Size: 285 bytes --]

Hi,

this patch handles the issue reported by Eric here:
  http://debbugs.gnu.org/cgi/bugreport.cgi?bug=14089

The idea is to allow setting file local variables which
contain a ":" in their names, as this seems to be allowed.

If no-one objects, I'll apply this in two days.

Thanks,


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: files.el.patch --]
[-- Type: text/x-patch, Size: 784 bytes --]

=== modified file 'lisp/files.el'
--- lisp/files.el	2013-03-24 06:42:25 +0000
+++ lisp/files.el	2013-04-03 12:07:47 +0000
@@ -3046,7 +3046,7 @@
 	    result)
 	(cond ((not end)
 	       nil)
-	      ((looking-at "[ \t]*\\([^ \t\n\r:;]+\\)\\([ \t]*-\\*-\\)")
+	      ((looking-at "[ \t]*\\([^ \t\n\r;]+\\)\\([ \t]*-\\*-\\)")
 	       ;; Simple form: "-*- MODENAME -*-".
 	       (if mode-only
 		   (intern (concat (match-string 1) "-mode"))))
@@ -3058,7 +3058,7 @@
 	       (while (and (or (not mode-only)
 			       (not result))
 			   (< (point) end))
-		 (unless (looking-at "[ \t]*\\([^ \t\n:]+\\)[ \t]*:[ \t]*")
+		 (unless (looking-at "[ \t]*\\([^ \t\n]+\\)[ \t]*:[ \t]*")
 		   (message "Malformed mode-line")
 		   (throw 'malformed-line nil))
 		 (goto-char (match-end 0))


[-- Attachment #3: Type: text/plain, Size: 14 bytes --]


-- 
 Bastien