summaryrefslogtreecommitdiff
path: root/lisp
diff options
context:
space:
mode:
authorRichard M. Stallman <rms@gnu.org>1997-09-01 22:44:22 +0000
committerRichard M. Stallman <rms@gnu.org>1997-09-01 22:44:22 +0000
commit213fcf3133ea57a0c8259a16ad44c902c694ae4b (patch)
tree61e8ab32eeb12ea3c7556a51ed15e74ddaaa689e /lisp
parent2c9391b6a4c853ea8fff9aa662d9d8548ec68b09 (diff)
downloademacs-213fcf3133ea57a0c8259a16ad44c902c694ae4b.tar.gz
(set-auto-coding): Recognize coding: in first
line even if not the first variable.
Diffstat (limited to 'lisp')
-rw-r--r--lisp/international/mule.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 05631e1a1bc..655eccb7452 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -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)))