| 
					
				 | 
			
			
				@@ -1199,12 +1199,12 @@ Throw an error if there is no such buffer." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       ;; insert new contents. 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (delete-overlay overlay) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (let ((expecting-bol (bolp))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	(if (version< emacs-version "26.1") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	(if (version< emacs-version "27.1") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    (progn (delete-region beg end) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		   (insert (with-current-buffer write-back-buf (buffer-string)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	    (save-restriction 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	      (narrow-to-region beg end) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	      (replace-buffer-contents write-back-buf) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	      (replace-buffer-contents write-back-buf 0.1 nil) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	      (goto-char (point-max)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	(when (and expecting-bol (not (bolp))) (insert "\n"))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				       (kill-buffer write-back-buf) 
			 | 
		
	
	
		
			
				| 
					
				 | 
			
			
				@@ -1246,13 +1246,13 @@ Throw an error if there is no such buffer." 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				        (undo-boundary) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				        (goto-char beg) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				        (let ((expecting-bol (bolp))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	 (if (version< emacs-version "26.1") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	 (if (version< emacs-version "27.1") 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	     (progn (delete-region beg end) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 		    (insert (with-current-buffer write-back-buf 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				                               (buffer-string)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	     (save-restriction 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	       (narrow-to-region beg end) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				-	       (replace-buffer-contents write-back-buf) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				+	       (replace-buffer-contents write-back-buf 0.1 nil) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	       (goto-char (point-max)))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				 	 (when (and expecting-bol (not (bolp))) (insert "\n"))))) 
			 | 
		
	
		
			
				 | 
				 | 
			
			
				     (when write-back-buf (kill-buffer write-back-buf)) 
			 |