Lines Matching +refs:po +refs:string +refs:start
75 (defsubst set-translation-domain (string) nil))
77 (defsubst translate-string (string) string)))
78 (defsubst _ (string) (translate-string string))
79 (defsubst N_ (string) string)
95 (defgroup po nil unknown
102 :group 'po)
107 :group 'po)
115 :group 'po)
120 :group 'po)
125 :group 'po)
132 :group 'po)
139 :group 'po)
158 :type 'string
159 :group 'po)
166 :type 'string
167 :group 'po)
171 :type 'string
172 :group 'po)
179 :group 'po)
189 :group 'po)
472 :group 'po)
478 :type 'string
479 :group 'po)
528 (defun po-kill-new (string)
531 (insert string)
567 (defun po-highlight (overlay start end &optional buffer)
570 (move-overlay overlay start end (or buffer (current-buffer))))
1696 (defun po-extract-unquoted (buffer start end)
1700 (goto-char start)
1702 (setq start (point))
1706 (po-extract-part-unquoted buffer start end))
1708 (defun po-extract-part-unquoted (buffer start end)
1712 (insert-buffer-substring buffer start end)
1782 (let ((string (po-extract-unquoted (current-buffer)
1786 string))
1792 (let ((string (po-extract-unquoted (current-buffer)
1795 string)
1808 (let ((string (po-extract-unquoted (current-buffer)
1811 string))
1821 (let ((string (po-eval-requoted form "msgid" (eq po-entry-type 'obsolete))))
1825 (and (not (string-equal (po-match-string 0) string))
1827 (replace-match string t t)
1840 (let ((string (po-eval-requoted form
1846 (and (not (string-equal (po-match-string 0) string))
1849 (replace-match string t t)
1859 (let ((string (po-get-msgstr-form)))
1860 (po-kill-new string)
1861 string))
1955 string)
1967 (setq string (buffer-string)))
1970 (if (not (string-equal (po-match-string 0) string))
1972 (replace-match string t t)))
1975 (insert string))))
2220 (let ((string (buffer-string)))
2224 (po-set-comment string)
2227 (if (po-set-msgstr-form string)
2239 (defun po-edit-string (string type expand-tabs)
2274 (insert string "<")
2380 string)
2382 (setq string (concat string (if string " ") (car (car cursor)))
2386 (setq string (concat string (if string " ") (car (car cursor)))
2388 (message string))
2409 (defun po-seek-equivalent-translation (name string)
2418 (let ((start (point))
2421 (while (and (not found) (search-forward string nil t))
2445 (goto-char start)
2455 (let ((string (buffer-substring po-start-of-msgid
2462 (po-seek-equivalent-translation name string))
2470 (po-seek-equivalent-translation name string))
2494 (let ((string
2500 (or (po-seek-equivalent-translation name string)
2509 string)
2511 (setq string (concat string (if string " ") (car (car cursor)))
2513 (message string))
2649 (start po-string-start)
2653 (goto-char start)
2654 (or (pos-visible-in-window-p start)
2663 (po-highlight po-marking-overlay start end buffer)))))
2721 (start po-string-start)
2723 line string)
2727 (setq line (count-lines (point-min) start))
2728 (apply po-mark-string-function start end keyword nil))
2788 (defun po-mark-unknown-string (start end keyword)
2797 (let (start end)
2798 (while (and (not start)
2811 (t (setq start (1- (point)))
2820 (goto-char start)
2823 (setq start nil
2833 (setq start nil
2835 (and start end
2836 (list (po-extract-unquoted (current-buffer) start end) start end))))
2838 (defun po-mark-awk-string (start end keyword)
2843 (goto-char start)
2849 (goto-char start)
2857 (let (start end)
2858 (while (and (not start)
2871 (t (setq start (1- (point)))
2879 (goto-char start)
2882 (setq start nil
2884 (and start end
2885 (list (po-extract-unquoted (current-buffer) start end) start end))))
2887 (defun po-mark-bash-string (start end keyword)
2890 (goto-char start)
2917 (let (start end)
2918 (while (and (not start)
2936 (t (setq start (1- (point))
2947 (goto-char start)
2961 (setq start nil
2968 (and start end
2969 (list (po-extract-unquoted (current-buffer) start end) start end))))
2971 (defun po-mark-c-string (start end keyword)
2977 (goto-char start)
2987 (let (start end)
2988 (while (and (not start)
2997 (t (setq start (1- (point)))
3004 (goto-char start)
3015 (setq start nil
3018 (and start end
3019 (list (po-extract-unquoted (current-buffer) start end) start end))))
3021 (defun po-mark-emacs-lisp-string (start end keyword)
3027 (goto-char start)
3037 (let (contents start end)
3054 (setq start (point)
3057 (goto-char start)
3075 (and contents (list contents start end))))
3082 raw start end resume)
3086 (setq start nil)
3089 (setq start nil)
3093 start (match-end 0))
3094 (goto-char start)
3100 start (match-end 0))
3101 (goto-char start)
3107 start (match-end 0))
3108 (goto-char start)
3114 start nil)
3120 start (match-end 0))
3121 (goto-char start)
3127 start nil)
3132 (setq start nil
3134 (if start
3137 (buffer-substring start end)
3139 start end))))))
3143 (defun po-mark-python-string (start end keyword)
3150 (goto-char start)