Mercurial > emacs

changeset 34207:93dbe8902ff0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tpu-write-file-hook) (tpu-set-cursor-bound): Replaced picture-clean with tpu-trim-line-ends.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 05 Dec 2000 13:59:08 +0000
parents 18117bc6bcdd
children 6059c5943d9f
files lisp/emulation/tpu-extras.el
diffstat 1 files changed, 2 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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