Lines Matching +refs:po +refs:string +refs:contents
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)
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)
2421 (while (and (not found) (search-forward string nil t))
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))
2719 (let ((contents po-string-contents)
2723 line string)
2736 (insert (po-eval-requoted contents "msgid" nil) "msgstr \"\"\n"))
3037 (let (contents start end)
3038 (while (and (not contents)
3055 contents (po-skip-over-python-string)
3061 (setq contents nil))
3072 (setq contents nil)))))
3075 (and contents (list contents start end))))
3081 (contents "")
3113 (setq contents nil
3126 (setq contents nil
3135 (setq contents (concat contents
3141 contents))