From 9946be4640d850bcbb7c5989c5b1335ceb0852ad Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Tue, 1 Dec 2009 20:44:21 +0000 Subject: [PATCH] (tpu-cursor-free-mode): Emit message. (tpu-set-cursor-free, tpu-set-cursor-bound): Don't emit a message any more. --- lisp/ChangeLog | 6 ++++++ lisp/emulation/tpu-extras.el | 11 ++++++----- 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 93634ce6451..c0586d9b4ee 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2009-12-01 Rob Riepel + + * 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 * comint.el (comint-insert-input): Ignore clicks to the right of diff --git a/lisp/emulation/tpu-extras.el b/lisp/emulation/tpu-extras.el index 6d0823ceb75..2c8ac28157b 100644 --- a/lisp/emulation/tpu-extras.el +++ b/lisp/emulation/tpu-extras.el @@ -135,7 +135,10 @@ the previous line when starting from a line beginning." "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 @@ A repeat count means scroll that many sections." (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" -- 2.39.5