Lines Matching +defs:before +defs:string
4 ;; without a copyright notice before the US signed the Bern Convention.
33 ;; 4) Read the comments for command "vi-mode" before you start using it.
79 (let ((mode-cmd (lookup-key vi-tilde-map (char-to-string mode-char))))
204 (define-key vi-com-map "I" 'vi-insert-before-first-nonwhite)
211 (define-key vi-com-map "P" 'vi-put-before)
239 (define-key vi-com-map "i" 'vi-insert-before)
344 "Code to be eval'ed before (redo-)insertion begins.")
360 ;(defvar search-last-string ""
361 ; "Last string search for by a search command.")
367 "Save the local-map used before entering vi-mode.")
370 "Save the mode-name before entering vi-mode.")
373 "Save the major-mode before entering vi-mode.")
440 - No need to set/unset 'magic', to search for a string with regular expr
485 (defvar vi-replaced-string nil)
486 (defvar vi-replacing-string nil)
500 ;; (let ((cmd (read-string ":")) (lines 1))
501 ;; (cond ((string-match "s"))))
523 If PREFIX-CODE is given, do it before insertion begins if DO-IT-NOW-P is T.
524 In any case, the prefix-code will be done before each 'redo-insert'.
554 "Redo last insertion the first time. Extract the string and save it for
563 "Redo more insertion : copy string from STR to point, use overwrite mode
601 (defun vi-insert-before-first-nonwhite (arg)
633 (defun vi-insert-before (arg)
634 "enter insert state before the cursor."
652 ;;(defvar regexp-search t ; string
653 ;; "*T if search string can contain regular expressions. (= set magic in vi)")
676 (defun vi-search-forward (arg string)
679 (list t (read-string "regexp/" nil))
680 (list nil (read-string "/" nil))))
682 (if (> (length string) 0)
683 (isearch-update-ring string arg))
684 (funcall vi-search-last-command string nil nil 1))
686 (defun vi-search-backward (arg string)
689 (list t (read-string "regexp?" nil))
690 (list nil (read-string "?" nil))))
692 (if (> (length string) 0)
693 (isearch-update-ring string arg))
694 (funcall vi-search-last-command string nil nil 1))
696 (defun vi-repeat-last-search (arg &optional search-command search-string)
698 If optional search-command/string are given,
702 (if (null search-string)
703 (setq search-string
710 (funcall search-command search-string nil nil arg)))
712 (defun vi-reverse-last-search (arg &optional search-command search-string)
717 (if (null search-string)
718 (setq search-string
729 search-string nil nil arg)))
892 If UPTO-FLAG is T, stop before the char. ARG = (DIRECTION.CHAR.UPTO-FLAG."
991 (setq this-command (lookup-key vi-com-map (char-to-string last-command-char)))
996 (setq this-command (lookup-key vi-com-map (char-to-string last-command-char))))
1106 (defun vi-string-end-with-nl-p (string)
1109 (= (aref string (1- (length string))) ?\n))
1111 (defun vi-put-before (arg &optional after-p)
1112 "Put yanked (in vi sense) text back before/above cursor.
1126 (t (error "Register %c is not containing text string" reg))))
1127 (if (vi-string-end-with-nl-p put-text) ; put back text as lines
1136 (vi-set-last-change-command 'vi-put-before arg after-p))))
1141 (vi-put-before arg t))
1153 (setq shell-command (read-string "!" nil))
1306 (let ((rcmd (if arg 'replace-regexp 'replace-string)))
1340 (name-last-kbd-macro (intern (char-to-string char)))
1348 (fset (intern (char-to-string char)) vi-last-change-command)))
1353 (if (stringp (symbol-function (intern (char-to-string char))))
1354 (execute-kbd-macro (intern (char-to-string char)) count)
1355 (vi-redo-last-change-command count (symbol-function (intern (char-to-string char))))))
1411 ((char-equal unit ?s) (call-interactively 'spell-string))
1421 (concat "\C-c" (char-to-string (read-char))))))
1439 (while (not (string-match "[[({<\"'`*]" (char-to-string char)))
1455 "Locate definition in current file for the name before the point.
1476 "Insert a newline and leave point before it.