Mercurial > emacs
changeset 76286:2b80d4245e1d
(find-auto-coding): Don't search for line-ending characters past the
end of the tail.
| author | Chong Yidong <cyd@stupidchicken.com> |
|---|---|
| date | Sat, 03 Mar 2007 22:03:04 +0000 |
| parents | bb157af2087d |
| children | 1043dd3d5dd8 |
| files | lisp/international/mule.el |
| diffstat | 1 files changed, 1 insertions(+), 1 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/international/mule.el Sat Mar 03 21:50:54 2007 +0000 +++ b/lisp/international/mule.el Sat Mar 03 22:03:04 2007 +0000 @@ -1735,7 +1735,7 @@ ;; is just "\r" and we can't use "^" nor "$" in regexp. (when (and tail-found (or (not coding-system) (not char-trans))) (goto-char tail-start) - (re-search-forward "[\r\n]\^L" nil t) + (re-search-forward "[\r\n]\^L" tail-end t) (if (re-search-forward "[\r\n]\\([^[\r\n]*\\)[ \t]*Local Variables:[ \t]*\\([^\r\n]*\\)[\r\n]" tail-end t)