Lines Matching +refs:po +refs:string +refs:contents

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)
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)
2346       (while (and (not found) (search-forward string nil t))
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))
2642   (let ((contents po-string-contents)
2646 	line string)
2659 	(insert (po-eval-requoted contents "msgid" nil) "msgstr \"\"\n"))
2960   (let (contents start end)
2961     (while (and (not contents)
2978 		   contents (po-skip-over-python-string)
2984 		    (setq contents nil))
2995 			  (setq contents nil)))))
2998     (and contents (list contents start end))))
3004 	(contents "")
3036 		 (setq contents nil
3049 		 (setq contents nil
3058 	  (setq contents (concat contents
3064     contents))