mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-22 04:21:24 -08:00
Code Issues 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:46:15 +00:00
parent e4d3a075c0
commit 16a5df72ec
2 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2001-10-15 Dave Love <fx@gnu.org>
* international/mule.el (set-auto-coding): Fix regexps for local
variables section not to eat newlines.
2001-10-13 Stefan Monnier <monnier@cs.yale.edu>
* bindings.el (esc-map): Revert `j' and `C-j' bindings to

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))