mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-27 07:41:28 -08:00
Code Issues Projects Releases Wiki Activity

(set-auto-coding): Recognize coding: in first

Browse source 
line even if not the first variable.
This commit is contained in:
Richard M. Stallman 1997-09-01 22:44:22 +00:00
parent d062cf3305
commit 35ce8cd793
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
lisp/international/mule.el
View file

@ -645,10 +645,10 @@ function by default."
(or limit
(setq limit len)))
(setq limit len))
(when (and (string-match "-\\*-[ \t]*coding:[ \t]*\\([^ ;]+\\)" string)
(< (match-beginning 1) limit))
(when (and (string-match "-\\*-\\(.*;\\)?[ \t]*coding:[ \t]*\\([^ ;]+\\)" string)
(< (match-beginning 2) limit))
(setq coding-system
(intern (substring string (match-beginning 1) (match-end 1))))
(intern (substring string (match-beginning 2) (match-end 2))))
(if (not (coding-system-p coding-system))
(setq coding-system nil)))