Mercurial > emacs
diff lisp/emulation/tpu-extras.el @ 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 | bd2966850aac |
children | 1d1d5d9bd884 |
line wrap: on
line diff
--- 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"