Lines Matching +defs:end +defs:of
10 ;; This file is part of GNU Emacs.
13 ;; it under the terms of the GNU General Public License as published by
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
22 ;; You should have received a copy of the GNU General Public License
45 ;; Note that switching out of free cursor mode or exiting TPU-edt while in
63 ;; KP2 next or previous end-of-line x x
64 ;; Control-e current end-of-line x
65 ;; Control-h previous beginning-of-line x
74 ;; These functions are not part of the base TPU-edt for the following
79 ;; when the cursor is moved past the end of a line, spaces or tabs are
87 ;; The implementation of scroll margins adds overhead to previously
89 ;; for their normal operation and part of the display function. There
91 ;; performance of TPU-edt on slower computers. In order to support the
92 ;; widest range of computers, scroll margin support is optional.
96 ;; a note describing the extent of the performance degradation. Be sure
97 ;; to include a description of the platform where you're running TPU-edt.
101 ;; important aspects of the real TPU/edt. Those who miss free cursor mode
115 "*Scroll margin at the top of the screen.
116 Interpreted as a percent of the current window size."
120 "*Scroll margin at the bottom of the screen.
121 Interpreted as a percent of the current window size."
127 just like TPU/edt. Otherwise, backward-char will move to the end of
145 "Eliminate whitespace at ends of lines, if the cursor is free."
156 "Enforce scroll margin at the top of screen."
162 "Enforce scroll margin at the bottom of screen."
187 (picture-end-of-line)
214 (defun tpu-next-beginning-of-line (num)
215 "Move to beginning of line; if at beginning, move to beginning of next line.
216 Accepts a prefix argument for the number of lines to move."
223 (defun tpu-next-end-of-line (num)
224 "Move to end of line; if at end, move to end of next line.
225 Accepts a prefix argument for the number of lines to move."
231 (picture-end-of-line)
232 (if (<= (point) beg) (progn (forward-line) (picture-end-of-line)))))
235 (end-of-line num)))
238 (defun tpu-previous-end-of-line (num)
240 Accepts a prefix argument for the number of lines to move."
244 (picture-end-of-line (- 1 num)))
246 (end-of-line (- 1 num))))
249 (defun tpu-current-end-of-line nil
250 "Move point to end of current line."
253 (if tpu-cursor-free (picture-end-of-line) (end-of-line))
254 (if (= beg (point)) (message "You are already at the end of a line."))))
257 "Move to beginning of next line.
263 (beginning-of-line)))
266 "Move to beginning of previous line.
273 (beginning-of-line)))
475 "Constrain the cursor to the flow of the text."
482 (message "The cursor is now bound to the flow of your text."))