lisp/emulation/viper-ex.el

38 (defvar viper-local-search-start-marker)
41 (defvar viper-case-fold-search)
201 ;; by anything, no whitespace needed.  This is a special-case for ":k".
270 ;; controls are dead weight.  We keep it just in case this might be
299   (let ((case-fold-search t))
320   (let ((case-fold-search t))
403   (let (cmd case-fold-search)
405     (re-search-forward "[a-zA-Z][a-zA-Z]*")
421     (let ((case-fold-search t))
432 	     (re-search-forward "[0-9]*")
472 		 ;;(re-search-forward "[^/]*/")
473 		 (re-search-forward "[^/]*\\(/\\|\n\\)")
479 	     (setq ex-token-type 'search-forward))
485 		 ;;(re-search-forward "[^\\?]*\\?")
486 		 (re-search-forward "[^\\?]*\\(\\?\\|\n\\)")
491 	     (setq ex-token-type 'search-backward)
606 	     (let (case-fold-search)
725 ;; Viper doesn't parse the substitution or search patterns.
752 		(if (not (re-search-forward (format "[^%c]*%c" c c) nil t))
774 	    ;; at newline now.  In this case, insert the initial delimiter
864 	  ((eq ex-token-type 'search-forward)
866 	     (ex-search-address t)
868 	  ((eq ex-token-type 'search-backward)
870 	     (ex-search-address nil)
885 (defun ex-search-address (forward)
894 	(re-search-forward ex-token))
896     (re-search-backward ex-token)))
915 	  (re-search-forward "[0-9][0-9]*")
941 	  (re-search-forward "[0-9][0-9]*")
969       (while (re-search-forward "%\\|#" nil t)
1020 	      (re-search-forward "[ \t\n]")
1203 	    (condition-case nil
1235 	    (condition-case nil
1311 ;; In this case, split it into substrings separated by newlines.
1371 	  (let ((found (re-search-backward ex-g-pat (mark t) t)))
1420 	    (condition-case nil
1574       (setq viper-local-search-start-marker (point-marker))
1724 	   (setq var "viper-case-fold-search"
1727 	   (setq var "viper-case-fold-search"
1730 	   (setq var "viper-re-search"
1733 	   (setq var "viper-re-search"
1748 	   (setq var "viper-search-wrap-around-t"
1751 	   (setq var "viper-search-wrap-around-t"
1767 	      (condition-case nil
1851     (re-search-forward regex-forw nil t)
1863 	  (while (re-search-forward " +" nil t)
1876   (condition-case nil
1880 	(message "Type `i' to search for a specific topic"))
1904 	(case-fold-search viper-case-fold-search)
1957 			      (re-search-forward pat eol-mark t))
1960 			      (viper-put-on-search-overlay (match-beginning 0)
1964 			  (viper-hide-search-overlay)
1974 	      (if (and (re-search-forward pat eol-mark t)
1977 			     (viper-put-on-search-overlay (match-beginning 0)
1981 		    (viper-hide-search-overlay)
2006     (condition-case conds
2099 	  ;; temp-buf will be deleted in case of an error
2269     (princ (if viper-case-fold-search "ignorecase\n" "noignorecase\n"))
2270     (princ (if viper-re-search "magic\n" "nomagic\n"))
2273     (princ (if viper-search-wrap-around-t "wrapscan\n" "nowrapscan\n"))