[PATCH] Issue with format-alist (Buglet?)

[tomas@tuxteam.de]

-----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-----