diff options
| author | Richard M. Stallman | 1997-09-01 22:44:22 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1997-09-01 22:44:22 +0000 |
| commit | 35ce8cd7933732811dfcbc2d93f6cc0d5aca6305 (patch) | |
| tree | 505a547072bb709d0313548184a8e2cd568b7d26 | |
| parent | d062cf33059c6af0af7b50971e5839dadddbd50f (diff) | |
| download | emacs-35ce8cd7933732811dfcbc2d93f6cc0d5aca6305.tar.gz emacs-35ce8cd7933732811dfcbc2d93f6cc0d5aca6305.zip | |
(set-auto-coding): Recognize coding: in first
line even if not the first variable.
| -rw-r--r-- | lisp/international/mule.el | 6 |
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." | |||
| 645 | (or limit | 645 | (or limit |
| 646 | (setq limit len))) | 646 | (setq limit len))) |
| 647 | (setq limit len)) | 647 | (setq limit len)) |
| 648 | (when (and (string-match "-\\*-[ \t]*coding:[ \t]*\\([^ ;]+\\)" string) | 648 | (when (and (string-match "-\\*-\\(.*;\\)?[ \t]*coding:[ \t]*\\([^ ;]+\\)" string) |
| 649 | (< (match-beginning 1) limit)) | 649 | (< (match-beginning 2) limit)) |
| 650 | (setq coding-system | 650 | (setq coding-system |
| 651 | (intern (substring string (match-beginning 1) (match-end 1)))) | 651 | (intern (substring string (match-beginning 2) (match-end 2)))) |
| 652 | (if (not (coding-system-p coding-system)) | 652 | (if (not (coding-system-p coding-system)) |
| 653 | (setq coding-system nil))) | 653 | (setq coding-system nil))) |
| 654 | 654 | ||