Mercurial > emacs

comparison lisp/international/mule.el @ 25144:edfd929009d5

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-auto-coding): Allow whitespace before and after the "variable: value" pair.
author Eli Zaretskii <eliz@gnu.org>
date Sun, 01 Aug 1999 10:20:43 +0000
parents 856a475f3fc3
children aaa595530183
comparison
equal deleted inserted replaced
25143:5decc043e9bf 25144:edfd929009d5
987 ;; The prefix is what comes before "local variables:" in its 987 ;; The prefix is what comes before "local variables:" in its
988 ;; line. The suffix is what comes after "local variables:" 988 ;; line. The suffix is what comes after "local variables:"
989 ;; in its line. 989 ;; in its line.
990 (let* ((prefix (regexp-quote (match-string 1))) 990 (let* ((prefix (regexp-quote (match-string 1)))
991 (suffix (regexp-quote (match-string 2))) 991 (suffix (regexp-quote (match-string 2)))
992 (re-coding (concat 992 (re-coding
993 "^" prefix 993 (concat
994 "coding[ \t]*:[ \t]*\\([^ \t]+\\)[ \t]*" 994 "^" prefix
995 suffix "$")) 995 "[ \t]*coding[ \t]*:[ \t]*\\([^ \t]+\\)[ \t]*"
996 (re-unibyte (concat 996 suffix "$"))
997 "^" prefix 997 (re-unibyte
998 "unibyte[ \t]*:[ \t]*\\([^ \t]+\\)[ \t]*" 998 (concat
999 suffix "$")) 999 "^" prefix
1000 (re-end (concat 1000 "[ \t]*unibyte[ \t]*:[ \t]*\\([^ \t]+\\)[ \t]*"
1001 "^" prefix "end *:[ \t]*" suffix "$")) 1001 suffix "$"))
1002 (re-end
1003 (concat "^" prefix "[ \t]*end *:[ \t]*" suffix "$"))
1002 (pos (point))) 1004 (pos (point)))
1003 (re-search-forward re-end tail-end 'move) 1005 (re-search-forward re-end tail-end 'move)
1004 (setq tail-end (point)) 1006 (setq tail-end (point))
1005 (goto-char pos) 1007 (goto-char pos)
1006 (when (and set-auto-coding-for-load 1008 (when (and set-auto-coding-for-load