mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(tpu-cursor-free-mode): Emit message.

Browse Source 
(tpu-set-cursor-free, tpu-set-cursor-bound): Don't emit a message any more.
This commit is contained in:
Stefan Monnier 2009-12-01 20:44:21 +00:00
parent e7440df4ec
commit 9946be4640
2 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -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

11
lisp/emulation/tpu-extras.el
View File

@ -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"