Lines Matching refs:form
52 ;; Plural form editing:
696 (defvar po-start-of-msgstr-form)
697 (defvar po-end-of-msgstr-form)
700 (defvar po-msgstr-form-flavor)
712 ;; an list of "slots" of the form: (ENTRY-MARKER EDIT-BUFFER OVERLAY-INFO).
1022 (defvar po-any-msgstr-form-regexp
1477 (re-search-forward po-any-msgstr-form-regexp)
1478 (setq po-start-of-msgstr-form (match-beginning 0)
1479 po-end-of-msgstr-form (match-end 0)))
1684 (po-set-msgstr-form (po-get-msgid)))
1857 (defun po-eval-requoted (form prefix obsolete)
1864 (if (stringp form)
1865 (insert form)
1867 (eval form))
1911 (defun po-get-msgstr-form ()
1915 po-start-of-msgstr-form
1916 po-end-of-msgstr-form)))
1917 (setq po-msgstr-form-flavor flavor)
1920 (defun po-set-msgid (form)
1928 (let ((string (po-eval-requoted form "msgid" (eq po-entry-type 'obsolete))))
1939 (defun po-set-msgstr-form (form)
1947 (let ((string (po-eval-requoted form
1948 po-msgstr-form-flavor
1951 (goto-char po-start-of-msgstr-form)
1952 (re-search-forward po-any-msgstr-form-regexp po-end-of-msgstr-form)
1966 (let ((string (po-get-msgstr-form)))
1974 (po-set-msgstr-form ""))
1980 (po-set-msgstr-form (if (eq last-command 'yank) '(yank-pop 1) '(yank)))
2019 (po-kill-new (po-get-msgstr-form))
2055 (defun po-set-comment (form)
2063 (if (stringp form)
2064 (insert form)
2066 (eval form))
2110 ;; Reminder: slots have the form (ENTRY-MARKER EDIT-BUFFER OVERLAY-INFO).
2279 ((= (point) po-start-of-msgstr-form)
2280 (let ((replaced (po-set-msgstr-form string)))
2297 ((eq type 'msgstr) po-start-of-msgstr-form)))
2359 (po-get-msgstr-form))
2404 ((eq field 'msgstr) (po-set-msgstr-form (po-get-msgstr-form))))