Mercurial > emacs

comparison lisp/international/mule.el @ 22083:3a0152d73914

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-auto-coding): Exclude \n when matching the coding system name.
author Richard M. Stallman <rms@gnu.org>
date Fri, 15 May 1998 22:24:17 +0000
parents e977f2414da5
children 8e8f1bc7f743
comparison
equal deleted inserted replaced
22082:84bcdbc46d71 22083:3a0152d73914
817 (match-beginning 1) (match-end 1)))) 817 (match-beginning 1) (match-end 1))))
818 (suffix (regexp-quote 818 (suffix (regexp-quote
819 (substring string 819 (substring string
820 (match-beginning 2) (match-end 2)))) 820 (match-beginning 2) (match-end 2))))
821 (re-coding (concat "^" prefix 821 (re-coding (concat "^" prefix
822 "coding[ \t]*:[ \t]*\\([^ \t]+\\)[ \t]*" 822 "coding[ \t]*:[ \t]*\\([^ \t\n]+\\)[ \t]*"
823 suffix "$")) 823 suffix "$"))
824 (re-end (concat "^" prefix "end *:[ \t]*" suffix "$")) 824 (re-end (concat "^" prefix "end *:[ \t]*" suffix "$"))
825 (limit (or (string-match re-end string idx) len))) 825 (limit (or (string-match re-end string idx) len)))
826 (when (and (setq idx (string-match re-coding string idx)) 826 (when (and (setq idx (string-match re-coding string idx))
827 (< idx limit)) 827 (< idx limit))