Lines Matching +refs:po +refs:string +refs:start
74 (defsubst set-translation-domain (string) nil))
76 (defsubst translate-string (string) string)))
77 (defsubst _ (string) (translate-string string))
78 (defsubst N_ (string) string)
94 (defgroup po nil unknown
101 :group 'po)
106 :group 'po)
111 :group 'po)
118 :group 'po)
137 :type 'string
138 :group 'po)
145 :type 'string
146 :group 'po)
154 :type 'string
155 :group 'po)
162 :group 'po)
172 :group 'po)
369 :group 'po)
375 :type 'string
376 :group 'po)
425 (defun po-kill-new (string)
428 (insert string)
470 (defun po-highlight (overlay start end &optional buffer)
473 (move-overlay overlay start end (or buffer (current-buffer))))
496 (defun po-highlight (extent start end &optional buffer)
499 (set-extent-endpoints extent start end (or buffer (current-buffer))))
516 (defun po-highlight (overlay start end &optional buffer)
526 (text (buffer-substring start end)))
527 (goto-char start)
528 (delete-region start end)
529 (insert-char ? (- end start))
532 (delete-region start end)
537 (set-marker (car overlay) start (or buffer (current-buffer)))
543 (start (marker-position (car overlay)))
547 (po-highlight overlay start end buffer))))
552 (start (marker-position (car overlay)))
561 (let ((text (buffer-substring start end)))
562 (goto-char start)
563 (delete-region start end)
564 (insert-char ? (- end start))
566 (delete-region start end)
1679 (defun po-extract-unquoted (buffer start end)
1683 (goto-char start)
1685 (setq start (point))
1689 (po-extract-part-unquoted buffer start end))
1691 (defun po-extract-part-unquoted (buffer start end)
1695 (insert-buffer-substring buffer start end)
1766 (let ((string (po-extract-unquoted (current-buffer)
1768 (if kill (po-kill-new string))
1769 string))
1774 (let ((string (po-extract-unquoted (current-buffer)
1776 (if kill (po-kill-new string))
1777 string))
1787 (let ((string (po-eval-requoted form "msgid" (eq po-entry-type 'obsolete))))
1791 (and (not (string-equal (po-match-string 0) string))
1793 (replace-match string t t)
1806 (let ((string (po-eval-requoted form "msgstr" (eq po-entry-type 'obsolete)))
1816 (and (not (string-equal (po-match-string 0) string))
1819 (replace-match string t t)
1932 string)
1946 (setq string (buffer-string)))
1951 (if (not (string-equal (po-match-string 0) string))
1953 (replace-match string t t)))
1956 (insert string))))
2146 (let ((string (buffer-string)))
2150 (po-set-comment string)
2153 (let ((replaced (po-set-msgstr string)))
2164 (defun po-edit-string (string type expand-tabs)
2198 (insert string "<")
2305 string)
2307 (setq string (concat string (if string " ") (car (car cursor)))
2311 (setq string (concat string (if string " ") (car (car cursor)))
2313 (message string))
2334 (defun po-seek-equivalent-translation (name string)
2343 (let ((start (point))
2346 (while (and (not found) (search-forward string nil t))
2370 (goto-char start)
2380 (let ((string (buffer-substring po-start-of-msgid po-start-of-msgstr))
2386 (po-seek-equivalent-translation name string))
2394 (po-seek-equivalent-translation name string))
2418 (let ((string (buffer-substring po-start-of-msgid po-start-of-msgstr))
2423 (or (po-seek-equivalent-translation name string)
2432 string)
2434 (setq string (concat string (if string " ") (car (car cursor)))
2436 (message string))
2572 (start po-string-start)
2576 (goto-char start)
2577 (or (pos-visible-in-window-p start)
2586 (po-highlight po-marking-overlay start end buffer)))))
2644 (start po-string-start)
2646 line string)
2650 (setq line (count-lines (point-min) start))
2651 (apply po-mark-string-function start end keyword nil))
2711 (defun po-mark-unknown-string (start end keyword)
2720 (let (start end)
2721 (while (and (not start)
2734 (t (setq start (1- (point)))
2743 (goto-char start)
2746 (setq start nil
2756 (setq start nil
2758 (and start end
2759 (list (po-extract-unquoted (current-buffer) start end) start end))))
2761 (defun po-mark-awk-string (start end keyword)
2766 (goto-char start)
2772 (goto-char start)
2780 (let (start end)
2781 (while (and (not start)
2794 (t (setq start (1- (point)))
2802 (goto-char start)
2805 (setq start nil
2807 (and start end
2808 (list (po-extract-unquoted (current-buffer) start end) start end))))
2810 (defun po-mark-bash-string (start end keyword)
2813 (goto-char start)
2840 (let (start end)
2841 (while (and (not start)
2859 (t (setq start (1- (point))
2870 (goto-char start)
2884 (setq start nil
2891 (and start end
2892 (list (po-extract-unquoted (current-buffer) start end) start end))))
2894 (defun po-mark-c-string (start end keyword)
2900 (goto-char start)
2910 (let (start end)
2911 (while (and (not start)
2920 (t (setq start (1- (point)))
2927 (goto-char start)
2938 (setq start nil
2941 (and start end
2942 (list (po-extract-unquoted (current-buffer) start end) start end))))
2944 (defun po-mark-emacs-lisp-string (start end keyword)
2950 (goto-char start)
2960 (let (contents start end)
2977 (setq start (point)
2980 (goto-char start)
2998 (and contents (list contents start end))))
3005 raw start end resume)
3009 (setq start nil)
3012 (setq start nil)
3016 start (match-end 0))
3017 (goto-char start)
3023 start (match-end 0))
3024 (goto-char start)
3030 start (match-end 0))
3031 (goto-char start)
3037 start nil)
3043 start (match-end 0))
3044 (goto-char start)
3050 start nil)
3055 (setq start nil
3057 (if start
3060 (buffer-substring start end)
3062 start end))))))
3066 (defun po-mark-python-string (start end keyword)
3073 (goto-char start)