Lines Matching +defs:local +defs:set +defs:key
47 (defvar vip-emacs-local-map nil
50 (defvar vip-insert-local-map nil
53 (make-variable-buffer-local 'vip-emacs-local-map)
54 (make-variable-buffer-local 'vip-insert-local-map)
59 (set-default 'vip-insert-point (make-marker))
60 (make-variable-buffer-local 'vip-insert-point)
65 (set-default 'vip-com-point (make-marker))
66 (make-variable-buffer-local 'vip-com-point)
71 (make-variable-buffer-local 'vip-current-mode)
76 (make-variable-buffer-local 'vip-emacs-mode-line-buffer-identification)
84 (make-variable-buffer-local 'vip-current-major-mode)
168 ;; key bindings
172 (define-key vip-mode-map "\C-a" 'beginning-of-line)
173 (define-key vip-mode-map "\C-b" 'vip-scroll-back)
174 (define-key vip-mode-map "\C-c" 'vip-ctl-c)
175 (define-key vip-mode-map "\C-d" 'vip-scroll-up)
176 (define-key vip-mode-map "\C-e" 'vip-scroll-up-one)
177 (define-key vip-mode-map "\C-f" 'vip-scroll)
178 (define-key vip-mode-map "\C-g" 'vip-keyboard-quit)
179 (define-key vip-mode-map "\C-h" 'help-command)
180 (define-key vip-mode-map "\C-m" 'vip-scroll-back)
181 (define-key vip-mode-map "\C-n" 'vip-other-window)
182 (define-key vip-mode-map "\C-o" 'vip-open-line-at-point)
183 (define-key vip-mode-map "\C-u" 'vip-scroll-down)
184 (define-key vip-mode-map "\C-x" 'vip-ctl-x)
185 (define-key vip-mode-map "\C-y" 'vip-scroll-down-one)
186 (define-key vip-mode-map "\C-z" 'vip-change-mode-to-emacs)
187 (define-key vip-mode-map "\e" 'vip-ESC)
189 (define-key vip-mode-map " " 'vip-scroll)
190 (define-key vip-mode-map "!" 'vip-command-argument)
191 (define-key vip-mode-map "\"" 'vip-command-argument)
192 (define-key vip-mode-map "#" 'vip-command-argument)
193 (define-key vip-mode-map "$" 'vip-goto-eol)
194 (define-key vip-mode-map "%" 'vip-paren-match)
195 (define-key vip-mode-map "&" 'vip-nil)
196 (define-key vip-mode-map "'" 'vip-goto-mark-and-skip-white)
197 (define-key vip-mode-map "(" 'vip-backward-sentence)
198 (define-key vip-mode-map ")" 'vip-forward-sentence)
199 (define-key vip-mode-map "*" 'call-last-kbd-macro)
200 (define-key vip-mode-map "+" 'vip-next-line-at-bol)
201 (define-key vip-mode-map "," 'vip-repeat-find-opposite)
202 (define-key vip-mode-map "-" 'vip-previous-line-at-bol)
203 (define-key vip-mode-map "." 'vip-repeat)
204 (define-key vip-mode-map "/" 'vip-search-forward)
206 (define-key vip-mode-map "0" 'vip-beginning-of-line)
207 (define-key vip-mode-map "1" 'vip-digit-argument)
208 (define-key vip-mode-map "2" 'vip-digit-argument)
209 (define-key vip-mode-map "3" 'vip-digit-argument)
210 (define-key vip-mode-map "4" 'vip-digit-argument)
211 (define-key vip-mode-map "5" 'vip-digit-argument)
212 (define-key vip-mode-map "6" 'vip-digit-argument)
213 (define-key vip-mode-map "7" 'vip-digit-argument)
214 (define-key vip-mode-map "8" 'vip-digit-argument)
215 (define-key vip-mode-map "9" 'vip-digit-argument)
217 (define-key vip-mode-map ":" 'vip-ex)
218 (define-key vip-mode-map ";" 'vip-repeat-find)
219 (define-key vip-mode-map "<" 'vip-command-argument)
220 (define-key vip-mode-map "=" 'vip-command-argument)
221 (define-key vip-mode-map ">" 'vip-command-argument)
222 (define-key vip-mode-map "?" 'vip-search-backward)
223 (define-key vip-mode-map "@" 'vip-nil)
225 (define-key vip-mode-map "A" 'vip-Append)
226 (define-key vip-mode-map "B" 'vip-backward-Word)
227 (define-key vip-mode-map "C" 'vip-ctl-c-equivalent)
228 (define-key vip-mode-map "D" 'vip-kill-line)
229 (define-key vip-mode-map "E" 'vip-end-of-Word)
230 (define-key vip-mode-map "F" 'vip-find-char-backward)
231 (define-key vip-mode-map "G" 'vip-goto-line)
232 (define-key vip-mode-map "H" 'vip-window-top)
233 (define-key vip-mode-map "I" 'vip-Insert)
234 (define-key vip-mode-map "J" 'vip-join-lines)
235 (define-key vip-mode-map "K" 'vip-kill-buffer)
236 (define-key vip-mode-map "L" 'vip-window-bottom)
237 (define-key vip-mode-map "M" 'vip-window-middle)
238 (define-key vip-mode-map "N" 'vip-search-Next)
239 (define-key vip-mode-map "O" 'vip-Open-line)
240 (define-key vip-mode-map "P" 'vip-Put-back)
241 (define-key vip-mode-map "Q" 'vip-query-replace)
242 (define-key vip-mode-map "R" 'vip-replace-string)
243 (define-key vip-mode-map "S" 'vip-switch-to-buffer-other-window)
244 (define-key vip-mode-map "T" 'vip-goto-char-backward)
245 (define-key vip-mode-map "U" 'vip-nil)
246 (define-key vip-mode-map "V" 'vip-find-file-other-window)
247 (define-key vip-mode-map "W" 'vip-forward-Word)
248 (define-key vip-mode-map "X" 'vip-ctl-x-equivalent)
249 (define-key vip-mode-map "Y" 'vip-yank-line)
250 (define-key vip-mode-map "ZZ" 'save-buffers-kill-emacs)
252 (define-key vip-mode-map "[" 'vip-nil)
253 (define-key vip-mode-map "\\" 'vip-escape-to-emacs)
254 (define-key vip-mode-map "]" 'vip-nil)
255 (define-key vip-mode-map "^" 'vip-bol-and-skip-white)
256 (define-key vip-mode-map "_" 'vip-nil)
257 (define-key vip-mode-map "`" 'vip-goto-mark)
259 (define-key vip-mode-map "a" 'vip-append)
260 (define-key vip-mode-map "b" 'vip-backward-word)
261 (define-key vip-mode-map "c" 'vip-command-argument)
262 (define-key vip-mode-map "d" 'vip-command-argument)
263 (define-key vip-mode-map "e" 'vip-end-of-word)
264 (define-key vip-mode-map "f" 'vip-find-char-forward)
265 (define-key vip-mode-map "g" 'vip-info-on-file)
266 (define-key vip-mode-map "h" 'vip-backward-char)
267 (define-key vip-mode-map "i" 'vip-insert)
268 (define-key vip-mode-map "j" 'vip-next-line)
269 (define-key vip-mode-map "k" 'vip-previous-line)
270 (define-key vip-mode-map "l" 'vip-forward-char)
271 (define-key vip-mode-map "m" 'vip-mark-point)
272 (define-key vip-mode-map "n" 'vip-search-next)
273 (define-key vip-mode-map "o" 'vip-open-line)
274 (define-key vip-mode-map "p" 'vip-put-back)
275 (define-key vip-mode-map "q" 'vip-nil)
276 (define-key vip-mode-map "r" 'vip-replace-char)
277 (define-key vip-mode-map "s" 'vip-switch-to-buffer)
278 (define-key vip-mode-map "t" 'vip-goto-char-forward)
279 (define-key vip-mode-map "u" 'vip-undo)
280 (define-key vip-mode-map "v" 'vip-find-file)
281 (define-key vip-mode-map "w" 'vip-forward-word)
282 (define-key vip-mode-map "x" 'vip-delete-char)
283 (define-key vip-mode-map "y" 'vip-command-argument)
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)
291 (define-key vip-mode-map "{" 'vip-backward-paragraph)
292 (define-key vip-mode-map "|" 'vip-goto-col)
293 (define-key vip-mode-map "}" 'vip-forward-paragraph)
294 (define-key vip-mode-map "~" 'vip-nil)
295 (define-key vip-mode-map "\177" 'vip-delete-backward-char)
303 ;; basic set up
308 (define-key ctl-x-map "7" 'vip-buffer-in-two-windows)
309 (global-set-key "\C-z" 'vip-change-mode-to-vi))
328 (set-mark (or location (point))))
359 (setq vip-emacs-local-map (current-local-map)
362 vip-insert-local-map (vip-copy-keymap
363 (current-local-map))))
365 (use-local-map vip-mode-map))
369 (setq vip-emacs-local-map (current-local-map)
372 vip-insert-local-map (vip-copy-keymap
373 (current-local-map)))
374 (setq vip-insert-local-map (vip-copy-keymap
375 vip-emacs-local-map)))
377 (use-local-map vip-insert-local-map)
378 (define-key vip-insert-local-map "\e" 'vip-change-mode-to-vi)
379 (define-key vip-insert-local-map "\C-z" 'vip-ESC)
380 (define-key vip-insert-local-map "\C-h"
383 (define-key vip-insert-local-map "\C-w"
387 (use-local-map vip-emacs-local-map)))
418 2. Typing `C-h k' followed by a key whose description you want.
428 (set-buffer
466 (let (com key (old-map (current-local-map)))
469 (use-local-map vip-emacs-local-map)
471 (setq com (key-binding (setq key (read-key-sequence nil))))
472 (use-local-map old-map))
486 "Emulate ESC key in Emacs mode."
491 "Emulate C-c key in Emacs mode."
496 "Emulate C-x key in Emacs mode."
501 "Emulate C-h key in Emacs mode."
542 ;; if com is nil we set com as char, and read more. again, if char
669 (set-register reg (concat (or (get-register reg) "")
673 "(M-COM VAL COM) Execute command COM. The list (M-COM VAL COM) is set
681 (set-mark vip-com-point)
719 (set-mark vip-com-point)
758 (set-mark vip-com-point)
778 (set-mark vip-com-point)
788 (set-mark vip-com-point)
794 (set-mark vip-com-point)
800 (set-mark vip-com-point)
832 "This command is invoked interactively by the key sequence #<char>"
840 (set-mark vip-com-point)
843 (set-mark vip-com-point)
880 (progn (goto-char beg) (set-mark end))
882 (set-mark beg))
922 (defvar vip-save-minibuffer-local-map)
925 (setq vip-save-minibuffer-local-map (copy-keymap minibuffer-local-map))
926 (define-key minibuffer-local-map "\C-h" 'backward-char)
927 (define-key minibuffer-local-map "\C-w" 'backward-word)
928 (define-key minibuffer-local-map "\e" 'exit-minibuffer)
933 (setq minibuffer-local-map vip-save-minibuffer-local-map)
935 (setq minibuffer-local-map vip-save-minibuffer-local-map)
1044 (set-mark (point))
1320 (set-mark (point))
1374 (setq vip-F-char vip-f-char);; set new vip-F-char
1393 (setq vip-F-char vip-f-char);; set new vip-F-char
1413 (setq vip-F-char vip-f-char);; set new vip-F-char
1431 (setq vip-F-char vip-f-char);; set new vip-F-char
1952 (set-mark (point))
1955 (message "mark set at the beginning of buffer"))
1959 (set-mark (point))
1962 (message "mark set at the end of buffer"))
1971 ((= char ?,) (set-mark-command 1))
2029 (vip-ctl-key-equivalent "\C-c" arg))
2034 (vip-ctl-key-equivalent "\C-x" arg))
2036 (defun vip-ctl-key-equivalent (key arg)
2040 (vip-escape-to-emacs arg (list (aref key 0) char))))
2049 (set-mark (point))
2124 (set-mark (point))
2164 (cond ((looking-at "se") (vip-check-sub "set"))
2192 (set-buffer " *ex-working-space*")
2203 (set-mark (point))
2240 (set-mark (point))
2253 (set-mark (point))
2296 (set-buffer (get-buffer-create " *ex-working-space*"))
2316 (set-buffer " *ex-working-space*")
2339 "get a regular expression and set ex-variant if found"
2341 (set-buffer " *ex-working-space*")
2352 (set-mark (point))
2368 (set-buffer " *ex-working-space*")
2383 (set-buffer " *ex-working-space*")
2408 "get an ex-address as a marker and set ex-flag if a flag is found"
2474 "search pattern and set address"
2487 "get a buffer name and set ex-count and ex-flag if found"
2492 (set-buffer " *ex-working-space*")
2501 (set-mark (point))
2517 (set-buffer " *ex-working-space*")
2526 (set-mark (point))
2538 "get a file name and set ex-variant, ex-append and ex-offset if found"
2544 (set-buffer " *ex-working-space*")
2560 (set-mark (point))
2566 (set-mark (point))
2587 ((string= ex-token "set") (ex-set))
2644 (set-mark beg)
2679 (set-mark (point))
2681 (set-mark end))
2707 (set-buffer
2714 (set-buffer " *ex-working-space*")
2753 (set-mark (point))
2767 (set-buffer " *ex-working-space*")
2791 (set-mark (point))
2835 (set-buffer " *ex-working-space*")
2855 (set-buffer " *ex-working-space*")
2861 (set-mark (point))
2866 (if (not (lookup-key ex-map char))
2867 (define-key ex-map char
2868 (or (lookup-key vip-mode-map char) 'vip-nil)))
2869 (define-key vip-mode-map char
2881 (set-buffer " *ex-working-space*")
2887 (if (not (lookup-key ex-map char))
2889 (define-key vip-mode-map char (lookup-key ex-map char))
2890 (define-key ex-map char nil)))
2904 (set-buffer " *ex-working-space*")
2917 (set-buffer " *ex-working-space*")
2924 (set-mark (point))
2927 (set-mark (point))
2936 (defun ex-set ()
2970 (set-mark (point))
3015 (set-buffer " *ex-working-space*")
3017 (set-mark (point))
3066 (set-mark (point))
3068 (set-mark end))
3079 (set-buffer " *ex-working-space*")
3081 (set-mark (point))
3090 (set-mark end)