gettext-tools/misc/po-mode.el

400       "Return string of text matched by last search."
628 (defvar po-search-path)
836     ["Find first string" (po-tags-search '(nil)) t]
838     ["Find next string" po-tags-search t]
981     (define-key po-mode-map "," 'po-tags-search)
1078   (set (make-local-variable 'po-search-path) '(("./") ("../")))
1177       (if (re-search-forward "^msgid" (point-max) t)
1180 	    (while (re-search-forward po-any-msgstr-regexp nil t)
1200 	    (while (re-search-forward po-fuzzy-regexp nil t)
1240       (if (re-search-forward po-any-msgstr-regexp nil t)
1248 		(if (re-search-forward "\n\"PO-Revision-Date: "
1278 	    (if (re-search-forward "^\"PO-Revision-Date:.*" nil t)
1304     (if (re-search-backward po-any-msgstr-regexp nil t)
1310 	  (re-search-forward po-any-msgstr-regexp)
1322 		(if (re-search-forward po-any-msgstr-regexp nil t)
1332 			(if (re-search-backward po-any-msgstr-regexp nil t)
1342 		  (if (re-search-backward po-any-msgstr-regexp nil t)
1349       (re-search-forward po-any-msgstr-regexp)
1354     (re-search-forward po-any-msgid-regexp)
1361 	    (if (re-search-forward po-fuzzy-regexp po-start-of-msgid t)
1375       (if (re-search-forward "\n#[,!] .*" po-start-of-msgid t)
1379 	    (if (re-search-forward (concat "\\b" name "\\b") nil t)
1393       (if (re-search-forward "\n#[,!] .*" po-start-of-msgid t)
1397 	    (if (re-search-forward
1456     (if (re-search-forward regexp nil t)
1467     (if (re-search-backward regexp nil t)
1474 If WRAP is not nil, the search may wrap around the buffer."
1478     (if (re-search-forward regexp nil t)
1485 		 (re-search-forward regexp po-start-of-entry t)))
1495 If WRAP is not nil, the search may wrap around the buffer."
1499     (if (re-search-backward regexp nil t)
1504 		 (re-search-backward regexp po-end-of-entry t)))
1648       (if (re-search-forward po-any-msgstr-regexp nil t)
1660 		     (re-search-forward po-untranslated-regexp nil t))
1669 		     (re-search-forward po-fuzzy-regexp nil t))
1678 		     (re-search-forward po-obsolete-msgstr-regexp nil t))
1695     (search-forward "\"")
1698     (search-backward "\"")
1709    (while (re-search-forward "\"[ \t]*\\\\?\n\\(#~\\)?[ \t]*\"" nil t)
1713    (while (re-search-forward "\\\\[ \t]*\n" nil t)
1717    (while (re-search-forward "\\\\[\"abfnt\\0-7]" nil t)
1745     (let ((multi-line (re-search-forward "[^\n]\n+[^\n]" nil t)))
1747       (while (re-search-forward "[\"\a\b\f\n\r\t\\]" nil t)
1771 	      (search-forward "\n"))))
1801       (re-search-forward po-any-msgid-regexp po-start-of-msgstr)
1822         (if (re-search-forward po-msgstr-idx-keyword-regexp
1826       (re-search-forward po-any-msgstr-regexp po-end-of-entry)
1886 		       (search-forward "\n")))))
1900 	 (if (re-search-forward po-any-msgstr-regexp nil t)
1902 	   (re-search-backward po-any-msgstr-regexp nil t))
1924       (if (re-search-forward (if obsolete po-obsolete-comment-regexp
1957 	(search-forward "\n"))
1960     (if (re-search-forward
2102     (if (not (re-search-forward marker-regex (point-max) t))
2118 	  (if (re-search-forward marker-regex (point-max) t)
2196 		(re-search-forward po-any-msgid-regexp nil t)
2199 		  (re-search-forward "msgid +" nil t)
2268     (while (re-search-forward
2284     (while (re-search-forward po-any-msgstr-regexp nil t)
2361       (while (and (not found) (search-forward string nil t))
2378 		  (re-search-forward po-any-msgstr-regexp nil t)
2381 		    (re-search-forward "msgstr +" nil t)
2445   "Echo the current source search path in the message area."
2446   (if po-search-path
2447       (let ((cursor po-search-path)
2456   "Add a given DIRECTORY, requested interactively, to the source search path."
2457   (interactive "DDirectory for search path: ")
2458   (setq po-search-path (cons (list (if (string-match "/$" directory)
2461 			     po-search-path))
2466   "Delete a directory, selected with completion, from the source search path."
2468   (setq po-search-path
2470 				       po-search-path nil t))
2471 		po-search-path))
2483       (if (re-search-forward "^#:" po-start-of-msgid t)
2489 		    path po-search-path)
2559 ;; Dynamically set within po-tags-search for po-tags-loop-operate.
2563 (defun po-tags-search (restart)
2566 With prefix argument, restart search at first file."
2569   ;; Ensure there is no highlighting, in case the search fails.
2579 	;; Continue last po-tags-search.
2581       ;; Start or restart po-tags-search all over.
2627 	   (if (re-search-forward "[A-Za-z][A-Za-z][A-Za-z]" nil t)
2630 	     (if (re-search-forward "[A-Za-z][A-Za-z]" nil t)
2635 		   (while (re-search-forward "[A-Za-z]+" nil t)
2741 		(re-search-forward "[#/\"]" nil t))
2744 	     (or (search-forward "\n" nil t)
2802 		(re-search-forward "[#'\"]" nil t))
2805 	     (or (search-forward "\n" nil t)
2863 		(re-search-forward "\\([\"']\\|/\\*\\|//\\)" nil t))
2866 	     (search-forward "*/"))
2907 			 ;; String found.  Prepare to resume search.
2909 		 ;; String found.  Prepare to resume search.
2934 		(re-search-forward "[;\"?]" nil t))
2937 	     (search-forward "\n"))
2985 		(re-search-forward "[#\"']" nil t))
2989 	     (search-forward "\n"))
3033 	     (search-forward "\n"))
3041 	     (search-forward "\"\"\"")
3048 	     (search-forward "'''")
3196       (re-search-forward po-any-msgstr-regexp)
3201       (if (re-search-forward "\n\
3224 	(if (re-search-forward "\n\
3245       (re-search-forward po-any-msgstr-regexp)
3247       (if (re-search-forward
3293 	    (re-search-forward