Lines Matching defs:nil
40 (defgroup vip nil
47 (defvar vip-emacs-local-map nil
50 (defvar vip-insert-local-map nil
56 (defvar vip-insert-point nil
62 (defvar vip-com-point nil
68 (defvar vip-current-mode nil
74 (defvar vip-emacs-mode-line-buffer-identification nil
80 (defvar vip-current-major-mode nil
86 (defvar vip-last-shell-com nil
89 (defvar vip-use-register nil
92 (defvar vip-d-com nil
100 (defcustom vip-re-replace nil
101 "*If t then do regexp replace, if nil then do string replace."
105 (defvar vip-d-char nil
108 (defvar vip-f-char nil
111 (defvar vip-F-char nil
114 (defvar vip-f-forward nil
117 (defvar vip-f-offset nil
125 (defcustom vip-re-search nil
130 (defvar vip-s-string nil
133 (defvar vip-s-forward nil
136 (defcustom vip-case-fold-search nil
141 (defcustom vip-re-query-replace nil
142 "*If t then do regexp replace, if nil then do string replace."
146 (defcustom vip-open-with-indent nil
151 (defcustom vip-help-in-insert-mode nil
153 If nil then it is bound to `delete-backward-char'."
162 (defvar vip-inhibit-startup-message nil)
195 (define-key vip-mode-map "&" 'vip-nil)
223 (define-key vip-mode-map "@" 'vip-nil)
245 (define-key vip-mode-map "U" 'vip-nil)
252 (define-key vip-mode-map "[" 'vip-nil)
254 (define-key vip-mode-map "]" 'vip-nil)
256 (define-key vip-mode-map "_" 'vip-nil)
275 (define-key vip-mode-map "q" 'vip-nil)
294 (define-key vip-mode-map "~" 'vip-nil)
322 nil
326 (move-marker (car (nthcdr mark-ring-max mark-ring)) nil)
327 (setcdr (nthcdr (1- mark-ring-max) mark-ring) nil))))
393 (condition-case nil
471 (setq com (key-binding (setq key (read-key-sequence nil))))
474 (setq prefix-arg nil) ;; reset prefix arg
541 (setq cont nil))
542 ;; if com is nil we set com as char, and read more. again, if char
548 (setq cont nil))
553 (setq cont nil))
558 (setq cont nil))
579 ;; as com is non-nil, this means that we have a command to execute
587 (setq prefix-arg nil))
590 (setq prefix-arg nil)
607 (message "Value is nil, and command is nil.")
608 (message "Value is nil, and command is %c." com))
610 (message "Value is %d, and command is nil." val)
616 (vip-prefix-arg-value last-command-char nil
617 (if (consp arg) (cdr arg) nil)))
625 (cond ((null arg) nil)
629 (cond ((null arg) nil)
631 ((numberp arg) nil)
634 (setq vip-use-register nil)
635 (signal 'quit nil))))
650 (cond ((null arg) nil)
652 (t nil)))
688 vip-use-register (mark) (point) nil))
693 (t (setq vip-use-register nil)
695 (setq vip-use-register nil)))
705 vip-use-register vip-com-point (point) nil))
710 (t (setq vip-use-register nil)
712 (setq vip-use-register nil)))
714 (if (eq last-command 'd-command) 'kill-region nil))
726 vip-use-register (mark) (point) nil))
731 (t (setq vip-use-register nil)
733 (setq vip-use-register nil)))
735 (if (eq last-command 'D-command) 'kill-region nil))
745 vip-use-register vip-com-point (point) nil))
750 (t (setq vip-use-register nil)
752 (setq vip-use-register nil)))
753 (setq last-command nil)
765 vip-use-register (mark) (point) nil))
770 (t (setq vip-use-register nil)
772 (setq vip-use-register nil)))
773 (setq last-command nil)
791 (indent-region (mark) (point) nil)))
820 ;; otherwise execute the command stored in vip-d-com. if arg is non-nil
870 (if (or (null str) (string= str "")) nil
934 (signal 'quit nil)))
947 (if (and val (> val 1)) ;; first check that val is non-nil
950 (vip-repeat nil)
1122 (while (re-search-forward str nil t)
1125 nil nil))
1205 (re-search-forward "[^ \t\n]*[ \t\n]+" nil t val)
1224 (if (re-search-forward "[^ \t\n]+" nil t val) (backward-char))
1236 (if (re-search-backward "[ \t\n]+[^ \t\n]+" nil t val)
1349 (let ((case-fold-search nil))
1350 (search-forward (char-to-string char) nil 0 arg))
1367 vip-f-offset nil)
1370 (vip-find-char val (if (> (vip-p-val arg) 0) vip-f-char vip-F-char) t nil)
1404 vip-f-forward nil
1405 vip-f-offset nil)
1409 val (if (> (vip-p-val arg) 0) vip-f-char vip-F-char) nil nil)
1423 vip-f-forward nil
1427 (vip-find-char val (if (> (vip-p-val arg) 0) vip-f-char vip-F-char) nil t)
1530 (vip-execute-com 'vip-paren-match nil com)
1536 (if com (vip-execute-com 'vip-paren-match nil com)))
1550 (if com (vip-execute-com 'vip-forward-sentence nil com))))
1559 (if com (vip-execute-com 'vip-backward-sentence nil com))))
1568 (if com (vip-execute-com 'vip-forward-paragraph nil com))))
1577 (if com (vip-execute-com 'vip-backward-paragraph nil com))))
1629 (split-window-vertically nil))
1661 (setq vip-s-forward nil
1669 (vip-search vip-s-string nil val)
1688 (re-search-forward string nil nil val)
1690 (search-forward string nil nil val)
1703 (re-search-backward string nil nil val)
1704 (search-backward string nil nil val))
1822 (setq vip-use-register nil)
1825 (setq vip-use-register nil)
1831 (setq vip-d-com (list 'vip-put-back val nil vip-use-register))
1846 (setq vip-use-register nil)
1849 (setq vip-use-register nil)
1851 (setq vip-d-com (list 'vip-Put-back val nil vip-use-register))
1858 (setq vip-d-com (list 'vip-delete-char val nil))
1864 (copy-to-register vip-use-register (point) (- (point) val) nil))
1865 (setq vip-use-register nil)))
1872 (setq vip-d-com (list 'vip-delete-backward-char val nil))
1878 (copy-to-register vip-use-register (point) (+ (point) val) nil))
1879 (setq vip-use-register nil)))
1887 "Join this line to next, if ARG is nil. Otherwise, join ARG lines"
1890 (setq vip-d-com (list 'vip-join-lines val nil))
1914 (copy-to-register vip-use-register beg end nil)
1915 (setq vip-use-register nil)))
1967 (point-to-register (- char (- ?a ?\C-a)) nil))
1979 (vip-goto-mark-subr char com nil)))
1999 nil com)
2007 (if com (vip-execute-com 'vip-goto-mark nil com)))
2012 (if com (vip-execute-com 'vip-goto-mark-and-skip-white nil com)))
2023 (setq vip-use-register nil)
2057 (defvar ex-token-type nil
2058 "type of token. if non-nil, gives type of address. if nil, it
2061 (defvar ex-token nil
2064 (defvar ex-addresses nil
2067 (defvar ex-flag nil
2070 (defvar ex-buffer nil
2073 (defvar ex-count nil
2076 (defvar ex-g-flag nil
2079 (defvar ex-g-variant nil
2082 (defvar ex-reg-exp nil
2085 (defvar ex-repl nil
2088 (defvar ex-g-pat nil
2094 (defvar ex-tag nil
2097 (defvar ex-file nil)
2099 (defvar ex-variant nil)
2101 (defvar ex-offset nil)
2103 (defvar ex-append nil)
2105 (defun vip-nil ()
2111 (and (save-excursion (re-search-backward str nil t))
2246 (setq cont nil))))
2259 (setq cont nil))
2277 (cond ((looking-at "'") (setq ex-token nil))
2291 (setq ex-g-flag nil
2292 ex-g-variant nil))
2294 (address nil) (cont t) (dot (point)))
2301 (setq ex-addresses nil)
2308 (ex-global nil)
2309 (setq cont nil))
2312 (setq cont nil))
2321 (setq cont nil))
2358 (setq cont nil))))
2363 (setq ex-token nil))))
2394 (t nil))))
2401 (cons (point-max) (cons (point-min) nil))
2402 (cons (point) (cons (point) nil)))))
2411 (setq ex-flag nil)
2419 (setq cont nil))
2422 (setq cont nil))
2433 (let ((address nil))
2463 (ex-search-address nil)
2488 (setq ex-buffer nil)
2489 (setq ex-count nil)
2490 (setq ex-flag nil)
2513 (setq ex-variant nil
2514 ex-count nil
2515 ex-flag nil)
2539 (setq ex-file nil
2540 ex-variant nil
2541 ex-append nil
2542 ex-offset nil)
2574 ((string= ex-token "copy") (ex-copy nil))
2578 ;((string= ex-token "global") (ex-global nil))
2591 ((string= ex-token "t") (ex-copy nil))
2598 ((string= ex-token "write") (ex-write nil))
2632 (setq ex-addresses (cons (point) nil)))
2655 (condition-case nil
2661 (signal 'quit nil))))))
2698 (copy-to-register ex-buffer (point) (mark) nil)))
2726 (setq ex-g-flag nil
2729 ex-g-variant nil)))
2740 (let ((marks nil) (mark-count 0)
2763 (if (bobp) (setq cont nil)
2833 (cons (point) nil)))
2849 (point-to-register (- char (- ?a ?\C-a)) nil))))
2868 (or (lookup-key vip-mode-map char) 'vip-nil)))
2890 (define-key ex-map char nil)))
2912 (variant nil) command file)
2950 (let (pat repl (opt-g nil) (opt-c nil) (matched-pos nil))
2951 (if repeat (setq ex-token nil) (vip-get-ex-pat))
2972 (setq ex-addresses (cons (point) (cons (mark) nil))))
2974 (setq ex-addresses (cons (point) (cons (point) nil)))
3072 (copy-to-register ex-buffer (point) (mark) nil))