# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 976024748 0
# Node ID 93dbe8902ff0693537b0a6779f72486e4be79d3e
# Parent  18117bc6bcdd1232e0dbe9c26c517aea7950d564
(tpu-write-file-hook)
(tpu-set-cursor-bound): Replaced picture-clean with
tpu-trim-line-ends.

diff -r 18117bc6bcdd -r 93dbe8902ff0 lisp/emulation/tpu-extras.el
--- a/lisp/emulation/tpu-extras.el	Tue Dec 05 13:58:49 2000 +0000
+++ b/lisp/emulation/tpu-extras.el	Tue Dec 05 13:59:08 2000 +0000
@@ -142,7 +142,7 @@
 
 (defun tpu-write-file-hook nil
   "Eliminate whitespace at ends of lines, if the cursor is free."
-  (if (and (buffer-modified-p) tpu-cursor-free) (picture-clean)))
+  (if (and (buffer-modified-p) tpu-cursor-free) (tpu-trim-line-ends)))
 
 (or (memq 'tpu-write-file-hook write-file-hooks)
     (setq write-file-hooks
@@ -473,7 +473,7 @@
 (defun tpu-set-cursor-bound nil
   "Constrain the cursor to the flow of the text."
   (interactive)
-  (picture-clean)
+  (tpu-trim-line-ends)
   (setq tpu-cursor-free nil)
   (substitute-key-definition 'tpu-set-cursor-bound
 			     'tpu-set-cursor-free