Lines Matching +defs:end +defs:of +defs:defun
9 ;; This file is part of GNU Emacs.
12 ;; it under the terms of the GNU General Public License as published by
17 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
21 ;; You should have received a copy of the GNU General Public License
32 ;; Send suggestions and bug reports to one of the above addresses.
33 ;; When you report a bug, be sure to include the version number of VIP and
69 "Current mode. One of `emacs-mode', `vi-mode', `insert-mode'.")
75 "Value of mode-line-buffer-identification in Emacs mode within vip.")
90 "Name of register to store deleted or yanked strings.")
96 "*The number of columns shifted by > and < command."
158 "String inserted at the beginning of region.")
172 (define-key vip-mode-map "\C-a" 'beginning-of-line)
206 (define-key vip-mode-map "0" 'vip-beginning-of-line)
229 (define-key vip-mode-map "E" 'vip-end-of-Word)
263 (define-key vip-mode-map "e" 'vip-end-of-word)
297 (defun vip-version ()
299 (message "VIP version 3.5 of September 15, 1987"))
306 (defun vip-setup ()
318 (defun vip-push-mark-silent (&optional location)
330 (defun vip-goto-col (arg)
336 (end-of-line)
339 (beginning-of-line)
343 (defun vip-copy-keymap (map)
350 (defun vip-change-mode (new-mode)
391 (defun vip-copy-region-as-kill (beg end)
394 (copy-region-as-kill beg end)
397 (defun vip-change-mode-line (string)
406 (defun vip-mode ()
407 "Turn on VIP emulation of VI."
442 (defun vip-change-mode-to-vi ()
447 (defun vip-change-mode-to-insert ()
452 (defun vip-change-mode-to-emacs ()
461 (defun vip-escape-to-emacs (arg &optional events)
464 EVENTS is a list of events, which become the beginning of the command."
477 (defun vip-message-conditions (conditions)
485 (defun vip-ESC (arg)
490 (defun vip-ctl-c (arg)
495 (defun vip-ctl-x (arg)
500 (defun vip-ctl-h (arg)
510 ;; represents the numeric value of the prefix argument and COM represents
513 (defun vip-prefix-arg-value (char value com)
526 (defun vip-prefix-arg-com (char value com)
543 ;; is ", we read the name of register and store it in vip-use-register.
593 ((equal com '(?d . ?y)) (vip-yank-defun))
601 (defun vip-describe-arg (arg)
613 (defun vip-digit-argument (arg)
619 (defun vip-command-argument (arg)
637 (defun vip-p-val (arg)
638 "Get value part of prefix-argument ARG."
643 (defun vip-P-val (arg)
644 "Get value part of prefix-argument ARG."
648 (defun vip-getcom (arg)
649 "Get com part of prefix-argument ARG."
654 (defun vip-getCom (arg)
655 "Get com part of prefix-argument ARG and modify it."
666 (defun vip-append-to-register (reg start end)
670 (buffer-substring start end))))
672 (defun vip-execute-com (m-com val com)
811 (defun vip-repeat (arg)
815 is the name of the register for COM."
831 (defun vip-special-prefix-com (char)
851 (defun vip-undo ()
859 (defun vip-undo-more ()
869 (defun vip-string-tail (str)
873 (defun vip-yank-defun ()
874 (mark-defun)
877 (defun vip-enlarge-region (beg end)
879 (if (< beg end)
880 (progn (goto-char beg) (set-mark end))
881 (goto-char end)
883 (beginning-of-line)
886 (beginning-of-line)
887 (if (> beg end) (exchange-point-and-mark)))
889 (defun vip-global-execute ()
892 (beginning-of-line)
896 (beginning-of-line)
899 (defun vip-quote-region ()
900 "Quote region by inserting the user supplied string at the beginning of
910 (beginning-of-line)
914 (beginning-of-line)
917 (defun vip-end-with-a-newline-p (string)
924 (defun vip-read-string (prompt &optional init)
942 (defun vip-repeat-insert-command ()
953 (defun vip-insert (arg) ""
960 (defun vip-append (arg)
970 (defun vip-Append (arg)
971 "Append at end of line."
975 (end-of-line)
980 (defun vip-Insert (arg)
990 (defun vip-open-line (arg)
999 (end-of-line)
1003 (end-of-line)
1008 (defun vip-Open-line (arg)
1017 (beginning-of-line)
1021 (beginning-of-line)
1026 (defun vip-open-line-at-point (arg)
1039 (defun vip-substitute (arg)
1051 (defun vip-substitute-line (arg)
1060 (defun vip-line (arg)
1066 (defun vip-yank-line (arg)
1076 (defun vip-region (arg)
1084 (defun vip-Region (arg)
1092 (defun vip-replace-char (arg)
1099 (defun vip-replace-char-subr (char arg)
1105 (defun vip-replace-string ()
1135 (defun vip-forward-char (arg)
1136 "Move point right ARG characters (left if ARG negative).On reaching end
1137 of buffer, stop and signal error."
1144 (defun vip-backward-char (arg)
1146 beginning of buffer, stop and signal error."
1157 (defun vip-forward-word (arg)
1176 (defun vip-end-of-word (arg)
1177 "Move point to end of current word."
1188 (vip-execute-com 'vip-end-of-word val com)))))
1190 (defun vip-backward-word (arg)
1199 (defun vip-forward-Word (arg)
1217 (defun vip-end-of-Word (arg)
1218 "Move forward to end of word delimited by white character."
1228 (vip-execute-com 'vip-end-of-Word val com)))))
1230 (defun vip-backward-Word (arg)
1241 (defun vip-beginning-of-line (arg)
1242 "Go to beginning of line."
1246 (beginning-of-line val)
1247 (if com (vip-execute-com 'vip-beginning-of-line val com))))
1249 (defun vip-bol-and-skip-white (arg)
1250 "Beginning of line at first non-white character."
1257 (defun vip-goto-eol (arg)
1258 "Go to end of line."
1262 (end-of-line val)
1265 (defun vip-next-line (arg)
1274 (defun vip-next-line-at-bol (arg)
1275 "Next line at beginning of line."
1283 (defun vip-previous-line (arg)
1292 (defun vip-previous-line-at-bol (arg)
1293 "Previous line at beginning of line."
1301 (defun vip-change-to-eol (arg)
1302 "Change to end of line."
1306 (defun vip-kill-line (arg)
1315 (defun vip-goto-line (arg)
1316 "Go to ARG's line. Without ARG go to end of buffer."
1328 (defun vip-find-char (arg char forward offset)
1329 "Find ARG's occurrence of CHAR on the current line. If FORWARD then
1340 (progn (next-line 1) (beginning-of-line) (point)))
1345 (progn (beginning-of-line) (point))))
1357 (defun vip-find-char-forward (arg)
1360 used. This behavior is controlled by the sign of prefix numeric value."
1378 (defun vip-goto-char-forward (arg)
1397 (defun vip-find-char-backward (arg)
1416 (defun vip-goto-char-backward (arg)
1434 (defun vip-repeat-find (arg)
1445 (defun vip-repeat-find-opposite (arg)
1460 (defun vip-other-window (arg)
1468 (defun vip-window-top (arg)
1477 (defun vip-window-middle (arg)
1486 (defun vip-window-bottom (arg)
1495 (defun vip-line-to-top (arg)
1500 (defun vip-line-to-middle (arg)
1505 (defun vip-line-to-bottom (arg)
1514 (defun vip-paren-match (arg)
1543 (defun vip-forward-sentence (arg)
1552 (defun vip-backward-sentence (arg)
1561 (defun vip-forward-paragraph (arg)
1570 (defun vip-backward-paragraph (arg)
1583 (defun vip-scroll (arg)
1594 (defun vip-scroll-back (arg)
1599 (defun vip-scroll-down (arg)
1605 (defun vip-scroll-down-one (arg)
1610 (defun vip-scroll-up (arg)
1616 (defun vip-scroll-up-one (arg)
1625 (defun vip-buffer-in-two-windows ()
1635 (defun vip-search-forward (arg)
1637 of the string. Default is vanilla search. Search mode can be toggled by
1655 (defun vip-search-backward (arg)
1657 of the string. Default is vanilla search. Search mode can be toggled by
1675 (defun vip-search (string forward arg &optional no-offset init-point)
1676 "(STRING FORWARD COUNT &optional NO-OFFSET) Search COUNT's occurrence of
1714 (defun vip-search-next (arg)
1722 (defun vip-search-Next (arg)
1734 (defun vip-switch-to-buffer ()
1745 (defun vip-switch-to-buffer-other-window ()
1756 (defun vip-kill-buffer ()
1774 (defun vip-find-file ()
1782 (defun vip-find-file-other-window ()
1790 (defun vip-info-on-file ()
1791 "Give information of the file associated to the current buffer."
1793 (message "\"%s\" line %d of %d"
1802 (defun vip-yank (text)
1810 (defun vip-put-back (arg)
1826 (if (vip-end-with-a-newline-p text)
1829 (beginning-of-line))
1834 (defun vip-Put-back (arg)
1850 (if (vip-end-with-a-newline-p text) (beginning-of-line))
1854 (defun vip-delete-char (arg)
1868 (defun vip-delete-backward-char (arg)
1886 (defun vip-join-lines (arg)
1893 (end-of-line)
1906 (defun vip-change (beg end)
1908 (vip-read-string (format "%s => " (buffer-substring beg end))))
1909 (vip-change-subr beg end))
1911 (defun vip-change-subr (beg end)
1914 (copy-to-register vip-use-register beg end nil)
1916 (kill-region beg end)
1924 (defun vip-query-replace ()
1950 (defun vip-mark-beginning-of-buffer ()
1955 (message "mark set at the beginning of buffer"))
1957 (defun vip-mark-end-of-buffer ()
1962 (message "mark set at the end of buffer"))
1964 (defun vip-mark-point (char)
1968 ((= char ?<) (vip-mark-beginning-of-buffer))
1969 ((= char ?>) (vip-mark-end-of-buffer))
1972 ((= char ?D) (mark-defun))
1975 (defun vip-goto-mark (arg)
1981 (defun vip-goto-mark-and-skip-white (arg)
1987 (defun vip-goto-mark-subr (char com skip-white)
2015 (defun vip-exchange-point-and-mark ()
2020 (defun vip-keyboard-quit ()
2026 (defun vip-ctl-c-equivalent (arg)
2031 (defun vip-ctl-x-equivalent (arg)
2036 (defun vip-ctl-key-equivalent (key arg)
2045 (defun vip-delete-backward-word (arg)
2058 "type of token. if non-nil, gives type of address. if nil, it
2062 "value of token.")
2065 "list of ex addresses")
2071 "name of ex buffer")
2074 "value of ex count")
2105 (defun vip-nil ()
2109 (defun vip-looking-back (str)
2112 (= (point) (match-end 0))))
2114 (defun vip-check-sub (str)
2115 "check if ex-token is an initial segment of STR"
2122 (defun vip-get-ex-com-subr ()
2188 (defun vip-get-ex-token ()
2190 a token has type \(command, address, end-mark\) and value."
2212 (setq ex-token-type "end"))
2282 (setq ex-token-type "end-mark")
2287 (defun vip-ex (&optional string)
2305 (string= ex-token-type "end-mark"))
2322 (t (error "Extra character at end of a command")))))))
2338 (defun vip-get-ex-pat ()
2365 (defun vip-get-ex-command ()
2380 (defun vip-get-ex-opt-gc ()
2396 (defun vip-default-ex-addresses (&optional whole-flag)
2407 (defun vip-get-ex-address ()
2421 ((string= ex-token-type "end-mark")
2431 (defun vip-get-ex-address-subr (old-address dot)
2453 ((string= ex-token-type "end")
2473 (defun ex-search-address (forward)
2486 (defun vip-get-ex-buffer ()
2512 (defun vip-get-ex-count ()
2537 (defun vip-get-ex-file ()
2571 (defun vip-execute-ex-command ()
2572 "execute ex command using the value of addresses."
2629 (defun ex-goto ()
2635 (beginning-of-line))
2637 (defun ex-copy (del-flag)
2641 (end (car ex-addresses)) (beg (car (cdr ex-addresses))))
2642 (goto-char end)
2668 (defun ex-delete ()
2672 (let ((end (car ex-addresses)) (beg (car (cdr ex-addresses))))
2673 (if (> beg end) (error "First address exceeds second"))
2675 (vip-enlarge-region beg end)
2681 (set-mark end))
2701 (defun ex-edit ()
2719 (beginning-of-line))))
2721 (defun ex-global (variant)
2741 com-str (end (car ex-addresses)) (beg (car (cdr ex-addresses))))
2742 (if (> beg end) (error "First address exceeds second"))
2744 (vip-enlarge-region beg end)
2749 (beginning-of-line)
2752 (beginning-of-line)
2754 (end-of-line)
2759 (end-of-line)
2762 (beginning-of-line)
2765 (end-of-line)))))
2771 ; report progress of execution on a slow machine.
2780 (defun ex-line (com)
2784 (let ((end (car ex-addresses)) (beg (car (cdr ex-addresses))) point)
2785 (if (> beg end) (error "First address exceeds second"))
2787 (vip-enlarge-region beg end)
2808 (beginning-of-line)))
2810 (defun ex-line-subr (com beg end)
2812 (goto-char (min beg end))
2813 (while (and (not (eobp)) (< (point) (max beg end)))
2814 (end-of-line)
2815 (if (and (<= (point) (max beg end)) (not (eobp)))
2822 (min beg end) (max beg end)
2824 (goto-char (max beg end))
2825 (end-of-line)
2828 (defun ex-mark ()
2843 (error "Extra characters at end of \"k\" command")))
2851 (defun ex-map ()
2863 (end-of-buffer))
2877 (defun ex-unmap ()
2892 (defun ex-put ()
2900 (defun ex-quit ()
2909 (defun ex-read ()
2915 (beginning-of-line)
2925 (end-of-line)
2936 (defun ex-set ()
2941 (defun ex-shell ()
2946 (defun ex-substitute (&optional repeat r-flag)
2978 (let ((beg (car ex-addresses)) (end (car (cdr ex-addresses)))
2981 (vip-enlarge-region beg end)
2987 (end-of-line)
2989 (beginning-of-line)
2998 (end-of-line)
3005 (end-of-line)
3008 (beginning-of-line)
3011 (defun ex-tag ()
3032 (defun ex-write (q-flag)
3046 (let ((end (car ex-addresses)) (beg (car (cdr ex-addresses))))
3047 (if (> beg end) (error "First address exceeds second"))
3049 (vip-enlarge-region beg end)
3054 (defun ex-yank ()
3058 (let ((end (car ex-addresses)) (beg (car (cdr ex-addresses))))
3059 (if (> beg end) (error "First address exceeds second"))
3061 (vip-enlarge-region beg end)
3068 (set-mark end))
3070 (if ex-flag (error "Extra characters at end of command"))
3075 (defun ex-command ()
3082 (end-of-line)
3086 (let ((end (car ex-addresses)) (beg (car (cdr ex-addresses))))
3087 (if (null beg) (setq beg end))
3090 (set-mark end)
3095 (defun ex-line-no ()