×Ë!è ×Ì!×Í!×Î!Ç Çé×Ï!×Ð!×Ñ!×Ò!êÇÇÇëìí!!îï!" [major-mode mode-name po-mode-map buffer-read-only t font-lock-defaults po-mode-flag nil po-work-buffer po-work-buffer-lock po-marker-stack po-search-path po-reference-alist po-reference-cursor po-reference-check po-keywords po-next-file-list po-string-start po-string-end kill-all-local-variables po-mode "PO" use-local-map make-local-variable (po-font-lock-keywords t) po-start-of-entry po-middle-of-entry po-end-of-entry po-entry-type po-translated-counter po-fuzzy-counter po-untranslated-counter po-obsolete-counter po-mode-line-string po-check-file-header po-compute-counters generate-new-buffer "*Edit " buffer-name "*" (("./") ("../")) 0 (("gettext") ("gettext_noop") ("_") ("N_")) message _ "You may type `h' or `?' for a short PO mode reminder." run-hooks po-mode-hook] 31))
(defun po-mode-destroy-cleanup nil "\
When destroying a PO mode buffer, kill editing buffer as well." (byte-code "ÂÃ\" Ä ! Å !" [mode-name po-work-buffer string= "PO" bufferp kill-buffer] 4))
Decrease the counter corresponding to the nature of the current entry." (byte-code "Á Â!SL)" [counter po-type-counter eval] 4))
(defun po-increase-type-counter nil "\
Increase the counter corresponding to the nature of the current entry.
Then, update the mode line counters." (byte-code "Á Â!TL)Ã " [counter po-type-counter eval po-update-mode-line-string] 4))
(defvar po-fuzzy-regexp)
(defvar po-untranslated-regexp)
(defun po-compute-counters (flag) "\
Prepare counters for mode line display. If FLAG, also echo entry position." (byte-code " Î ÏÏÏÏÏÏÉ ebÐÉÊ# ÑÒ\"ÏU L E ÓÔÕ!#L ÓÔÖ!\"`×Ï!bT m ` = m gØ={ T Ù ! T Tb# ebÐÉÊ# ª
Redisplay the current entry." (byte-code "b" [po-middle-of-entry] 1))
(defun po-other-window nil "\
Get the cursor into another window, out of PO mode." (interactive) (byte-code "ÁÂÀ! Ã ÄÅ ! ÆÇ!" [t nil one-window-p split-window switch-to-buffer other-buffer other-window 1] 6))
(defun po-check-lock nil "\
Ensure that GNU Emacs is not currently in recursive edit for PO mode." (byte-code " Â !ÃÄÅ!! Æ ÇÄÈ!!" [po-work-buffer-lock po-work-buffer pop-to-buffer y-or-n-p _ "Here is your current edit. Do you wish to abort it? " abort-recursive-edit error "Type `C-c C-c' once done"] 7))
(defun po-edit-out-full nil "\
Go into recursive edit for editing the PO file in fundamental mode." (interactive) (byte-code "ÁÃÄÅ!! # ÆÄÇ!!ÁÈ É
!Ê ÉÁ!Ë )" [buffer-read-only nil po-subedit-mode-map yes-or-no-p _ "Should I let you edit the whole PO file? " message "Type `C-c C-c' once done" fundamental-mode use-local-map recursive-edit po-mode] 10))
(defun po-check-file-header nil "\
Create a missing PO mode file header, or replace an oldish one." (byte-code "ÁÁÁebÇ ÁÅ#Y ÈÉ!bÊË!ÌÉ!ÍÎ!S ÇÏ Å#3 ÁP b`eV I ÊË!ÐcÑ 6 Ñ ÅV Å\\ Åeb
i ÒÓ\"+)" [buffer-read-only nil insert-flag end-of-header po-any-msgstr-regexp t po-default-file-header re-search-forward match-beginning 0 previous-line 1 match-end looking-at "msgid \"\"
Replace the revision date by current time in the PO file header." (byte-code "ÄÅ!? Á= Æ= ÇÈÉ!!9 ebÊËÂÁ# 5 ÂÌÍÅÎÏ \"ÐQÁÁ#))< ÑÒ!D ÑÈÓ!!" [po-auto-replace-revision-date t nil buffer-read-only fboundp format-time-string ask y-or-n-p _ "May I set PO-Revision-Date? " re-search-forward "^\"PO-Revision-Date:.*" replace-match "\"PO-Revision-Date: " "%Y-%m-%d %H:%M %Z" current-time "\\n\"" message "" "PO-Revision-Date should be adjusted..."] 11))
(defun po-find-span-of-entry nil "\
Find the extent of the PO file entry where the cursor is.
Set variables PO-START-OF-ENTRY, PO-MIDDLE-OF-ENTRY, PO-END-OF-ENTRY
and PO-ENTRY-TYPE to meaningful values. Decreasing priority of type
Tell how many entries in the entry location stack." (byte-code " GÃU ÄÅÆ!!% ÇU ÄÅÈ!!% ÄÅÉ!\")" [depth po-marker-stack t 0 message _ "Empty location stack" 1 "One entry in location stack" "%d entries in location stack"] 8))
(defun po-push-location nil "\
Stack the location of the current entry, for later return." (interactive) (byte-code "ÂÃ bÄ B)Å " [po-middle-of-entry po-marker-stack nil po-find-span-of-entry point-marker po-say-location-depth] 4))
(defun po-pop-location nil "\
Unstack a saved location, and return to the corresponding entry." (interactive) (byte-code "Á @bAÂ Ã ÄÅÆ!!" [po-marker-stack nil po-current-entry po-say-location-depth error _ "The entry location stack is empty"] 5))
(defun po-exchange-location nil "\
Exchange the location of the current entry with the top of stack." (interactive) (byte-code "Ã# Ä bÅ @b
Display the current entry." (interactive) (byte-code "ÀÁ Â " [nil po-find-span-of-entry po-redisplay] 3))
(defun po-first-entry-with-regexp (regexp) "\
Display the first entry in the file which msgstr matches REGEXP." (byte-code "`ebÄ ÂÃ# ÅÆ!bÇ bÈÉÊ!!)" [here regexp nil t re-search-forward match-beginning 0 po-current-entry error _ "There is no such entry"] 6))
(defun po-last-entry-with-regexp (regexp) "\
Display the last entry in the file which msgstr matches REGEXP." (byte-code "`dbÄ ÂÃ# Å bÆÇÈ!!)" [here regexp nil t re-search-backward po-current-entry error _ "There is no such entry"] 5))
(defun po-next-entry-with-regexp (regexp wrap) "\
Display the entry following the current entry which msgstr matches REGEXP.
If WRAP is not nil, the search may wrap around the buffer." (byte-code "Ç ` bÈ
ÃÄ# ÉÊ!bË B ' ebÈ
Ä#: ÉÊ!bË ÌÍÎ!!B bÏÍÐ!!)" [here po-end-of-entry regexp nil t wrap po-start-of-entry po-find-span-of-entry re-search-forward match-beginning 0 po-current-entry message _ "Wrapping around the buffer" error "There is no such entry"] 12))
Redisplay the entry preceding the current entry which msgstr matches REGEXP.
If WRAP is not nil, the search may wrap around the buffer." (byte-code "Ç ` bÈ
ÃÄ# É 8 \" dbÈ
Ä#0 É ÊËÌ!!8 bÍËÎ!!)" [here po-start-of-entry regexp nil t wrap po-end-of-entry po-find-span-of-entry re-search-backward po-current-entry message _ "Wrapping around the buffer" error "There is no such entry"] 10))
(defun po-first-entry nil "\
Display the first entry." (interactive) (byte-code "ÁÂ!" [po-any-msgstr-regexp nil po-first-entry-with-regexp] 2))
(defun po-last-entry nil "\
Display the last entry." (interactive) (byte-code "ÁÂ!" [po-any-msgstr-regexp nil po-last-entry-with-regexp] 2))
(defun po-next-entry nil "\
Display the entry following the current entry." (interactive) (byte-code "ÁÂÁ\"" [po-any-msgstr-regexp nil po-next-entry-with-regexp] 3))
(defun po-previous-entry nil "\
Display the entry preceding the current entry." (interactive) (byte-code "ÁÂÁ\"" [po-any-msgstr-regexp nil po-previous-entry-with-regexp] 3))
" po-after-entry-regexp) "Regexp matching a whole msgstr field, but only if active and empty.")
(defun po-next-untranslated-entry nil "\
Find the next untranslated entry, wrapping around if necessary." (interactive) (byte-code "ÂÃÁ\"" [po-untranslated-regexp t nil po-next-entry-with-regexp] 3))
(defun po-previous-untranslated-entry nil "\
Find the previous untranslated entry, wrapping around if necessary." (interactive) (byte-code "ÂÃÁ\"" [po-untranslated-regexp t nil po-previous-entry-with-regexp] 3))
(defun po-msgid-to-msgstr nil "\
Use another window to edit msgstr reinitialized with msgid." (interactive) (byte-code "ÁÃ Ä= Å= ÆÇÈ!! ) É ÊÁËÂÁ\"\"Ì Í ÎÏ!" [po-entry-type nil t po-find-span-of-entry untranslated obsolete y-or-n-p _ "Really loose previous translation? " po-decrease-type-counter po-set-field po-get-field po-current-entry po-increase-type-counter message ""] 10))
\\)*" "Regexp matching a whole msgstr field of an obsolete entry.")
(defun po-next-obsolete-entry nil "\
Find the next obsolete entry, wrapping around if necessary." (interactive) (byte-code "ÂÃÁ\"" [po-obsolete-msgstr-regexp t nil po-next-entry-with-regexp] 3))
(defun po-previous-obsolete-entry nil "\
Find the previous obsolete entry, wrapping around if necessary." (interactive) (byte-code "ÂÃÁ\"" [po-obsolete-msgstr-regexp t nil po-previous-entry-with-regexp] 3))
(defvar po-fuzzy-regexp "^#[,!] .*fuzzy" "\
Regexp matching the string inserted by msgmerge for translations
which does not match exactly.")
(defun po-next-fuzzy-entry nil "\
Find the next fuzzy entry, wrapping around if necessary." (interactive) (byte-code "ÂÃÁ\"" [po-fuzzy-regexp t nil po-next-entry-with-regexp] 3))
(defun po-previous-fuzzy-entry nil "\
Find the next fuzzy entry, wrapping around if necessary." (interactive) (byte-code "ÂÃÁ\"" [po-fuzzy-regexp t nil po-previous-entry-with-regexp] 3))
(defun po-unfuzzy nil "\
Remove the fuzzy attribute for the current entry." (interactive) (byte-code "ÂÃ Ä= Å ÆÇ!È É Ê Ë " [po-entry-type po-auto-select-on-unfuzzy nil po-find-span-of-entry fuzzy po-decrease-type-counter po-delete-attribute "fuzzy" po-current-entry po-increase-type-counter po-auto-select-entry po-update-mode-line-string] 8))
(defun po-next-translated-entry nil "\
Find the next untranslated entry, wrapping around if necessary." (interactive) (byte-code "ÅÆU ÇÈÉ!!* Ê Â\"Ë Ì=? * Ê Â\"Ë " [po-translated-counter po-untranslated-regexp t po-entry-type po-any-msgstr-regexp nil 0 error _ "There is no such entry" po-next-entry-with-regexp po-find-span-of-entry translated] 8))
(defun po-previous-translated-entry nil "\
Find the previous untranslated entry, wrapping around if necessary." (interactive) (byte-code "ÅÆU ÇÈÉ!!* Ê Â\"Ë Ì=? * Ê Â\"Ë " [po-translated-counter po-any-msgstr-regexp t po-entry-type po-untranslated-regexp nil 0 error _ "There is no such entry" po-previous-entry-with-regexp po-find-span-of-entry translated] 8))
(defun po-auto-select-entry nil "\
Select the next entry having the same type as the current one.
If none, wrap from the beginning of the buffer with another type,
going from untranslated to fuzzy, and from fuzzy to obsolete.
Plain translated entries are always disregarded unless there are
no entries of the other types." (interactive) (byte-code "ÅÌ b ÍU
ÍU ÍU. Î ÅÆ#) ÏÍ!b+ ebÄ Ð=9 Ñ; Ã Ñ= k ÍV U Î ÅÆ#d ÏÍ!bÅk ebÒÒ=
Eval FORM, which inserts a string, and return the string fully requoted.
If PREFIX, precede the result with its contents. If OBSOLETE, comment all
generated lines in the returned string. Evaluating FORM should insert the
wanted string in the buffer which is current at the time of evaluation.
If FORM is itself a string, then this string is used for insertion." (byte-code "Ç qÈ ; c É Ê !ebËÌÃÄ#ebËÍÃÄ# hÎ== ÏÐÄÄ# hÑ=K ÏÒÄÄ# hÓ=Y ÏÔÄÄ# hÕ=g ÏÖÄÄ# h×= Ï
Push the msgstr string from current entry on the kill ring." (interactive) (byte-code "ÀÂ ÃÀÁ\"" [nil t po-find-span-of-entry po-get-field] 4))
(defun po-kill-msgstr nil "\
Empty the msgstr string from current entry, pushing it on the kill ring." (interactive) (byte-code "ÀÁ Â ÃÀÄ\"Å Æ " [nil po-kill-ring-save-msgstr po-decrease-type-counter po-set-field "" po-current-entry po-increase-type-counter] 6))
(defun po-yank-msgstr nil "\
Replace the current msgstr string by the top of the kill ring." (interactive) (byte-code "ÀÃ Ä ÅÀ Æ= Ç È\"É Ê Æ" [nil last-command this-command po-find-span-of-entry po-decrease-type-counter po-set-field yank (yank-pop 1) (yank) po-current-entry po-increase-type-counter] 7))
(defun po-fade-out-entry nil "\
Mark an active entry as fuzzy; obsolete a fuzzy or untranslated entry;
or completely delete an obsolete entry, saving its msgstr on the kill ring." (interactive) (byte-code "ÄÇ È É= Ê ËÌ!Í Î Ï=& Ð=e ÑÒÓ!! ^ Ê Ô
\"Äebm? U gÕ=M Öc×Ø!@ )))Í Î ÙÚ! Û= Ê Ü ÝÄÅ\"ÄÞ
Push the msgstr string from current entry on the kill ring." (interactive) (byte-code "ÁÂ ÃÀ!" [t nil po-find-span-of-entry po-get-comment] 3))
(defun po-kill-comment nil "\
Empty the msgstr string from current entry, pushing it on the kill ring." (interactive) (byte-code "ÀÁ ÂÃ!Ä " [nil po-kill-ring-save-comment po-set-comment "" po-redisplay] 4))
(defun po-yank-comment nil "\
Replace the current comment string by the top of the kill ring." (interactive) (byte-code "ÂÃ ÄÅ= Æ Ç!ÅÈ " [last-command this-command nil po-find-span-of-entry po-set-comment yank (yank-pop 1) (yank) po-redisplay] 4))
(defun po-edit-string (string) "\
Edit STRING recursively in a pop-up buffer, return the edited string.
Run po-subedit-mode-hook first prior to beginning edition. If recursive edit
is aborted, return nil instead." (byte-code "Ì Á È= ÍÎ
Use another window to edit the current translator comment." (interactive) (byte-code "ÁÂ ÃÄÁ!! Å!Æ )" [string nil po-find-span-of-entry po-edit-string po-get-comment po-set-comment po-redisplay] 6))
(defun po-edit-msgstr nil "\
Use another window to edit the current msgstr." (interactive) (byte-code "ÃÅ Æ= Ç ÈÉÃÃ\"!
Add a given DIRECTORY, requested interactively, to the source search path." (interactive "DDirectory for search path: ") (byte-code "Ã CBÄÅ " [po-search-path directory po-reference-check nil 0 po-show-source-path] 2))
(defun po-ignore-source-path nil "\
Delete a directory, selected with completion, from the source search path." (interactive) (byte-code "ÁÄÅÆÇ!ÁÂ$C\"ÈÉ " [po-search-path nil t po-reference-check delete completing-read _ "Directory to remove? " 0 po-show-source-path] 7))
(defun po-ensure-source-references nil "\
Extract all references into a list, with paths resolved, if necessary." (byte-code "Ì U Â ÂbÍÎ Å# ÏÐ! ÑÒ!bÓÔÕ!ÑÕ!\" ÓÔÖ!ÑÖ!\" Â
@@P
×
!? X e AC |
ØQ
Ù!E B, )Ú ! " [po-start-of-entry po-reference-check nil po-reference-alist po-middle-of-entry t name line path po-search-path file po-reference-cursor po-find-span-of-entry re-search-forward "^#:" looking-at "\\(
Select one of the available source contexts for the current entry." (interactive) (byte-code "ÁÃ ÄÅÆÇÈ!ÁÂ$\"! ÉÇÊ!!" [po-reference-alist nil t po-ensure-source-references po-show-source-context assoc completing-read _ "Which source context? " error "No resolved source references"] 9))
(defun po-find-c-string (keywords) "\
Find the next C string, excluding those marked by any of KEYWORDS.
Returns (START . END) for the found string, or (nil . nil) if none found." (byte-code "ÂÂ? ÆÇÂÃ# hÈU ÉÊ! hËU3 ÌgÍU. Î/ Ï! Ð ÑÒ!)C Ó `SgÔU? ` ÕÖ!gÍU \\ ÌÏ!H Ì×!`bØÙ!hÚU Û×!ØÙ!` ØÜ!ÝÞ` \"C\" bÂÂ) B*" [start end nil t end-keyword keywords re-search-forward "\\([\"']\\|/\\*\\)" 42 search-forward "*/" 39 forward-char 92 3 2 beginning-of-line looking-at "^# *\\(include\\|line\\)" end-of-line 34 skip-chars-forward "^\"\\\\" 1 skip-chars-backward "
" 40 backward-char "_A-Za-z0-9" member buffer-substring] 18))
(defun po-mark-c-string (start end keyword) "\
Mark the C string, from START to END, with KEYWORD.
Return the adjusted value for END." (byte-code "bÃc b
Find the next Emacs LISP string, excluding those marked by any of KEYWORDS.
Returns (START . END) for the found string, or (nil . nil) if none found." (byte-code "ÂÂ? ÆÇÂÃ# hÈU ÉÊ! hËU3 ÌgÍU. Î/ Ï! `SgÐU? P ÑÒ!gÍU L ÌÎ!8 ÌÏ!`bÓÔ!` ÓÕ!hÖU t ×Ø` \"C\" bÂÂ) B*" [start end nil t end-keyword keywords re-search-forward "[;\"?]" 59 search-forward "
." [restart po-next-file-list nil keywords po-keywords find-string found buffer start end po-string-end mode-name pair t po-work-buffer total po-string-start "Find an unmarked translatable string through all files in tags table.
Disregard some simple strings which are most probably non-translatable.
With prefix argument, restart search at first file." visit-tags-table-buffer copy-sequence tags-table-files error _ "No files to process" message "Scanning %s..." find-file-noselect string= "C" po-find-c-string "Emacs-Lisp" po-find-emacs-lisp-string "Unknown source mode for PO mode, skipping..." "All files processed" po-extract-unquoted re-search-forward "[A-Za-z][A-Za-z][A-Za-z]" "[A-Za-z][A-Za-z]" buffer-size "[A-Za-z]+" replace-match "" * 2 one-window-p split-window other-window 1 switch-to-buffer recenter pos-visible-in-window-p -1 "Scanning %s...done"] 36))
(defun po-mark-found-string (keyword) "\
Mark last found string in program sources as translatable, using KEYWORD." (byte-code "Î @! ÌÌ Ï
#qÐe
\"ÑÒ\"5 Ó
#K ÑÔ\"F Õ
#K Ö×Ø!!) Ì dbÙÚÛÜ @#ÝÞÌ#ß$àá!Tâ )-" [buffer po-next-file-list start po-string-start end po-string-end line string mode-name keyword t buffer-read-only nil po-untranslated-counter find-file-noselect po-extract-unquoted count-lines string= "C" po-mark-c-string "Emacs-Lisp" po-mark-emacs-lisp-string error _ "Cannot mark in unknown source mode" insert "
(defun po-mark-translatable nil (interactive) (byte-code "Âà ÄÅ! ÆÇÈ!!" [po-string-start po-string-end nil "Mark last found string in program sources as translatable, using `_'." po-mark-found-string "_" error _ "No such string"] 4))
ÆÇ$Ð Ñ\" = Ò !Æ*N ÓÊÔ!!" [arg keyword po-keywords po-string-start po-string-end default nil t "Mark last found string in program sources as translatable, ask for keywoard,
using completion. With prefix argument, just ask the name of a preferred
keyword for subsequent commands, also added to possible completions." read-from-minibuffer _ "Keyword: " delete completing-read format "Mark with keywoard? [%s] " string-equal "" po-mark-found-string error "No such string"] 11))
(defun po-help nil "\
Provide an help window for PO mode." (interactive) (byte-code "ÂÃ ÄÅ!" [po-work-buffer po-help-display-string nil po-check-lock ((byte-code "Â!Ã cÄ ebÅÆÇ!!r" [po-work-buffer po-help-display-string switch-to-buffer erase-buffer delete-other-windows message _ "Type any character to continue"] 6)) bury-buffer] 3))
(defun po-undo nil "\
Undo the last change to the PO file." (interactive) (byte-code "ÁÁÂ )ÃÁ!" [buffer-read-only nil undo po-compute-counters] 3))
(defun po-statistics nil "\
Say how many entries in each category, and the current position." (interactive) (byte-code "ÁÂÀ!" [t nil po-compute-counters] 2))
(defun po-validate nil "\
Use `msgfmt' for validating the current PO file contents." (interactive) (byte-code "ÃÄ Å Æ
