diff options
| author | Gerd Moellmann <gerd@gnu.org> | 2000-12-05 13:59:08 +0000 |
|---|---|---|
| committer | Gerd Moellmann <gerd@gnu.org> | 2000-12-05 13:59:08 +0000 |
| commit | 918b0076ced8cb7e3a25fb4788a31a649b88d12c (patch) | |
| tree | 92ed97d5e5a35ec4c4695da6ee1fe2faf68d4608 /lisp | |
| parent | d49af51c3213e22620724f05283059619f808556 (diff) | |
| download | emacs-918b0076ced8cb7e3a25fb4788a31a649b88d12c.tar.gz emacs-918b0076ced8cb7e3a25fb4788a31a649b88d12c.tar.bz2 emacs-918b0076ced8cb7e3a25fb4788a31a649b88d12c.zip | |
(tpu-write-file-hook)
(tpu-set-cursor-bound): Replaced picture-clean with
tpu-trim-line-ends.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/emulation/tpu-extras.el | 4 |
1 files changed, 2 insertions, 2 deletions
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 |