Mercurial > emacs
diff lisp/emulation/tpu-extras.el @ 34207:93dbe8902ff0
(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 | a1f20ca97c0b |
children | b174db545cfd |
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