Commits

Anonymous committed e5fecf3

Mimic write-region's kludgy feature <1134818608.13582.92.camel@bobcat.mine.nu>

Comments (0)

Files changed (2)

+2005-12-17  Ville Skyttä  <scop@xemacs.org>
+
+	* 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@xemacs.org>
 
 	* Makefile (VERSION): XEmacs package 1.15 released.
 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