martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(set-auto-coding): Fix regexps for local

Browse Source 
variables section not to eat newlines.
This commit is contained in:
Gerd Moellmann
2001-10-15 08:47:11 +00:00
parent dbae44c877
commit cfe98f5098
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/international/mule.el
View File

@@ -1365,15 +1365,17 @@ function by default."
(re-coding
(concat
"^" prefix
"[ \t]*coding[ \t]*:[ \t]*\\([^ \t]+\\)[ \t]*"
;; N.B. without the \n below, the regexp can
;; eat newlines.
"[ \t]*coding[ \t]*:[ \t]*\\([^ \t\n]+\\)[ \t]*"
suffix "$"))
(re-unibyte
(concat
"^" prefix
"[ \t]*unibyte[ \t]*:[ \t]*\\([^ \t]+\\)[ \t]*"
"[ \t]*unibyte[ \t]*:[ \t]*\\([^ \t\n]+\\)[ \t]*"
suffix "$"))
(re-end
(concat "^" prefix "[ \t]*end *:[ \t]*" suffix "$"))
(concat "^" prefix "[ \t]*End *:[ \t]*" suffix "$"))
(pos (point)))
(re-search-forward re-end tail-end 'move)
(setq tail-end (point))