From: Kevin Rodgers <kevin.d.rodgers@gmail.com>
To: bug-gnu-emacs@gnu.org
Subject: bug#4587: Antwort: Re: bug#4587: 23.1; sort-lines and sort-fields always set buffer modified
Date: Sun, 25 Oct 2009 07:41:47 -0600 [thread overview]
Message-ID: <hc1kiq$m1o$1@ger.gmane.org> (raw)
In-Reply-To: <jwvocor6w42.fsf-monnier+emacsbugreports@gnu.org>
Stefan Monnier wrote:
>>> I'd indeed expect that to implement the feature you request, the code
>>> would have to do something like that. Most likely not copying the text
>>> itself, but instead storing an md5 or somesuch hash of the text.
>
>> Not suitable for Emacs, but maybe useful for Roland:
>
>> (defadvice sort-lines (around restore-buffer-modified-p activate)
>> (let* ((buffer-was-modified-p (buffer-modified-p))
>> (buffer-was-not-modified-md5 (if (not buffer-was-modified-p)
>> (md5 (current-buffer)))))
>> ad-do-it
>> (when (and (not buffer-was-modified-p)
>> (buffer-modified-p)
>> (not (equal buffer-was-not-modified-md5 (md5 (current-buffer)))))
>> (restore-buffer-modified-p buffer-was-modified-p))))
>
> Maybe we could make it suitable, turn it into a macro and use it around
> the various candidates. AFAICT, here are the problems I see with it:
> - the call to md5 should use as much as possible the internal encoding.
> I.e. at least pass an `emacs-internal' arg, tho it would be even
> better to let md5 work directly on the internal representation.
> - it should only work on the afected region rather than the whole buffer
> (i.e. it needs start..end arguments).
> - should it fiddle with the undo list? or even revert the whole
> "without-effect" set of changes (the changes may result in the same
> final text, but they may very well have moved markers and changed
> text-properties, and it might be desirable to undo those changes, so
> as to better pretend nothing happened).
Is this what you have in mind?
(defmacro with-maybe-region-modified (beg end &rest body)
"Execute BODY, then `restore-buffer-modified-p' if the contents are unchanged.
BODY should not change the current buffer or modify the contents outside the region
between BEG and END."
`(let* ((region-beg ,beg)
(region-end ,end)
(buffer-was-modified-p (buffer-modified-p))
(buffer-was-not-modified-md5 (if (not buffer-was-modified-p)
(md5 (current-buffer) region-beg region-end
'emacs-mule)))
;; (orig-buffer-undo-list buffer-undo-list)
(with-maybe-region-modified-result
(progn ,@body))) ; save-current-buffer?
(when (and (not buffer-was-modified-p)
(buffer-modified-p)
(not (equal buffer-was-not-modified-md5
(md5 (current-buffer) region-beg region-end
'emacs-mule))))
(restore-buffer-modified-p buffer-was-modified-p)
;; (setq buffer-undo-list orig-buffer-undo-list)
)
with-maybe-region-modified-result))
--
Kevin Rodgers
Denver, Colorado, USA
next prev parent reply other threads:[~2009-10-25 13:41 UTC|newest]
Thread overview: 12+ messages / expand[flat|nested] mbox.gz Atom feed top
2009-09-29 16:38 bug#4587: 23.1; sort-lines and sort-fields always set buffer modified Roland.Meier
2009-09-30 4:44 ` Stefan Monnier
2009-09-30 10:00 ` bug#4597: Antwort: " Roland.Meier
2009-09-30 13:51 ` bug#4587: " Stefan Monnier
2009-10-01 12:25 ` Kevin Rodgers
2009-10-01 14:19 ` Stefan Monnier
2009-10-25 13:41 ` Kevin Rodgers [this message]
2009-10-25 15:27 ` Stefan Monnier
2009-09-30 16:56 ` bug#4597: " Magnus Henoch
2022-05-03 19:24 ` bug#4587: " Lars Ingebrigtsen
2022-05-04 7:21 ` Eli Zaretskii
2022-05-04 7:53 ` Lars Ingebrigtsen
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.gnu.org/software/emacs/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to='hc1kiq$m1o$1@ger.gmane.org' \
--to=kevin.d.rodgers@gmail.com \
--cc=4587@emacsbugs.donarmstrong.com \
--cc=bug-gnu-emacs@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).