# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 1259700261 0
# Node ID cb52c961cfa5ed75cd4c02bd6622c353470d61c3
# Parent  d19d1b12196e97f928da9c7b1dc7beafd35134bf
(tpu-cursor-free-mode): Emit message.
(tpu-set-cursor-free, tpu-set-cursor-bound): Don't emit a message any more.

diff -r d19d1b12196e -r cb52c961cfa5 lisp/ChangeLog
--- 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
diff -r d19d1b12196e -r cb52c961cfa5 lisp/emulation/tpu-extras.el
--- 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"