Mercurial > emacs

comparison lisp/international/mule.el @ 83560:738ce3540ffb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merged from emacs@sv.gnu.org Patches applied: * emacs@sv.gnu.org/emacs--devo--0--patch-660 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-661 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-662 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-663 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-664 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-665 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-666 Fix read-only prompt problem in isearch * emacs@sv.gnu.org/emacs--devo--0--patch-667 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-668 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-669 Merge from gnus--rel--5.10 * emacs@sv.gnu.org/emacs--devo--0--patch-670 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-671 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-672 Update from CVS * emacs@sv.gnu.org/emacs--devo--0--patch-673 Update from CVS * emacs@sv.gnu.org/gnus--rel--5.10--patch-206 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-207 Merge from emacs--devo--0 * emacs@sv.gnu.org/gnus--rel--5.10--patch-208 Update from CVS git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-600
author Karoly Lorentey <karoly@lorentey.hu>
date Sun, 22 Apr 2007 12:12:29 +0000
parents 07774e5c3ff5 2b80d4245e1d
children dc002877ce12
comparison
equal deleted inserted replaced
83559:edf631bdbb7a 83560:738ce3540ffb
1740 ;; If no coding: tag in the head, check the tail. 1740 ;; If no coding: tag in the head, check the tail.
1741 ;; Here we must pay attention to the case that the end-of-line 1741 ;; Here we must pay attention to the case that the end-of-line
1742 ;; is just "\r" and we can't use "^" nor "$" in regexp. 1742 ;; is just "\r" and we can't use "^" nor "$" in regexp.
1743 (when (and tail-found (or (not coding-system) (not char-trans))) 1743 (when (and tail-found (or (not coding-system) (not char-trans)))
1744 (goto-char tail-start) 1744 (goto-char tail-start)
1745 (re-search-forward "[\r\n]\^L" nil t) 1745 (re-search-forward "[\r\n]\^L" tail-end t)
1746 (if (re-search-forward 1746 (if (re-search-forward
1747 "[\r\n]\\([^[\r\n]*\\)[ \t]*Local Variables:[ \t]*\\([^\r\n]*\\)[\r\n]" 1747 "[\r\n]\\([^[\r\n]*\\)[ \t]*Local Variables:[ \t]*\\([^\r\n]*\\)[\r\n]"
1748 tail-end t) 1748 tail-end t)
1749 ;; The prefix is what comes before "local variables:" in its 1749 ;; The prefix is what comes before "local variables:" in its
1750 ;; line. The suffix is what comes after "local variables:" 1750 ;; line. The suffix is what comes after "local variables:"