[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: bug#1898 is in your domain
From: |
Kenichi Handa |
Subject: |
Re: bug#1898 is in your domain |
Date: |
Wed, 04 Feb 2009 16:51:03 +0900 |
In article <address@hidden>, Kenichi Handa <address@hidden> writes:
> In article <address@hidden>, Richard Stallman <address@hidden> writes:
> > Would you please investigate this bug, which is bug report bug#1898?
> > You are the expert on this code.
> Ok.
The problem was that font-lock incremented
buffer-modified-tick when the buffer was scrolled to show
problematic characters. I've just installed this fix.
* international/mule-cmds.el (select-safe-coding-system): Use
buffer-chars-modified-tick instead of buffer-modified-tick.
---
Kenichi Handa
address@hidden
> > Content-Type: text/plain; charset=ISO-8859-15
> > From: Richard M Stallman <address@hidden>
> > To: address@hidden
> > Subject: 23.0.60; choosing coding system
> > bcc: address@hidden
> > Reply-to: address@hidden
> > --text follows this line--
> > When I visit the file losing.mbox in Pmail using C-u M-x pmail RET
> > losing.mbox RET, then run M-x lynx (see code below), it asks me to
> > specify the coding system. When I type RET to choose the default,
> > raw-text, it gives me this error:
> > select-safe-coding-system: Cancelled because the buffer was modified
> > This only fails the first time. If you type M-x lynx again, it works.
> > However, if you type the . command which makes Pmail display the
> > message, the next M-x lynx will fail again. I did not report this
> > before, because the problem was very inconvenient to reproduce in
> > Rmail. Reproducing it with Pmail is much easier because you can re-arm
> > the bug with the . command.
> > I tried to investigate a previous case of this, and found that the
> > buffer was indeed marked as modified during the function that read the
> > coding system name. That was inside coding.c, which I do not
> > understand, so I did not try to track it down.
> > (The buffer text is not in fact changed. I have no easy way
> > to see if any text properties were changed. But maybe this
> > does not matter.)
> > (defun lynx ()
> > (interactive)
> > (unless (re-search-backward "^From address@hidden" nil t)
> > (goto-char (point-min)))
> > (save-excursion
> > (search-forward "/bin/sh")
> > (forward-line 3)
> > (let ((start (point)))
> > (search-forward "!EOF!")
> > (beginning-of-line)
> > (write-region start (point) "~/foo.html"))))
> > Here's the mailbox, uuencoded.
> [...]