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
18 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
22 ;; You should have received a copy of the GNU General Public License
33 ;; This is Version 4.0 of the EDT Emulation for Emacs 19 and above.
34 ;; It comes with special functions which replicate nearly all of EDT's
62 ;; The EDT emulation consists of the following files:
76 ;; 1. Scroll margins at the top and bottom of the window are now
79 ;; 10% of the window and the bottom margin set to 15% of the
86 ;; sets the top margin to 20% of the window and the bottom margin
87 ;; to 25% of the window. To disable this feature, set each
104 ;; earlier versions of EDT Emulation, GOLD-Enter was assigned to
105 ;; the Emacs function `query-replace'. The binding of
112 ;; highlighting of selected text.
116 ;; contain the name of the X Server vendor. This is a
118 ;; from more than one type of X Server. Since different X
125 ;; 5. Also, edt-mapper.el is now capable of binding an ASCII key
127 ;; known by Emacs to be a prefix. As a result of providing this
129 ;; which don't have a complete set of sensible function key
133 ;; does not work if a subset of the leading ASCII characters in a
210 Non-nil leaves Emacs value of `page-delimiter' unchanged within EDT
228 "*Specifies the list of EDT word entity characters.
232 character, can be used to indicate the numerical value of the
233 character, instead of the actual decimal value. So, ?A means the
253 "*Scroll margin at the top of the screen.
254 Interpreted as a percent of the current window size with a default
255 setting of 10%. If set to 0, top scroll margin is disabled."
260 "*Scroll margin at the bottom of the screen.
261 Interpreted as a percent of the current window size with a default
262 setting of 15%. If set to 0, bottom scroll margin is disabled."
285 (defvar edt-match-end-mark (make-marker)
292 "String indicating current direction of movement.")
298 "Text displayed in mode line to indicate the state of EDT select mode.
345 ;; name, which breaks the generated file name of
366 ;;; Almost all of EDT's keypad mode commands have equivalent Emacs
367 ;;; function counterparts. But many of these counterparts behave
371 ;;; exact behavior of the corresponding EDT keypad mode commands. In
382 ;;; of a line. To emulate the EDT PAGE command exactly,
394 Argument NUM is the number of page delimiters to move."
398 (error "End of buffer")
402 (edt-line-to-bottom-of-window)
403 (edt-line-to-top-of-window)))))
407 Argument NUM is the number of page delimiters to move."
411 (error "Beginning of buffer")
414 (edt-line-to-top-of-window)
419 Argument NUM is the number of page delimiters to move."
428 ;;; EDT defaults a section size to be 16 lines of its one and only
429 ;;; 24-line window. That's two-thirds of the window at a time. The
432 ;;; This emulation of EDT's SECT moves the cursor approximately
433 ;;; two-thirds of the current window at a time.
436 "Move cursor forward two-thirds of a window's number of lines.
437 Argument NUM is the number of sections to move."
444 "Move cursor backward two-thirds of a window.
445 Argument NUM is the number of sections to move."
452 Argument NUM is the number of sections to move."
461 ;;; EDT's beginning-of-line command is not affected by current
464 (defun edt-beginning-of-line (num)
465 "Move backward to next beginning of line mark.
466 Argument NUM is the number of BOL marks to move."
480 ;;; EOL (End of Line)
483 (defun edt-end-of-line-forward (num)
484 "Move forward to next end of line mark.
485 Argument NUM is the number of EOL marks to move."
490 (end-of-line num)
495 (defun edt-end-of-line-backward (num)
496 "Move backward to next end of line mark.
497 Argument NUM is the number of EOL marks to move."
501 (end-of-line (1- num))
506 (defun edt-end-of-line (num)
507 "Move in current direction to next end of line mark.
508 Argument NUM is the number of EOL marks to move."
511 (edt-end-of-line-forward num)
512 (edt-end-of-line-backward num)))
518 ;;; the file (beginning of file, end of file, beginning of line, end
519 ;;; of line, etc.) it takes a bit of special handling.
521 ;;; The variable edt-word-entities contains a list of characters which
527 "Move forward to first character of next word."
530 (error "End of buffer"))
551 "Move backward to first character of previous word."
554 (error "Beginning of buffer"))
575 "Move forward to first character of next word.
576 Argument NUM is the number of words to move."
584 "Move backward to first character of previous word.
585 Argument NUM is the number of words to move."
593 "Move in current direction to first character of next word.
594 Argument NUM is the number of words to move."
606 Argument NUM is the number of characters to move."
622 "Move backward to next beginning of line mark.
623 Argument NUM is the number of BOL marks to move."
625 (edt-beginning-of-line num))
628 "Move forward to next beginning of line mark.
629 Argument NUM is the number of BOL marks to move."
638 "Move in current direction to next beginning of line mark.
639 Argument NUM is the number of BOL marks to move."
651 Argument NUM is the number of lines to move."
661 Argument NUM is the number of lines to move."
675 "Move cursor to the beginning of buffer."
685 "Move cursor to the end of buffer."
688 (edt-line-to-bottom-of-window))
695 "Find first occurrence of a string in forward direction and save it.
727 "Find first occurrence of a string in the backward direction and save it.
752 "Find first occurrence of string in current direction and save it."
765 "Find next occurrence of a string in forward direction."
798 "Find next occurrence of a string in backward direction."
822 "Find next occurrence of a string in current direction."
845 "Delete from cursor up to and including the end of line mark.
846 Argument NUM is the number of lines to delete."
861 (defun edt-delete-to-end-of-line (num)
862 "Delete from cursor up to but excluding the end of line mark.
863 Argument NUM is the number of lines to delete."
868 (end-of-line num)
916 (defun edt-delete-to-beginning-of-line (num)
917 "Delete from cursor to beginning of line.
918 Argument NUM is the number of lines to delete."
922 (edt-beginning-of-line num)
932 "Delete from cursor up to but excluding first character of next word.
933 Argument NUM is the number of words to delete."
945 (defun edt-delete-to-beginning-of-word (num)
946 "Delete from cursor to beginning of word.
947 Argument NUM is the number of words to delete."
961 Argument NUM is the number of characters to delete."
973 "Delete character in front of cursor.
974 Argument NUM is the number of characters to delete."
1035 "Replace the selected region with the contents of the CUT buffer and.
1038 Argument NUM is the repeat count. A positive value indicates the of times
1040 of the search text."
1051 "Set markers at match beginning and end."
1052 ;; Add one to beginning mark so it stays with the first character of
1055 (setq edt-match-end-mark (copy-marker (match-end 0))))
1058 "Unset match beginning and end markers."
1060 (set-marker edt-match-end-mark nil))
1063 "Return the location of the last match beginning."
1066 (defun edt-match-end nil
1067 "Return the location of the last match end."
1068 (marker-position edt-match-end-mark))
1075 ;; 3- point is before ending marker, or in the case of
1077 ;; beginning, end, and point are equal.
1082 (< (point) (marker-position edt-match-end-mark))
1084 (marker-position edt-match-end-mark))
1085 (= (marker-position edt-match-end-mark) (point))))) t)
1090 "Show the values of the match markers."
1096 (marker-position edt-match-end-mark)
1097 (marker-buffer edt-match-end-mark)
1140 "Change the case of specified characters.
1143 current direction is ADVANCE, then the prefix number of character(s) under and
1145 the prefix number of character(s) before the cursor are changed. Accepts a
1146 positive prefix for the number of characters to change, but the prefix is
1148 Argument NUM is the numbers of consecutive characters to change."
1152 (let ((end (max (mark) (point)))
1155 (while (not (eq (point) end))
1205 Argument NUM is the number of form feeds to insert."
1218 Argument NUM is the number of tabs to insert."
1249 "Enforce scroll margin at the top of screen.
1251 Argument LINES is the number of lines the cursor moved toward the top."
1257 "Enforce scroll margin at the bottom of screen.
1259 Argument LINES is the number of lines the cursor moved toward the bottom."
1270 "Return the vertical position of point in the selected window.
1277 Argument TOP is the top margin in number of lines or percent of window.
1278 Argument BOTTOM is the bottom margin in number of lines or percent of window."
1309 ;;; provided here. Some of these have been motivated by similar
1339 "Move forward to start of next sentence.
1340 Argument NUM is the positive number of sentences to move."
1359 (error "End of buffer"))
1374 Argument NUM is the positive number of sentences to move."
1393 (error "End of buffer"))
1400 Argument NUM is the positive number of sentences to move."
1411 "Move forward to beginning of paragraph.
1412 Argument NUM is the positive number of paragraphs to move."
1431 (start-of-paragraph-text)
1444 "Move backward to beginning of paragraph.
1445 Argument NUM is the positive number of paragraphs to move."
1463 (start-of-paragraph-text)
1470 Argument NUM is the positive number of paragraphs to move."
1509 "Move the cursor to the top of the window."
1521 "Move the cursor to the bottom of the window."
1554 ;;; Scroll a window (less one line) at a time. Leave cursor in center of
1559 Argument NUM is the positive number of windows to move."
1567 Argument NUM is the positive number of windows to move."
1575 Argument NUM is the positive number of windows to move."
1585 (defun edt-line-to-bottom-of-window ()
1586 "Move the current line to the bottom of the window."
1595 (defun edt-line-to-top-of-window ()
1596 "Move the current line to the top of the window."
1605 (defun edt-line-to-middle-of-window ()
1606 "Move window so line with cursor is in the middle of the window."
1616 "Move to specified percentage in buffer from top of buffer.
1620 (error "Percentage %d out of range 0 < percent < 100" num)
1700 "Delete entire line regardless of cursor position in the line."
1702 (beginning-of-line)
1710 "Duplicate the line of text containing the cursor.
1711 Argument NUM is the number of times to duplicate the line."
1729 "Duplicate word (or rest of word) found directly above cursor, if any."
1766 (defun edt-toggle-capitalization-of-word ()
1767 "Toggle the capitalization of the current word and move forward to next."
1800 "Learn a sequence of key strokes to bind to a key."
1811 "Store the sequence of key strokes started by `edt-learn' to a key."
1816 (end-kbd-macro nil)
1880 "Copy a rectangle of text between mark and cursor to register."
1883 (copy-rectangle-to-register 3 (region-beginning) (region-end) nil)
1892 "Cut a rectangle of text between mark and cursor to register.
1898 (picture-clear-rectangle-to-register (region-beginning) (region-end) 3)
1903 "Cut a rectangle of text between mark and cursor to register.
1908 (picture-clear-rectangle-to-register (region-beginning) (region-end) 3 t)
1914 "Cut a rectangular region of text to register.
1926 "Paste a rectangular region of text from register, replacing text at cursor."
1936 "Paste a rectangular region of text.
1953 the beginning of the next word. If the current direction is BACKUP,
1955 and the cursor is left to rest at the beginning of that word."
1961 ;; Move to beginning of current word.
1989 the beginning of the next word. If the current direction is BACKUP,
1991 and the cursor is left to rest at the beginning of that word."
1997 ;; Move to beginning of current word.
2054 type, and version of Emacs in use: GNU Emacs or XEmacs (aka Lucid
2082 without any of your own customizations found in your .emacs file, etc.
2089 [NOTE: If you do nothing out of the ordinary in your .emacs file, and
2159 ;; Make highlighting of selected text work properly for EDT commands.
2201 "Setup emulation of DEC's EDT editor.
2207 ;; customization of these bindings in the EDT global maps without
2227 ;; Display EDT direction of motion within the mode line
2241 "Setup user custom emulation of DEC's EDT editor."
2306 Argument FUNCTION-KEY is the name of the function key or keypad function key.
2317 Argument KEY is the name of a standard key or a function key.
2323 Argument KEY is the name of a standard key or a function key.
2332 Argument FUNCTION-KEY is the name of the function key or keypad function key.
2343 Argument KEY is the name of a key. It can be a standard key or a function key.
2352 Argument KEY is the name of a standard key or a function key.
2379 'edt-end-of-line 'edt-delete-to-end-of-line)
2420 'edt-beginning-of-line 'delete-other-windows) ;BS
2422 'edt-delete-to-beginning-of-word 'edt-key-not-assigned) ;LF
2451 ;; Leave binding of C-c to an Emacs prefix key.
2455 ;; Leave binding of C-g to the Emacs keyboard-quit
2456 (edt-bind-key-default "\C-h" 'edt-beginning-of-line)
2458 (edt-bind-key-default "\C-j" 'edt-delete-to-beginning-of-word)
2462 ;; Leave binding of C-m to newline.
2467 ;; Leave binding of C-r to isearch-backward.
2468 ;; Leave binding of C-s to isearch-forward.
2470 (edt-bind-key-default "\C-u" 'edt-delete-to-beginning-of-line)
2473 ;; Leave binding of C-x as original prefix key.
2475 ;; Leave binding of C-z to suspend-emacs.
2507 (edt-bind-gold-key-default "k" 'edt-toggle-capitalization-of-word)
2508 (edt-bind-gold-key-default "K" 'edt-toggle-capitalization-of-word)
2607 F12: Begining of Line +----------+----------+----------+----------+
2609 F13: Delete to Begin of Word | (PF1) | (PF2) | (PF3) | (PF4) |
2615 C-h: Beginning of Line +----------+----------+----------+----------+
2618 C-j: Delete to Begin of Word | BOTTOM | TOP | Yank | UND C |
2626 C-u: Delete to Begin of Line | Open Line | RESET | |
2706 ;; Some terminals require modification of terminal attributes when
2707 ;; changing the number of columns displayed, hence the fboundp tests