From: Gerd Moellmann <gerd@gnu.org>
Date: Tue, 5 Dec 2000 13:59:08 +0000 (+0000)
Subject: (tpu-write-file-hook)
X-Git-Tag: emacs-pretest-21.0.93~214
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=918b0076ced8cb7e3a25fb4788a31a649b88d12c;p=emacs.git

(tpu-write-file-hook)
(tpu-set-cursor-bound): Replaced picture-clean with
tpu-trim-line-ends.
---

diff --git a/lisp/emulation/tpu-extras.el b/lisp/emulation/tpu-extras.el
index 4422aebdbd5..479af176526 100644
--- a/lisp/emulation/tpu-extras.el
+++ b/lisp/emulation/tpu-extras.el
@@ -142,7 +142,7 @@ the previous line when starting from a line beginning."
 
 (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 @@ version that respects the bottom scroll margin."
 (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