Lines Matching defs:of
10 ;; This file is part of GNU gettext.
13 ;; it under the terms of the GNU General Public License as published by
18 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
22 ;; You should have received a copy of the GNU General Public License
56 ;; - After the translator finished the translation of msgstr[0], it would
57 ;; be nice if the cursor would automatically move to the beginning of the
61 ;; contents of msgstr[0] would be copied. (Not sure if this should happen
62 ;; at the end of the editing msgstr[0] or at the beginning of the editing
63 ;; of msgstr[1].) Reason: These two strings are usually very similar.
69 Version number of this version of po-mode.el.")
158 "*Electronic mail address of the Translation Project.
187 ;; All possible languages, a complete ISO 639 list, the inverse of
464 If a string instead of an alist, it is a team code to use unconditionnally."
469 "*The filter to use for preparing a mail invoice of the PO file.
471 or remove the -m if you are not using the GNU version of 'uuencode'."
495 "Return string of text matched by last search."
549 "Force the mode-line of the current buffer to be redisplayed."
676 ;; The following block of declarations has the main purpose of avoiding
678 ;; each of these variables, all meant to be local to PO mode buffers.
685 ;; holds the value of the read-only flag before PO mode was entered.
690 ;; start of keyword lines are START-OF-MSGID and START-OF-MSGSTR.
692 (defvar po-start-of-entry)
693 (defvar po-start-of-msgctxt) ; = po-start-of-msgid if there is no msgctxt
694 (defvar po-start-of-msgid)
695 (defvar po-start-of-msgstr-block)
696 (defvar po-start-of-msgstr-form)
697 (defvar po-end-of-msgstr-form)
698 (defvar po-end-of-entry)
709 ;; PO mode keeps track of fields being edited, for one given field should
712 ;; an list of "slots" of the form: (ENTRY-MARKER EDIT-BUFFER OVERLAY-INFO).
713 ;; To allow simultaneous edition of the comment and the msgstr of an entry,
717 ;; nil, holds an overlay (or if overlays are not supported, a cons of two
721 ;; We maintain a set of movable pointers for returning to entries.
724 ;; SEARCH path contains a list of directories where files may be found,
740 ;; sources. KEYWORDS is the list of keywords for marking translatable
742 ;; STRING-CONTENTS holds the value of the most recent string found in sources,
746 ;; of two markers around the highlighted region.
943 '(:help "Display version number of PO mode"))]
949 '(:help "Check validity of current translation file using `msgfmt'"))]
984 "List of auxiliary PO files, in completing read format.")
1149 Turning on PO mode calls the value of the variable 'po-mode-hook',
1166 (make-local-variable 'po-start-of-entry)
1167 (make-local-variable 'po-start-of-msgctxt)
1168 (make-local-variable 'po-start-of-msgid)
1169 (make-local-variable 'po-start-of-msgstr-block)
1170 (make-local-variable 'po-end-of-entry)
1245 "Return the symbol name of the counter appropriate for the current entry."
1253 "Decrease the counter corresponding to the nature of the current entry."
1258 "Increase the counter corresponding to the nature of the current entry.
1270 (and flag (po-find-span-of-entry))
1278 (po-find-span-of-entry)
1279 (setq current po-start-of-msgstr-block)
1282 (po-find-span-of-entry)
1284 (goto-char po-end-of-entry))
1304 ;; Make another pass just for the fuzzy entries, kind of kludgey.
1326 ;; should try to fit the msgid. Else, the first line of the msgid should
1327 ;; be at the top of the window.
1328 (goto-char po-start-of-msgid))
1331 "Get the cursor into another window, out of PO mode."
1346 (widen) ; in case of a narrowed view to the buffer
1348 insert-flag end-of-header)
1355 (setq end-of-header (match-end 0))
1359 end-of-header t)
1362 (goto-char end-of-header)
1366 (beginning-of-line))
1367 (beginning-of-line)
1406 ;;; Handling span of entry, entry type and entry attributes.
1408 (defun po-find-span-of-entry ()
1409 "Find the extent of the PO file entry where the cursor is.
1411 po-start-of-msgstr-block, PO-END-OF-ENTRY and PO-ENTRY-TYPE to meaningful
1412 values. Decreasing priority of type interpretation is: obsolete, fuzzy,
1424 ;; We most probably found the msgstr of the previous
1427 (setq po-start-of-entry (match-end 0))
1430 ;; yes, we know the middle and end of last PO entry.
1431 (setq po-start-of-msgstr-block (match-beginning 0)
1432 po-end-of-entry (match-end 0))
1436 (setq po-start-of-msgstr-block (match-beginning 0)
1437 po-end-of-entry (match-end 0)))
1438 ;; We were in the crumb. The start of the last PO
1439 ;; file entry is the end of the previous msgstr if
1440 ;; any, or else, the beginning of the file.
1441 (goto-char po-start-of-msgstr-block)
1442 (setq po-start-of-entry
1446 ;; The cursor was inside msgstr of the current entry.
1447 (setq po-start-of-msgstr-block (match-beginning 0)
1448 po-end-of-entry (match-end 0))
1449 ;; The start of this entry is the end of the previous
1450 ;; msgstr if any, or else, the beginning of the file.
1451 (goto-char po-start-of-msgstr-block)
1452 (setq po-start-of-entry
1457 (setq po-start-of-entry (point-min))
1458 (goto-char po-start-of-entry)
1461 (setq po-start-of-msgstr-block (match-beginning 0)
1462 po-end-of-entry (match-end 0)))
1463 ;; Find start of msgid.
1464 (goto-char po-start-of-entry)
1466 (setq po-start-of-msgctxt (match-beginning 0))
1467 (goto-char po-start-of-entry)
1469 (setq po-start-of-msgid (match-beginning 0))
1471 (when (>= here po-start-of-msgstr-block)
1472 ;; point was somewhere inside of msgstr*
1474 (end-of-line)
1476 ;; Detect the bounderies of the msgstr we are interested in.
1478 (setq po-start-of-msgstr-form (match-beginning 0)
1479 po-end-of-msgstr-form (match-end 0)))
1484 (goto-char po-start-of-entry)
1485 (if (re-search-forward po-fuzzy-regexp po-start-of-msgctxt t)
1487 (goto-char po-start-of-msgstr-block)
1498 (goto-char po-start-of-entry)
1499 (if (re-search-forward "\n#, .*" po-start-of-msgctxt t)
1516 (goto-char po-start-of-entry)
1517 (if (re-search-forward "\n#, .*" po-start-of-msgctxt t)
1537 "Stack the location of the current entry, for later return."
1539 (po-find-span-of-entry)
1541 (goto-char po-start-of-msgid)
1557 "Exchange the location of the current entry with the top of stack."
1561 (po-find-span-of-entry)
1562 (goto-char po-start-of-msgid)
1573 (po-find-span-of-entry)
1599 (po-find-span-of-entry)
1601 (goto-char po-end-of-entry)
1609 (re-search-forward regexp po-start-of-entry t)))
1620 (po-find-span-of-entry)
1622 (goto-char po-start-of-entry)
1628 (re-search-backward regexp po-end-of-entry t)))
1680 (po-find-span-of-entry)
1691 "Regexp matching a whole msgstr field of an obsolete entry.")
1722 (po-find-span-of-entry)
1740 (po-find-span-of-entry)
1743 (po-find-span-of-entry))))
1751 (po-find-span-of-entry)
1754 (po-find-span-of-entry))))
1760 If none, wrap from the beginning of the buffer with another type,
1763 no entries of the other types."
1765 (po-find-span-of-entry)
1766 (goto-char po-end-of-entry)
1776 ;; Else, look for an entry of the same type first.
1828 Surrounding quotes are already excluded by the position of START and END."
1861 wanted string in the buffer which is current at the time of evaluation.
1901 po-start-of-msgid
1902 po-start-of-msgstr-block)))
1907 (beginning-of-line)
1915 po-start-of-msgstr-form
1916 po-end-of-msgstr-form)))
1930 (goto-char po-start-of-entry)
1931 (re-search-forward po-any-msgid-regexp po-start-of-msgstr-block)
1935 (goto-char po-start-of-msgid)
1936 (po-find-span-of-entry)
1951 (goto-char po-start-of-msgstr-form)
1952 (re-search-forward po-any-msgstr-form-regexp po-end-of-msgstr-form)
1957 (goto-char po-start-of-msgid)
1958 (po-find-span-of-entry)
1965 (po-find-span-of-entry)
1977 "Replace the current msgstr string by the top of the kill ring."
1979 (po-find-span-of-entry)
1987 (po-find-span-of-entry)
2002 (narrow-to-region po-start-of-entry po-end-of-entry)
2014 (po-check-for-pending-edit po-start-of-msgid)
2015 (po-check-for-pending-edit po-start-of-msgstr-block))
2021 (delete-region po-start-of-entry po-end-of-entry))
2022 (goto-char po-start-of-entry)
2034 "Regexp matching the whole editable comment part of an entry.")
2042 (goto-char po-start-of-entry)
2043 (if (re-search-forward po-comment-regexp po-end-of-entry t)
2074 (goto-char po-start-of-entry)
2075 (if (re-search-forward po-comment-regexp po-end-of-entry t)
2087 (po-find-span-of-entry)
2098 "Replace the current comment string by the top of the kill ring."
2100 (po-find-span-of-entry)
2108 ;; In a string edit buffer, BACK-POINTER points to one of the slots of the
2154 "Get out of PO mode, leaving PO file buffer in fundamental mode."
2178 OLDBUF with the contents of B2.
2275 (po-find-span-of-entry)
2276 (cond ((= (point) po-start-of-msgid)
2279 ((= (point) po-start-of-msgstr-form)
2292 "Prepare a pop up buffer for editing STRING, which is of a given TYPE.
2296 (set-marker marker (cond ((eq type 'comment) po-start-of-msgid)
2297 ((eq type 'msgstr) po-start-of-msgstr-form)))
2305 ;; ;; Try showing all of msgid in the upper window while editing.
2306 ;; (goto-char (1- po-start-of-msgstr-block))
2309 (goto-char po-start-of-entry)
2341 (po-find-span-of-entry)
2355 (po-find-span-of-entry)
2393 "Normalize FIELD of all entries. FIELD is either the symbol msgid or msgstr.
2402 (po-find-span-of-entry)
2405 (goto-char po-end-of-entry)
2421 (if (not (= po-end-of-entry (point-max)))
2423 (kill-region po-end-of-entry (point-max))))
2447 "Add the current PO file to the list of auxiliary files."
2458 "Delete the current PO file from the list of auxiliary files."
2468 possibly highlighted, the cursor at start of msgid, then return 't'.
2480 (po-find-span-of-entry)
2483 (buffer-substring po-start-of-msgstr-block po-end-of-entry)
2489 (po-find-span-of-entry)
2492 (goto-char po-start-of-entry)
2499 (goto-char po-start-of-msgid))
2501 (po-find-span-of-entry)
2508 (po-find-span-of-entry)
2510 (let ((string (buffer-substring po-start-of-msgid
2511 po-start-of-msgstr-block))
2543 "Select one of the available auxiliary files and locate an equivalent entry.
2547 (po-find-span-of-entry)
2550 (buffer-substring po-start-of-msgid po-start-of-msgstr-block))
2594 (po-find-span-of-entry)
2595 (if (= po-start-of-entry po-reference-check)
2599 (goto-char po-start-of-entry)
2600 (if (re-search-forward "^#:" po-start-of-msgid t)
2622 po-reference-check po-start-of-entry)))
2655 "Select one of the available source contexts for the current entry."
2708 ;; Try to fit the string in the displayed part of its window.
2727 ;; end of buffer when it is done with a file.
2768 ;; If nothing was found, trigger scanning of next file.
2805 using completion. With prefix argument, just ask the name of a preferred
2854 "Find the next Awk string, excluding those marked by any of KEYWORDS.
2869 ;; Else find the end of the string.
2930 ;; Else find the end of the double quoted string.
2966 ;; "to use \\ characters at end-of-line.";
2973 ;;; End of long string cases.
2976 "Find the next C string, excluding those marked by any of KEYWORDS.
2986 (end-of-line)
2992 (beginning-of-line)
2995 (end-of-line))
2996 ;; Else, find the end of the (possibly concatenated) string.
3047 "Find the next Emacs LISP string, excluding those marked by any of KEYWORDS.
3058 ;; Else, find the end of the string.
3097 "Find the next Python string, excluding those marked by any of KEYWORDS.
3098 Also disregard strings when preceded by an empty string of the other type.
3141 "Skip over a Python string, possibly made up of many concatenated parts.
3208 If KEYWORD is '.', prefix the string with an empty string of the other type.
3254 ; We need to initialize it outside of any binding. Without this statement,
3255 ; all defcustoms and defvars of compile.el would be undone when the let*
3310 start-of-header end-of-header package version team)
3315 (setq start-of-header (match-beginning 0)
3316 end-of-header (match-end 0))
3318 (goto-char start-of-header)
3321 end-of-header t)
3341 (goto-char start-of-header)
3344 end-of-header t)
3441 ;; Offer validation of newly modified entries.