User: scop Date: 05/12/23 18:32:51 Modified: packages/mule-packages/latin-unity ChangeLog latin-unity.el Log: Mimic write-region's kludgy feature <1134818608.13582.92.camel(a)bobcat.mine.nu&gt; Revision Changes Path 1.42 +5 -0 XEmacs/packages/mule-packages/latin-unity/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/ChangeLog,v retrieving revision 1.41 retrieving revision 1.42 diff -u -p -r1.41 -r1.42 --- ChangeLog 2005/04/10 13:50:28 1.41 +++ ChangeLog 2005/12/23 17:32:50 1.42 ＠＠ -1,3 +1,8 ＠＠ +2005-12-17 Ville Skyttä <scop(a)xemacs.org&gt; + + * latin-unity.el (latin-unity-sanity-check): Mimic `write-region's + kludgy feature where the region's start offset is a string. + 2005-04-10 Norbert Koch <viteno(a)xemacs.org&gt; * Makefile (VERSION): XEmacs package 1.15 released. 1.13 +5 -2 XEmacs/packages/mule-packages/latin-unity/latin-unity.el Index: latin-unity.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/packages/mule-packages/latin-unity/latin-unity.el,v retrieving revision 1.12 retrieving revision 1.13 diff -u -p -r1.12 -r1.13 --- latin-unity.el 2005/02/15 22:22:48 1.12 +++ latin-unity.el 2005/12/23 17:32:50 1.13 ＠＠ -551,11 +551,14 ＠＠ to the Mule detection mechanism. This c setting `buffer-file-coding-system' to nil or 'no-conversion or 'binary. This function is intended for use as a `write-region-pre-hook'. It does -nothing except return nil if `write-region' handlers are inhibited." +nothing except return nil if `write-region' handlers are inhibited, or if +BEGIN is a string (to support the corresponding \"kludgy feature\" of +`write-region')." ;; don't do anything if we're in a `write-region' handler ;; #### is nil the right return value if we are? - (if (eq inhibit-file-name-operation 'write-region) + ;; Bypass also on `write-region's "klugdy feature" where BEGIN is a string + (if (or (eq inhibit-file-name-operation 'write-region) (stringp begin)) nil (prog1 (let ((buffer-default