Lines Matching +defs:open +defs:line
74 (defvar vip-emacs-mode-line-buffer-identification nil
75 "Value of mode-line-buffer-identification in Emacs mode within vip.")
76 (make-variable-buffer-local 'vip-emacs-mode-line-buffer-identification)
77 (setq-default vip-emacs-mode-line-buffer-identification
146 (defcustom vip-open-with-indent nil
147 "*If t, indent when open a new line."
172 (define-key vip-mode-map "\C-a" 'beginning-of-line)
182 (define-key vip-mode-map "\C-o" 'vip-open-line-at-point)
200 (define-key vip-mode-map "+" 'vip-next-line-at-bol)
202 (define-key vip-mode-map "-" 'vip-previous-line-at-bol)
206 (define-key vip-mode-map "0" 'vip-beginning-of-line)
228 (define-key vip-mode-map "D" 'vip-kill-line)
231 (define-key vip-mode-map "G" 'vip-goto-line)
239 (define-key vip-mode-map "O" 'vip-Open-line)
249 (define-key vip-mode-map "Y" 'vip-yank-line)
268 (define-key vip-mode-map "j" 'vip-next-line)
269 (define-key vip-mode-map "k" 'vip-previous-line)
273 (define-key vip-mode-map "o" 'vip-open-line)
284 (define-key vip-mode-map "zH" 'vip-line-to-top)
285 (define-key vip-mode-map "zM" 'vip-line-to-middle)
286 (define-key vip-mode-map "zL" 'vip-line-to-bottom)
287 (define-key vip-mode-map "z\C-m" 'vip-line-to-top)
288 (define-key vip-mode-map "z." 'vip-line-to-middle)
289 (define-key vip-mode-map "z-" 'vip-line-to-bottom)
336 (end-of-line)
339 (beginning-of-line)
360 vip-emacs-mode-line-buffer-identification
361 mode-line-buffer-identification
364 (vip-change-mode-line "Vi: ")
370 vip-emacs-mode-line-buffer-identification
371 mode-line-buffer-identification
376 (vip-change-mode-line "Insert")
386 (vip-change-mode-line "Emacs:")
389 (force-mode-line-update))))
397 (defun vip-change-mode-line (string)
398 "Assuming that the mode line format contains the string \"Emacs:\", this
400 (setq mode-line-buffer-identification
402 vip-emacs-mode-line-buffer-identification
591 (cond ((equal com '(?c . ?c)) (vip-line (cons value ?C)))
592 ((equal com '(?d . ?d)) (vip-line (cons value ?D)))
594 ((equal com '(?y . ?y)) (vip-line (cons value ?Y)))
595 ((equal com '(?< . ?<)) (vip-line (cons value ?<)))
596 ((equal com '(?> . ?>)) (vip-line (cons value ?>)))
597 ((equal com '(?! . ?!)) (vip-line (cons value ?!)))
598 ((equal com '(?= . ?=)) (vip-line (cons value ?=)))
697 (open-line 1)
737 (if (eq m-com 'vip-line) (setq this-command 'D-command)))
883 (beginning-of-line)
885 (if (or (not (eobp)) (not (bolp))) (next-line 1))
886 (beginning-of-line)
890 "Call last keyboad macro for each line in the region."
892 (beginning-of-line)
895 (forward-line 1)
896 (beginning-of-line)
901 each line in the region."
910 (beginning-of-line)
911 (forward-line 1)
914 (beginning-of-line)
915 (forward-line 1)))
971 "Append at end of line."
975 (end-of-line)
990 (defun vip-open-line (arg)
991 "Open line below."
994 (setq vip-d-com (list 'vip-open-line val ?r))
999 (end-of-line)
1001 (if vip-open-with-indent (indent-to col))
1003 (end-of-line)
1005 (if vip-open-with-indent (indent-to col))
1008 (defun vip-Open-line (arg)
1009 "Open line above."
1012 (setq vip-d-com (list 'vip-Open-line val ?r))
1017 (beginning-of-line)
1018 (open-line 1)
1019 (if vip-open-with-indent (indent-to col))
1021 (beginning-of-line)
1022 (open-line 1)
1023 (if vip-open-with-indent (indent-to col))
1026 (defun vip-open-line-at-point (arg)
1027 "Open line at point."
1030 (setq vip-d-com (list 'vip-open-line-at-point val ?r))
1034 (open-line 1)
1036 (open-line 1)
1051 (defun vip-substitute-line (arg)
1054 (vip-line (cons arg ?C)))
1058 ;; line command
1060 (defun vip-line (arg)
1063 (next-line (1- val))
1064 (vip-execute-com 'vip-line val com)))
1066 (defun vip-yank-line (arg)
1070 (vip-line (cons val ?Y))))
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))))
1250 "Beginning of line at first non-white character."
1258 "Go to end of line."
1262 (end-of-line val)
1265 (defun vip-next-line (arg)
1266 "Go to next line."
1270 (line-move val)
1271 (setq this-command 'next-line)
1272 (if com (vip-execute-com 'vip-next-line val com))))
1274 (defun vip-next-line-at-bol (arg)
1275 "Next line at beginning of line."
1279 (next-line val)
1281 (if com (vip-execute-com 'vip-next-line-at-bol val com))))
1283 (defun vip-previous-line (arg)
1284 "Go to previous line."
1288 (next-line (- val))
1289 (setq this-command 'previous-line)
1290 (if com (vip-execute-com 'vip-previous-line val com))))
1292 (defun vip-previous-line-at-bol (arg)
1293 "Previous line at beginning of line."
1297 (next-line (- val))
1299 (if com (vip-execute-com 'vip-previous-line val com))))
1302 "Change to end of line."
1306 (defun vip-kill-line (arg)
1307 "Delete line."
1315 (defun vip-goto-line (arg)
1316 "Go to ARG's line. Without ARG go to end of buffer."
1324 (forward-line (1- val)))
1326 (if com (vip-execute-com 'vip-goto-line val com))))
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))))
1358 "Find char on the line. If called interactively read the char to find
1379 "Go up to char ARG forward on line."
1398 "Find char ARG on line backward."
1417 "Go up to char ARG backward on line."
1469 "Go to home window line."
1474 (move-to-window-line (1- val))
1478 "Go to middle window line."
1483 (move-to-window-line (+ (/ (1- (window-height)) 2) (1- val)))
1487 "Go to last window line."
1492 (move-to-window-line (- val))
1495 (defun vip-line-to-top (arg)
1496 "Put current line on the home line."
1500 (defun vip-line-to-middle (arg)
1501 "Put current line on the middle line."
1505 (defun vip-line-to-bottom (arg)
1506 "Put current line on the last line."
1606 "Scroll up one line."
1617 "Scroll down one line."
1793 (message "\"%s\" line %d of %d"
1811 "Put back after point/below line."
1828 (next-line 1)
1829 (beginning-of-line))
1835 "Put back at point/above line."
1850 (if (vip-end-with-a-newline-p text) (beginning-of-line))
1887 "Join this line to next, if ARG is nil. Otherwise, join ARG lines"
1893 (end-of-line)
1896 (forward-line 1)
1982 "Go to mark and skip to first non-white on line."
2153 ((looking-at "o") (vip-check-sub "open"))
2440 (forward-line (if (= old-address 0) (1- ex-token) ex-token))
2445 (forward-line (- ex-token))
2451 (forward-line (1- ex-token))
2481 (forward-line 1)
2483 (forward-line -1)
2579 ((string= ex-token "join") (ex-line "join"))
2602 ((string= ex-token "=") (ex-line-no))
2603 ((string= ex-token ">") (ex-line "right"))
2604 ((string= ex-token "<") (ex-line "left"))
2611 (string= ex-token "open")
2635 (beginning-of-line))
2665 (forward-line 1))
2680 (forward-line (1- ex-count)))
2719 (beginning-of-line))))
2748 ;; skip the last line if empty
2749 (beginning-of-line)
2752 (beginning-of-line)
2754 (end-of-line)
2759 (end-of-line)
2762 (beginning-of-line)
2764 (forward-line -1)
2765 (end-of-line)))))
2780 (defun ex-line (com)
2781 "ex line commands. COM is join, shift-right or shift-left."
2792 (forward-line ex-count)))
2801 (ex-line-subr com (point) (mark)))
2805 (ex-line-subr com (point) (mark)))
2808 (beginning-of-line)))
2810 (defun ex-line-subr (com beg end)
2814 (end-of-line)
2817 (forward-line 1)
2825 (end-of-line)
2914 (if (not (= point 0)) (next-line 1))
2915 (beginning-of-line)
2925 (end-of-line)
2971 (forward-line (1- ex-count))
2987 (end-of-line)
2989 (beginning-of-line)
2998 (end-of-line)
3005 (end-of-line)
3008 (beginning-of-line)
3067 (forward-line (1- ex-count)))
3082 (end-of-line)
3095 (defun ex-line-no ()
3096 "print line number"