Mercurial > emacs
changeset 106363:cb52c961cfa5
(tpu-cursor-free-mode): Emit message.
(tpu-set-cursor-free, tpu-set-cursor-bound): Don't emit a message any more.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Tue, 01 Dec 2009 20:44:21 +0000 |
| parents | d19d1b12196e |
| children | 2f2ce7005c10 |
| files | lisp/ChangeLog lisp/emulation/tpu-extras.el |
| diffstat | 2 files changed, 12 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/ChangeLog Tue Dec 01 20:31:57 2009 +0000 +++ b/lisp/ChangeLog Tue Dec 01 20:44:21 2009 +0000 @@ -1,3 +1,9 @@ +2009-12-01 Rob Riepel <riepel@networking.Stanford.EDU> + + * emulation/tpu-extras.el (tpu-cursor-free-mode): Emit message. + (tpu-set-cursor-free, tpu-set-cursor-bound): Don't emit a message + any more. + 2009-12-01 Stefan Monnier <monnier@iro.umontreal.ca> * comint.el (comint-insert-input): Ignore clicks to the right of
--- a/lisp/emulation/tpu-extras.el Tue Dec 01 20:31:57 2009 +0000 +++ b/lisp/emulation/tpu-extras.el Tue Dec 01 20:44:21 2009 +0000 @@ -135,7 +135,10 @@ "Minor mode to allow the cursor to move freely about the screen." :init-value nil (if (not tpu-cursor-free-mode) - (tpu-trim-line-ends))) + (tpu-trim-line-ends)) + (if (not tpu-cursor-free-mode) + (message "The cursor is now bound to the flow of your text.") + (message "The cursor will now move freely about the screen."))) ;;; Hooks -- Set cursor free in picture mode. @@ -447,15 +450,13 @@ (defun tpu-set-cursor-free () "Allow the cursor to move freely about the screen." (interactive) - (tpu-cursor-free-mode 1) - (message "The cursor will now move freely about the screen.")) + (tpu-cursor-free-mode 1)) ;;;###autoload (defun tpu-set-cursor-bound () "Constrain the cursor to the flow of the text." (interactive) - (tpu-cursor-free-mode -1) - (message "The cursor is now bound to the flow of your text.")) + (tpu-cursor-free-mode -1)) ;; Local Variables: ;; generated-autoload-file: "tpu-edt.el"