Lines Matching +refs:po +refs:string +refs:buffer
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)
521 (and buffer (set-buffer buffer))
537 (set-marker (car overlay) start (or buffer (current-buffer)))
538 (set-marker (cdr overlay) end (or buffer (current-buffer))))
542 (let ((buffer (marker-buffer (car overlay)))
545 (and buffer
546 (buffer-name buffer)
547 (po-highlight overlay start end buffer))))
551 (let ((buffer (marker-buffer (car overlay)))
554 (if buffer
556 (set-buffer buffer)
1679 (defun po-extract-unquoted (buffer start end)
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)
1908 (let ((buffer (current-buffer))
1916 (insert-buffer-substring buffer (match-beginning 0) (match-end 0))
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)
2175 (buffer (current-buffer))
2188 (po-highlight overlay (point) end buffer))))
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)
2341 (buffer (find-file-noselect name)))
2342 (set-buffer buffer)
2346 (while (and (not found) (search-forward string nil t))
2358 (switch-to-buffer buffer)
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))
2406 (buffer (current-buffer)))
2409 (pop-to-buffer buffer)))
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))
2571 (buffer po-string-buffer)
2575 (select-window (get-buffer-window buffer))
2586 (po-highlight po-marking-overlay start end buffer)))))
2626 (let ((buffer (current-buffer)))
2630 po-string-buffer buffer
2643 (buffer po-string-buffer)
2646 line string)
2649 (set-buffer buffer)
3258 (let ((buffer (current-buffer))
3272 (insert-buffer buffer)