Mercurial > emacs
comparison 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 |
comparison
equal
deleted
inserted
replaced
| 34206:18117bc6bcdd | 34207:93dbe8902ff0 |
|---|---|
| 140 | 140 |
| 141 (add-hook 'picture-mode-hook 'tpu-set-cursor-free) | 141 (add-hook 'picture-mode-hook 'tpu-set-cursor-free) |
| 142 | 142 |
| 143 (defun tpu-write-file-hook nil | 143 (defun tpu-write-file-hook nil |
| 144 "Eliminate whitespace at ends of lines, if the cursor is free." | 144 "Eliminate whitespace at ends of lines, if the cursor is free." |
| 145 (if (and (buffer-modified-p) tpu-cursor-free) (picture-clean))) | 145 (if (and (buffer-modified-p) tpu-cursor-free) (tpu-trim-line-ends))) |
| 146 | 146 |
| 147 (or (memq 'tpu-write-file-hook write-file-hooks) | 147 (or (memq 'tpu-write-file-hook write-file-hooks) |
| 148 (setq write-file-hooks | 148 (setq write-file-hooks |
| 149 (cons 'tpu-write-file-hook write-file-hooks))) | 149 (cons 'tpu-write-file-hook write-file-hooks))) |
| 150 | 150 |
| 471 | 471 |
| 472 ;;;###autoload | 472 ;;;###autoload |
| 473 (defun tpu-set-cursor-bound nil | 473 (defun tpu-set-cursor-bound nil |
| 474 "Constrain the cursor to the flow of the text." | 474 "Constrain the cursor to the flow of the text." |
| 475 (interactive) | 475 (interactive) |
| 476 (picture-clean) | 476 (tpu-trim-line-ends) |
| 477 (setq tpu-cursor-free nil) | 477 (setq tpu-cursor-free nil) |
| 478 (substitute-key-definition 'tpu-set-cursor-bound | 478 (substitute-key-definition 'tpu-set-cursor-bound |
| 479 'tpu-set-cursor-free | 479 'tpu-set-cursor-free |
| 480 GOLD-map) | 480 GOLD-map) |
| 481 (message "The cursor is now bound to the flow of your text.")) | 481 (message "The cursor is now bound to the flow of your text.")) |