Lines Matching +defs:old +defs:mark
42 (defvar vi-mode-old-major-mode)
43 (defvar vi-mode-old-mode-name)
44 (defvar vi-mode-old-local-map)
45 (defvar vi-mode-old-case-fold)
73 (define-key vi-tilde-map "~" 'vi-back-to-old-mode))
102 (defun vi-back-to-old-mode ()
105 (if vi-mode-old-major-mode
107 (setq mode-name vi-mode-old-mode-name)
108 (use-local-map vi-mode-old-local-map)
109 (setq major-mode vi-mode-old-major-mode)
110 (setq case-fold-search vi-mode-old-case-fold)
127 (define-key vi-com-map "\C-@" 'vi-mark-region) ; extension
130 (define-key vi-com-map "\C-c" 'vi-do-old-mode-C-c-command) ; extension
167 (define-key vi-com-map "'" 'vi-goto-line-mark)
229 (define-key vi-com-map "`" 'vi-goto-char-mark)
243 (define-key vi-com-map "m" 'vi-set-mark)
276 (put 'vi-goto-line-mark 'point-moving-unit 'line)
298 (put 'vi-goto-char-mark 'point-moving-unit 'char)
311 ;;; region mark commands
312 (put 'mark-page 'point-moving-unit 'region)
313 (put 'mark-paragraph 'point-moving-unit 'region)
314 (put 'mark-word 'point-moving-unit 'region)
315 (put 'mark-sexp 'point-moving-unit 'region)
316 (put 'mark-defun 'point-moving-unit 'region)
317 (put 'mark-whole-buffer 'point-moving-unit 'region)
318 (put 'mark-end-of-sentence 'point-moving-unit 'region)
319 (put 'c-mark-function 'point-moving-unit 'region)
322 (defvar vi-mark-alist nil
332 "Last insertion point. Should use `mark' instead.")
366 (defvar vi-mode-old-local-map nil
369 (defvar vi-mode-old-mode-name nil
372 (defvar vi-mode-old-major-mode nil
375 (defvar vi-mode-old-case-fold nil)
402 (make-local-variable 'vi-mark-alist)
404 (make-local-variable 'vi-mode-old-local-map)
405 (make-local-variable 'vi-mode-old-mode-name)
406 (make-local-variable 'vi-mode-old-major-mode)
407 (make-local-variable 'vi-mode-old-case-fold)
451 `vi-mark-region', and 'vi-quote-words'. Some of them are quite handy.
456 (if (null vi-mode-old-major-mode) ; very first call for current buffer
461 (setq vi-mode-old-local-map (current-local-map))
462 (setq vi-mode-old-mode-name mode-name)
463 (setq vi-mode-old-major-mode major-mode)
464 (setq vi-mode-old-case-fold case-fold-search) ; this is needed !!
496 s/old/new use q (vi-replace) to do unconditional replace
530 (setq mode-name vi-mode-old-mode-name)
531 (setq case-fold-search vi-mode-old-case-fold)
532 (use-local-map vi-mode-old-local-map)
533 (setq major-mode vi-mode-old-major-mode)
762 ; (set-mark-command nil)
784 ; (set-mark-command nil)
834 (defun vi-goto-mark (mark-char &optional line-flag)
836 Goto mark '@' means jump into and pop the top mark on the mark ring."
837 (cond ((char-equal mark-char last-command-char) ; `` or ''
838 (exchange-point-and-mark) (if line-flag (back-to-indentation)))
839 ((char-equal mark-char ?@) ; jump and pop mark
840 (set-mark-command t) (if line-flag (back-to-indentation)))
842 (let ((mark (vi-get-mark mark-char)))
843 (if (null mark)
845 (set-mark-command nil)
846 (goto-char mark)
849 (defun vi-goto-line-mark (char)
852 (vi-goto-mark char t))
854 (defun vi-goto-char-mark (char)
855 "Go to the char position marked by next mark-char."
857 (vi-goto-mark char))
959 "Replace chars over old ones."
1058 (setq begin (or (mark) (point))))
1132 (push-mark (point))
1134 (exchange-point-and-mark)
1190 (defun vi-get-mark (char)
1191 "Return contents of vi mark register named CHAR, or nil if undefined."
1192 (cdr (assq char vi-mark-alist)))
1194 (defun vi-set-mark (char)
1195 "Set contents of vi mark register named CHAR to current point.
1196 '@' is the special anonymous mark register."
1199 (set-mark-command nil)
1200 (let ((aelt (assq char vi-mark-alist)))
1204 (setq vi-mark-alist (cons aelt vi-mark-alist))))))
1380 (defun vi-mark-region (arg region)
1385 (cond ((char-equal region ?d) (mark-defun))
1386 ((char-equal region ?s) (mark-sexp arg))
1387 ((char-equal region ?b) (mark-whole-buffer))
1388 ((char-equal region ?p) (mark-paragraph))
1389 ((char-equal region ?P) (mark-page arg))
1390 ((char-equal region ?f) (c-mark-function))
1391 ((char-equal region ?w) (mark-word arg))
1392 ((char-equal region ?e) (mark-end-of-sentence arg))
1393 ((char-equal region ?l) (vi-mark-lines arg))
1396 (vi-mark-region arg region))))
1398 (defun vi-mark-lines (num)
1401 (push-mark)
1417 (defun vi-do-old-mode-C-c-command (arg)
1420 (let ((cmd (lookup-key vi-mode-old-local-map
1426 (let ((case-fold-search vi-mode-old-case-fold)) ; a hack
1431 (vi-back-to-old-mode)
1467 (set-mark-command nil)
1473 (set-mark-command t))))