Lines Matching refs:msgid
53 ;; - When in edit mode, currently it highlights (in green) the msgid;
114 (defcustom po-auto-edit-with-msgid nil
115 "*Automatically use msgid when editing untranslated entries."
142 msgid \"\"
693 (defvar po-start-of-msgctxt) ; = po-start-of-msgid if there is no msgctxt
694 (defvar po-start-of-msgid)
714 ;; ENTRY-MARKER points to the msgid line if a comment is being edited, or to
718 ;; markers) for this msgid string which became highlighted for the edit.
779 LFD Init with msgid y Y Yank from q Confirm and quit
903 ["Init with msgid" po-msgid-to-msgstr
1010 (defvar po-any-msgctxt-msgid-regexp
1012 "Regexp matching a whole msgctxt or msgid field, whether obsolete or not.")
1014 (defvar po-any-msgid-regexp
1015 "^\\(#~[ \t]*\\)?msgid.*\n\\(\\(#~[ \t]*\\)?\".*\n\\)*"
1016 "Regexp matching a whole msgid field, whether obsolete or not.")
1037 ;; ("^\\(msgctxt \\|msgid \\|msgstr \\)?\"\\|\"$" . font-lock-keyword-face)
1039 ;; '("msgctxt " "msgid " "msgid_plural " "msgstr " "msgstr[0] " "msgstr[1] "))
1061 ;; ("^\\(msgid\\|msgstr\\) *\"" nil keyword)
1081 (define-key po-mode-map "\C-j" 'po-msgid-to-msgstr)
1168 (make-local-variable 'po-start-of-msgid)
1283 (if (string-equal (po-get-msgid) "")
1285 (if (re-search-forward "^msgid" (point-max) t)
1325 ;; possible, should try to fit the comment and the msgid. Otherwise,
1326 ;; should try to fit the msgid. Else, the first line of the msgid should
1328 (goto-char po-start-of-msgid))
1356 (if (looking-at "msgid \"\"\n")
1463 ;; Find start of msgid.
1465 (re-search-forward po-any-msgctxt-msgid-regexp)
1468 (re-search-forward po-any-msgid-regexp)
1469 (setq po-start-of-msgid (match-beginning 0))
1541 (goto-char po-start-of-msgid)
1562 (goto-char po-start-of-msgid)
1677 (defun po-msgid-to-msgstr ()
1678 "Use another window to edit msgstr reinitialized with msgid."
1684 (po-set-msgstr-form (po-get-msgid)))
1898 (defun po-get-msgid ()
1899 "Extract and return the unquoted msgid string."
1901 po-start-of-msgid
1920 (defun po-set-msgid (form)
1921 "Replace the current msgid, using FORM to get a string.
1926 Returns 'nil' if the buffer has not been modified, for if the new msgid
1927 described by FORM is merely identical to the msgid already in place."
1928 (let ((string (po-eval-requoted form "msgid" (eq po-entry-type 'obsolete))))
1931 (re-search-forward po-any-msgid-regexp po-start-of-msgstr-block)
1935 (goto-char po-start-of-msgid)
1957 (goto-char po-start-of-msgid)
2014 (po-check-for-pending-edit po-start-of-msgid)
2276 (cond ((= (point) po-start-of-msgid)
2296 (set-marker marker (cond ((eq type 'comment) po-start-of-msgid)
2305 ;; ;; Try showing all of msgid in the upper window while editing.
2310 (re-search-forward po-any-msgid-regexp nil t)
2313 (re-search-forward "msgid +" nil t)
2356 (po-edit-string (if (and po-auto-edit-with-msgid
2358 (po-get-msgid)
2393 "Normalize FIELD of all entries. FIELD is either the symbol msgid or msgstr.
2403 (cond ((eq field 'msgid) (po-set-msgid (po-get-msgid)))
2417 ;; FIXME: This cannot work: t and nil are not msgid and msgstr.
2465 "Search a PO file NAME for a 'msgid' STRING having a non-empty 'msgstr'.
2466 STRING is the full quoted msgid field, including the 'msgid' keyword. When
2468 possibly highlighted, the cursor at start of msgid, then return 't'.
2477 ;; Screen out longer 'msgid's.
2499 (goto-char po-start-of-msgid))
2506 "Select the next auxiliary file having an entry with same 'msgid'."
2510 (let ((string (buffer-substring po-start-of-msgid
2544 If an entry having the same 'msgid' cannot be found, merely select the file
2550 (buffer-substring po-start-of-msgid po-start-of-msgstr-block))
2600 (if (re-search-forward "^#:" po-start-of-msgid t)
2793 (insert (po-eval-requoted contents "msgid" nil) "msgstr \"\"\n"))