[Emacs-diffs] emacs/lisp ChangeLog emulation/tpu-extras.el

[Stefan Monnier]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Stefan Monnier <monnier>        09/12/01 20:44:24

Modified files:
        lisp           : ChangeLog 
        lisp/emulation : tpu-extras.el 

Log message:
        (tpu-cursor-free-mode): Emit message.
        (tpu-set-cursor-free, tpu-set-cursor-bound): Don't emit a message any 
more.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16790&r2=1.16791
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/emulation/tpu-extras.el?cvsroot=emacs&r1=1.29&r2=1.30

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16790
retrieving revision 1.16791
diff -u -b -r1.16790 -r1.16791
--- ChangeLog   1 Dec 2009 20:31:57 -0000       1.16790
+++ ChangeLog   1 Dec 2009 20:44:21 -0000       1.16791
@@ -1,3 +1,9 @@
+2009-12-01  Rob Riepel  <address@hidden>
+
+       * 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  <address@hidden>
 
        * comint.el (comint-insert-input): Ignore clicks to the right of

Index: emulation/tpu-extras.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/emulation/tpu-extras.el,v
retrieving revision 1.29
retrieving revision 1.30
diff -u -b -r1.29 -r1.30
--- emulation/tpu-extras.el     2 Oct 2009 03:48:44 -0000       1.29
+++ emulation/tpu-extras.el     1 Dec 2009 20:44:24 -0000       1.30
@@ -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"