[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[PATCH] Issue with format-alist (Buglet?)
From: |
tomas |
Subject: |
[PATCH] Issue with format-alist (Buglet?) |
Date: |
Wed, 6 Aug 2008 10:43:11 +0200 |
User-agent: |
Mutt/1.5.15+20070412 (2007-04-11) |
-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1
Hi,
the following patch seems to solve the issue with me (i.e. wrapping
inhibit-read-only around munging copy-buf in format.el). I don't know
whether it is The Right Thing, but it might help to pin-point the
problem:
RCS file: /sources/emacs/emacs/lisp/format.el,v
retrieving revision 1.61
diff -r1.61 format.el
219,227c219,228
< (with-current-buffer copy-buf
< (setq selective-display sel-disp)
< (set-buffer-multibyte multibyte)
< (setq buffer-file-coding-system coding-system))
< (copy-to-buffer copy-buf from to)
< (set-buffer copy-buf)
< (format-insert-annotations write-region-annotations-so-far from)
< (format-encode-run-method to-fn (point-min) (point-max) orig-buf)
< nil)
- ---
> (let ((inhibit-read-only t))
> (with-current-buffer copy-buf
> (setq selective-display sel-disp)
> (set-buffer-multibyte multibyte)
> (setq buffer-file-coding-system coding-system))
> (copy-to-buffer copy-buf from to)
> (set-buffer copy-buf)
> (format-insert-annotations write-region-annotations-so-far
> from)
> (format-encode-run-method to-fn (point-min) (point-max)
> orig-buf)
> nil))
Regards
- -- tomás
-----BEGIN PGP SIGNATURE-----
Version: GnuPG v1.4.6 (GNU/Linux)
iD8DBQFImWQfBcgs9XrR2kYRAvp3AJ9GP/kZPFqgZbl0j0kvGW/rfSWCTACfcFhF
Ce836bAJCnwN71NMPzoxPYo=
=0AYv
-----END PGP SIGNATURE-----