;ELC
;;; Compiled by mockbuild@c6b10.bsys.dev.centos.org on Wed Jul 17 09:53:56 2013
;;; from file /builddir/build/BUILD/emacs-23.1/site-lisp/po-mode.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`po-mode.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


#@47 Version number of this version of po-mode.el.
(defconst po-mode-version-string "2.01" (#$ . 611))
(byte-code "\303\304\"\203\305\306\202%\307\231\203!\310\311!\203!\306\305\202%\305\211\312\313!\2046\314\313\315\"\210\316\313\317\320#\210\312\321!\204G\314\321\322\"\210\316\321\317\320#\210\305\207" [emacs-version po-EMACS20 po-XEMACS string-match "XEmacs\\|Lucid" nil t "19" featurep faces fboundp set-translation-domain defalias #[(string) "\300\207" [nil] 1] put byte-optimizer byte-compile-inline-expand translate-string #[(string) "\207" [string] 1]] 5)
(defalias '_ #[(string) "\207" [string] 2])
(put '_ 'byte-optimizer 'byte-compile-inline-expand)
(defalias 'N_ #[(string) "\207" [string] 1])
(byte-code "\300\301\302\303#\210\304\305\306\217\210\307\310!\203\311\312!\204\313\314M\210\315\316M\210\317\320\304\321\322\323%\207" [put N_ byte-optimizer byte-compile-inline-expand nil (byte-code "\300\301!\207" [require custom] 2) ((error)) featurep custom fboundp custom-declare-variable defgroup (macro . #[(&rest args) "\300\207" [nil] 1]) defcustom (macro . #[(var value doc &rest args) "\303	\nF\207" [var value doc defvar] 4]) custom-declare-group po "Major mode for editing PO files" :group i18n] 6)
#@61 *Automatically use msgid when editing untranslated entries.
(custom-declare-variable 'po-auto-edit-with-msgid 'nil '(#$ . -1857) :type 'boolean :group 'po)
#@54 *Automatically mark entries fuzzy when being edited.
(custom-declare-variable 'po-auto-fuzzy-on-edit 'nil '(#$ . -2019) :type 'boolean :group 'po)
#@71 *Automatically select some new entry while making an entry not fuzzy.
(custom-declare-variable 'po-auto-select-on-unfuzzy 'nil '(#$ . -2172) :type 'boolean :group 'po)
#@66 *Automatically revise date in headers.  Value is nil, t, or ask.
(custom-declare-variable 'po-auto-replace-revision-date 't '(#$ . -2346) :type '(choice (const nil) (const t) (const ask)) :group 'po)
#@26 *Default PO file header.
(custom-declare-variable 'po-default-file-header '"# SOME DESCRIPTIVE TITLE.\n# Copyright (C) YEAR Free Software Foundation, Inc.\n# FIRST AUTHOR <EMAIL@ADDRESS>, YEAR.\n#\n#, fuzzy\nmsgid \"\"\nmsgstr \"\"\n\"Project-Id-Version: PACKAGE VERSION\\n\"\n\"PO-Revision-Date: YEAR-MO-DA HO:MI +ZONE\\n\"\n\"Last-Translator: FULL NAME <EMAIL@ADDRESS>\\n\"\n\"Language-Team: LANGUAGE <LL@li.org>\\n\"\n\"MIME-Version: 1.0\\n\"\n\"Content-Type: text/plain; charset=CHARSET\\n\"\n\"Content-Transfer-Encoding: 8bit\\n\"\n" '(#$ . -2552) :type 'string :group 'po)
#@155 *Electronic mail address of the Translation Project.
Typing \[po-send-mail] (normally bound to `M') the user will send the PO file
to this email address.
(custom-declare-variable 'po-translation-project-address '"translation@iro.umontreal.ca" '(#$ . -3138) :type 'string :group 'po)
#@393 *Subject label when sending the PO file to `po-translation-project-address'.
Don't change it when you send PO files to "translation@iro.umontreal.ca", the
Translation Project Robot at http://www.iro.umontreal.ca/contrib/po/HTML/.  If
the label is different, your submission will be consiedered as a regular mail
and not stored at the TP site and also not forwarded to the package maintainer.
(custom-declare-variable 'po-translation-project-mail-label '"TP-Robot" '(#$ . -3428) :type 'string :group 'po)
#@144 *Highlight text whenever appropriate, when non-nil.
However, on older Emacses, a yet unexplained highlighting bug causes files
to get mangled.
(custom-declare-variable 'po-highlighting '(or po-EMACS20 po-XEMACS) '(#$ . -3939) :type 'boolean :group 'po)
#@317 *The face used for PO mode highlighting.  For Emacses with overlays.
Possible values are 'highlight', 'modeline', 'secondary-selection',
'region', and 'underline'.
This variable can be set by the user to whatever face they desire.
It's most convenient if the cursor color and highlight color are
slightly different.
(custom-declare-variable 'po-highlight-face ''highlight '(#$ . -4199) :type 'face :group 'po)
#@202 *Association list giving team codes from team names.
This is used for generating a submission file name for the 'M' command.
If a string instead of an alist, it is a team code to use unconditionnally.
(custom-declare-variable 'po-team-name-to-code ''(("LANGUAGE" . "LL") ("(Afan) Oromo" . "om") ("Abkhazian" . "ab") ("Afar" . "aa") ("Afrikaans" . "af") ("Albanian" . "sq") ("Amharic" . "am") ("Arabic" . "ar") ("Argentinian" . "es_AR") ("Armenian" . "hy") ("Assamese" . "as") ("Avestan" . "ae") ("Aymara" . "ay") ("Azerbaijani" . "az") ("Bashkir" . "ba") ("Basque" . "eu") ("Belarusian" . "be") ("Bengali" . "bn") ("Bihari" . "bh") ("Bislama" . "bi") ("Bosnian" . "bs") ("Brazilian Portuguese" . "pt_BR") ("Breton" . "br") ("Bulgarian" . "bg") ("Burmese" . "my") ("Catalan" . "ca") ("Chamorro" . "ch") ("Chechen" . "ce") ("Chinese" . "zh") ("Chinese (simplified)" . "zh_CN") ("Chinese (traditional)" . "zh_TW") ("Church Slavic" . "cu") ("Chuvash" . "cv") ("Cornish" . "kw") ("Corsican" . "co") ("Croatian" . "hr") ("Czech" . "cs") ("Danish" . "da") ("Dutch" . "nl") ("Dzongkha" . "dz") ("English" . "en") ("Esperanto" . "eo") ("Estonian" . "et") ("Faroese" . "fo") ("Fijian" . "fj") ("Finnish" . "fi") ("French" . "fr") ("Frisian" . "fy") ("Galician" . "gl") ("Georgian" . "ka") ("German" . "de") ("Greek" . "el") ("Guarani" . "gn") ("Gujarati" . "gu") ("Hausa" . "ha") ("Hebrew" . "he") ("Herero" . "hz") ("Hindi" . "hi") ("Hiri Motu" . "ho") ("Hungarian" . "hu") ("Icelandic" . "is") ("Ido" . "io") ("Indonesian" . "id") ("Interlingua" . "ia") ("Interlingue" . "ie") ("Inuktitut" . "iu") ("Inupiak" . "ik") ("Irish" . "ga") ("Italian" . "it") ("Japanese" . "ja") ("Javanese" . "jv") ("Kalaallisut" . "kl") ("Kannada" . "kn") ("Kashmiri" . "ks") ("Kazakh" . "kk") ("Khmer" . "km") ("Kikuyu" . "ki") ("Kinyarwanda" . "rw") ("Kirghiz" . "ky") ("Kirundi" . "rn") ("Komi" . "kv") ("Konkani" . "kok") ("Korean" . "ko") ("Kuanyama" . "kj") ("Kurdish" . "ku") ("Laotian" . "lo") ("Latin" . "la") ("Latvian" . "lv") ("Letzeburgesch" . "lb") ("Lingala" . "ln") ("Lithuanian" . "lt") ("Macedonian" . "mk") ("Malagasy" . "mg") ("Malay" . "ms") ("Malayalam" . "ml") ("Maltese" . "mt") ("Manipuri" . "mni") ("Manx" . "gv") ("Maori" . "mi") ("Marathi" . "mr") ("Marshall" . "mh") ("Moldavian" . "mo") ("Mongolian" . "mn") ("Nauru" . "na") ("Navajo" . "nv") ("Ndonga" . "ng") ("Nepali" . "ne") ("North Ndebele" . "nd") ("Northern Sami" . "se") ("Norwegian Bokmal" . "nb") ("Norwegian Nynorsk" . "nn") ("Norwegian" . "no") ("Nyanja" . "ny") ("Occitan" . "oc") ("Oriya" . "or") ("Ossetian" . "os") ("Pali" . "pi") ("Pashto" . "ps") ("Persian" . "fa") ("Polish" . "pl") ("Portuguese" . "pt") ("Punjabi" . "pa") ("Quechua" . "qu") ("Rhaeto-Roman" . "rm") ("Romanian" . "ro") ("Russian" . "ru") ("Samoan" . "sm") ("Sango" . "sg") ("Sanskrit" . "sa") ("Sardinian" . "sc") ("Scots" . "gd") ("Serbian" . "sr") ("Sesotho" . "st") ("Setswana" . "tn") ("Shona" . "sn") ("Sindhi" . "sd") ("Sinhalese" . "si") ("Siswati" . "ss") ("Slovak" . "sk") ("Slovenian" . "sl") ("Somali" . "so") ("Sorbian" . "wen") ("South Ndebele" . "nr") ("Spanish" . "es") ("Sundanese" . "su") ("Swahili" . "sw") ("Swedish" . "sv") ("Tagalog" . "tl") ("Tahitian" . "ty") ("Tajik" . "tg") ("Tamil" . "ta") ("Tatar" . "tt") ("Telugu" . "te") ("Thai" . "th") ("Tibetan" . "bo") ("Tigrinya" . "ti") ("Tonga" . "to") ("Tsonga" . "ts") ("Turkish" . "tr") ("Turkmen" . "tk") ("Twi" . "tw") ("Uighur" . "ug") ("Ukrainian" . "uk") ("Urdu" . "ur") ("Uzbek" . "uz") ("Vietnamese" . "vi") ("Volapuk" . "vo") ("Walloon" . "wa") ("Welsh" . "cy") ("Wolof" . "wo") ("Xhosa" . "xh") ("Yiddish" . "yi") ("Yoruba" . "yo") ("Zhuang" . "za") ("Zulu" . "zu")) '(#$ . -4616) :type 'sexp :group 'po)
#@206 *The filter to use for preparing a mail invoice of the PO file.
Normally "gzip -9 | uuencode -m", remove the -9 for lesser compression,
or remove the -m if you are not using the GNU version of 'uuencode'.
(custom-declare-variable 'po-gzip-uuencode-command '"gzip -9 | uuencode -m" '(#$ . -8349) :type 'string :group 'po)
#@37 Syntax table used while in PO mode.
(defvar po-subedit-mode-syntax-table (copy-syntax-table text-mode-syntax-table) (#$ . 8676))
(byte-code "\302\303\304!\203\304\202\f\305KM\210\303\306!\203\307\306KM\210\202\"\310\307\311\"\210\303\312!\2030\313\312KM\210\2024\313\314M\210\303\315!\203B\316\315KM\210\202G\310\316\317\"\210\320\303\321!\203R\321\202]\303\322!\203\\\322\202]\323M\210\303\324!\203m\325\324KM\210\202r\310\325\326\"\210\203\215\310\327\330\"\210\310\331\332\"\210\310\333\334\"\210\310\335\336\"\210\202\274	\203\250\310\327\337\"\210\310\331\340\"\210\310\333\341\"\210\310\335\342\"\210\202\274\310\327\343\"\210\310\331\344\"\210\310\333\345\"\210\310\335\346\"\210\302\207" [po-EMACS20 po-XEMACS po-buffer-substring fboundp buffer-substring-no-properties buffer-substring match-string-no-properties po-match-string defalias #[(number) "\301\224\225\"\207" [number po-buffer-substring] 3 "Return string of text matched by last search."] with-temp-buffer po-with-temp-buffer (macro . #[(&rest forms) "\303\304!\303\305!\306	\307B\310BD\311\312\313D\nBB\313	D\314\315D\316DEFE*\207" [temp-buffer curr-buffer forms make-symbol "curr-buffer" "temp-buffer" let ((current-buffer)) ((get-buffer-create (generate-new-buffer-name " *po-temp*"))) unwind-protect progn set-buffer and buffer-name kill-buffer] 9 "Create a temporary buffer, and evaluate FORMS there like 'progn'."]) kill-new po-kill-new #[(string) "\302\303!rq\210\304\216	c\210\305ed\"+\207" [#1=#:temp-buffer string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) kill-region] 3 "Push STRING onto the kill ring, for Emacs 18 where kill-new is missing."] po-read-event read-event next-command-event read-char force-mode-line-update po-force-mode-line-update #[nil "\300\301 !\207" [set-buffer-modified-p buffer-modified-p] 2 "Force the mode-line of the current buffer to be redisplayed."] po-create-overlay #[nil "\302``\"\303\304	#\210\305!\210)\207" [overlay po-highlight-face make-overlay overlay-put face delete-overlay] 4 "Create and return a deleted overlay structure.\nThe variable 'po-highlight-face' selects the face to use for highlighting."] po-highlight #[(overlay start end &optional buffer) "\304	\n\206	p$\207" [overlay start end buffer move-overlay] 5 "Use OVERLAY to highlight the string from START to END.\nIf limits are not relative to the current buffer, use optional BUFFER."] po-rehighlight #[(overlay) "\300\207" [nil] 1 "Ensure OVERLAY is highlighted."] po-dehighlight #[(overlay) "\301!\207" [overlay delete-overlay] 2 "Display normally the last string which OVERLAY highlighted.\nThe current buffer should be in PO mode, when this function is called."] #[nil "\302\303\211\"\304	\"\210)\207" [extent po-highlight-face make-extent nil set-extent-face] 3 "Create and return a deleted overlay structure."] #[(extent start end &optional buffer) "\304	\n\206	p$\207" [extent start end buffer set-extent-endpoints] 5 "Use EXTENT to highlight the string from START to END.\nIf limits are not relative to the current buffer, use optional BUFFER."] #[(extent) "\300\207" [nil] 1 "Ensure EXTENT is highlighted."] #[(extent) "\301!\207" [extent detach-extent] 2 "Display normally the last string which EXTENT highlighted."] #[nil "\300 \300 B\207" [make-marker] 2 "Create and return a deleted overlay structure."] #[(overlay start end &optional buffer) "\212\203q\210\306 \307\310\211	\n{	b\210	\n|\210\311\312\n	Z\"\210\313\314!\210?	\n|\210c\210\313\314!\210?\315!\210.@	\206Np\223\210A\n\206Yp\223\207" [buffer start end text buffer-undo-list inhibit-quit buffer-modified-p nil t insert-char 32 sit-for 0 set-buffer-modified-p buffer-read-only modified inverse-video overlay] 6 "Use OVERLAY to highlight the string from START to END.\nIf limits are not relative to the current buffer, use optional BUFFER.\nNo doubt that highlighting, when Emacs does not allow it, is a kludge."] #[(overlay) "\304@!\305@!\305A!\211\205\306!\205\307\n	$+\207" [overlay end start buffer marker-buffer marker-position buffer-name po-highlight] 6 "Ensure OVERLAY is highlighted."] #[(overlay) "\306@!\307@!\307A!\211\203L\212q\210\310 \311\312\211\n	{\nb\210\n	|\210\313\314	\nZ\"\210\315\316!\210\n	|\210c\210\315\316!\210\317!\210.\320 \240\210\320 \241+\207" [overlay end start buffer buffer-undo-list inhibit-quit marker-buffer marker-position buffer-modified-p nil t insert-char 32 sit-for 0 set-buffer-modified-p make-marker buffer-read-only modified text] 5 "Display normally the last string which OVERLAY highlighted."]] 3)
#@29 Show Emacs PO mode version.
(defalias 'po-mode-version #[nil "\301\302\"\207" [po-mode-version-string message "Emacs PO mode, version %s"] 3 (#$ . 13363) nil])
#@24 Help page for PO mode.
(defconst po-help-display-string "PO Mode Summary           Next Previous            Miscellaneous\n*: Later, /: Docum        n    p    Any type       .     Redisplay\n                          t    T    Translated     /v    Version info\nMoving around             f    F    Fuzzy          ?, h  This help\n<    First if any         o    O    Obsolete       =     Current index\n>    Last if any          u    U    Untranslated   0     Other window\n/SPC Auto select                                   V     Validate\n                        Msgstr Comments            M     Mail officially\nModifying entries         RET  #    Call editor    _     Undo\nTAB   Remove fuzzy mark   k    K    Kill to        E     Edit out full\nDEL   Fuzzy or fade out   w    W    Copy to        Q     Forceful quit\nLFD   Init with msgid     y    Y    Yank from      q     Confirm and quit\n\ngettext Keyword Marking                            Position Stack\n,    Find next string     Compendiums              m  Mark and push current\nM-,  Mark translatable    *c    To compendium      r  Pop and return\nM-.  Change mark, mark    *M-C  Select, save       x  Exchange current/top\n\nProgram Sources           Auxiliary Files          Lexicography\ns    Cycle reference      a    Cycle file          *l    Lookup translation\nM-s  Select reference     C-c C-a  Select file     *M-l  Add/edit translation\nS    Consider path        A    Consider PO file    *L    Consider lexicon\nM-S  Ignore path          M-A  Ignore PO file      *M-L  Ignore lexicon\n" (#$ . 13530))
#@26 Menu layout for PO mode.
(defconst po-mode-menu-layout (byte-code "\300\301\302\303\304\305\306BB\"\307\310\302\303\311\312\313BB\"\302\303\314\315\316BB\"\302\303\317\320\321BB\"\302\303\322\323\324BB\"\302\303\325\326\327BB\"\302\303\330\331\332BB\"\307\333\302\303\334\335\336BB\"\302\303\337\340\341BB\"\302\303\342\343\344BB\"\302\303\345\346\347BB\"\302\303\350\351\352BB\"\302\303\353\354\355BB\"\307\356\302\303\357\360\361BB\"\302\303\362\363\364BB\"\302\303\365\366\367BB\"\307\302\303\370\371\372BB\"\302\303\373\374\375BB\"\257\376\302\303\377\201@\201ABB\"\307\201B\302\303\201C\201D\201EBB\"\302\303\201F\201G\201HBB\"\302\303\201I\201J\201KBB\"\302\303\201L\201M\201NBB\"\302\303\201O\201P\201QBB\"\307\201R\302\303\201S\201T\201UBB\"\302\303\201V\201W\201XBB\"\302\303\201Y\201Z\201[BB\"\302\303\201\\\201]\201^BB\"\302\303\201_\201`\201aBB\"\307\302\303\201b\201c\201dBB\"\302\303\201e\201f\201gBB\"\302\303\201h\201i\201jBB\"\257\201k\302\303\201l\201m\201nBB\"\201oBB\307\201p\201q\201r\201s\201t\201u\307\302\303\201v\201w\201xBB\"\302\303\201y\201z\201{BB\"\302\303\201|\201}\201~BB\"\302\303\201\201\200\201\201BB\"\302\303\201\202\201\203\201\204BB\"\307\302\303\201\205\201\206\201\207BB\"\302\303\201\210\201\211\201\212BB\"\257\207" ["PO" "Moving around" apply vector "Auto select" po-auto-select-entry (:help "Jump to next interesting entry") "---" "Forward" "Any next" po-next-entry (:help "Jump to next entry") "Next translated" po-next-translated-entry (:help "Jump to next translated entry") "Next fuzzy" po-next-fuzzy-entry (:help "Jump to next fuzzy entry") "Next obsolete" po-next-obsolete-entry (:help "Jump to next obsolete entry") "Next untranslated" po-next-untranslated-entry (:help "Jump to next untranslated entry") "Last file entry" po-last-entry (:help "Jump to last entry") "Backward" "Any previous" po-previous-entry (:help "Jump to previous entry") "Previous translated" po-previous-translated-entry (:help "Jump to previous translated entry") "Previous fuzzy" po-previous-fuzzy-entry (:help "Jump to previous fuzzy entry") "Previous obsolete" po-previous-obsolete-entry (:help "Jump to previous obsolete entry") "Previous untranslated" po-previous-untranslated-entry (:help "Jump to previous untranslated entry") "First file entry" po-first-entry (:help "Jump to first entry") "Position stack" "Mark and push current" po-push-location (:help "Remember current location") "Pop and return" po-pop-location (:help "Jump to last remembered location and forget about it") "Exchange current/top" po-exchange-location (:help "Jump to last remembered location and remember current location") "Redisplay" po-current-entry (:help "Make current entry properly visible") "Current index" po-statistics (:help "Statistical info on current translation file") "Modifying entries" "Undo" po-undo (:help "Revoke last changed entry") "Msgstr" "Edit msgstr" po-edit-msgstr (:help "Edit current translation") "Ediff and merge msgstr" po-edit-msgstr-and-ediff (:help "Call `ediff' on current translation for merging") "Cut msgstr" po-kill-msgstr (:help "Cut (kill) current translation") "Copy msgstr" po-kill-ring-save-msgstr (:help "Copy current translation") "Paste msgstr" po-yank-msgstr (:help "Paste (yank) text most recently cut/copied translation") "Comments" "Edit comment" po-edit-comment (:help "Edit current comment") "Ediff and merge comment" po-edit-comment-and-ediff (:help "Call `ediff' on current comment for merging") "Cut comment" po-kill-comment (:help "Cut (kill) current comment") "Copy comment" po-kill-ring-save-comment (:help "Copy current translation") "Paste comment" po-yank-comment (:help "Paste (yank) text most recently cut/copied") "Remove fuzzy mark" po-unfuzzy (:help "Remove \"#, fuzzy\"") "Fuzzy or fade out" po-fade-out-entry (:help "Set current entry fuzzy, or if already fuzzy delete it") "Init with msgid" po-msgid-to-msgstr (:help "Initialize or replace current translation with the original message") "Other files" "Other window" po-other-window (:help "Select other window; if necessay split current frame") ("---" "Program sources" ["Cycle reference" po-cycle-source-reference t] ["Select reference" po-select-source-reference t] ["Consider path" po-consider-source-path t] ["Ignore path" po-ignore-source-path t] "---" "Compendiums" ["To compendium" po-save-entry nil] ["Select, save" po-select-and-save-entry nil] "---" "Auxiliary files" ["Cycle file" po-cycle-auxiliary t] ["Select file" po-select-auxiliary t] ["Consider file" po-consider-as-auxiliary t] ["Ignore file" po-ignore-as-auxiliary t] "---" "Lexicography" ["Lookup translation" po-lookup-lexicons nil] ["Add/edit translation" po-edit-lexicon-entry nil] ["Consider lexicon" po-consider-lexicon-file nil] ["Ignore lexicon" po-ignore-lexicon-file nil]) "Source marking" ["Find first string" (po-tags-search '(nil)) t] ["Prefer keyword" (po-select-mark-and-mark '(nil)) t] ["Find next string" po-tags-search t] ["Mark preferred" po-mark-translatable t] ["Mark with keyword" po-select-mark-and-mark t] "Version info" po-mode-version (:help "Display version number of PO mode") "Help page" po-help (:help "Show the PO mode help screen") "Validate" po-validate (:help "Check validity of current translation file using `msgfmt'") "Mail officially" po-send-mail (:help "Send current translation file to the Translation Robot by mail") "Edit out full" po-edit-out-full (:help "Leave PO mode to edit translation file using fundamental mode") "Forceful quit" po-quit (:help "Close (kill) current translation file without saving") "Soft quit" po-confirm-and-quit (:help "Save current translation file, than close (kill) it")] 31) (#$ . 15111))
#@34 Menu layout for PO subedit mode.
(defconst po-subedit-mode-menu-layout (byte-code "\300\301\302\303\304\305BB\"\306\307\301\302\310\311\312BB\"\301\302\313\314\315BB\"\257\207" ["PO-Edit" apply vector "Ediff and merge translation variants" po-subedit-ediff (:help "Call `ediff' for merging variants") ["Cycle through auxiliary files" po-subedit-cycle-auxiliary t] "---" "Abort edit" po-subedit-abort (:help "Don't change the translation") "Exit edit" po-subedit-exit (:help "Use this text as the translation and close current edit buffer")] 10) (#$ . 20860))
#@69 Message to post in the minibuffer when an edit buffer is displayed.
(defconst po-subedit-message "Type 'C-c C-c' once done, or 'C-c C-k' to abort edit" (#$ . 21426))
#@56 List of auxiliary PO files, in completing read format.
(defvar po-auxiliary-list nil (#$ . 21598))
#@38 Cursor into the 'po-auxiliary-list'.
(defvar po-auxiliary-cursor nil (#$ . 21703))
#@52 Function to start composing an electronic message.
(defvar po-compose-mail-function (byte-code "\302\303\204 	\203 \304	@!\203	@\211\202	A\202\2069\304\305!\203.\306\2029\304\307!\2038\310\2029\311*\207" [result functions (compose-mail-other-window message-mail-other-window compose-mail message-mail) nil fboundp mail-other-window #[(to subject) "\302\303	#\207" [to subject mail-other-window nil] 4] mail #[(to subject) "\302\303	#\207" [to subject mail nil] 4] #[(to subject) "\301\302\"\207" [to error "I do not know how to mail to '%s'"] 3]] 3) (#$ . 21792))
#@63 Regexp matching a whole msgid field, whether obsolete or not.
(defvar po-any-msgid-regexp "^\\(#~[ 	]*\\)?msgid.*\n\\(\\(#~[ 	]*\\)?\".*\n\\)*" (#$ . 22384))
#@76 Regexp matching a whole msgstr or msgstr[] field, whether obsolete or not.
(defvar po-any-msgstr-regexp "^\\(#~[ 	]*\\)?msgstr\\(\\[[0-9]\\]\\)?.*\n\\(\\(#~[ 	]*\\)?\".*\n\\)*" (#$ . 22548))
#@69 Regexp matching an indexed msgstr keyword, whether obsolete or not.
(defvar po-msgstr-idx-keyword-regexp "^\\(#~[ 	]*\\)?msgstr\\[[0-9]\\]" (#$ . 22745))
#@50 Path to msgfmt program from GNU gettext package.
(defvar po-msgfmt-program "msgfmt" (#$ . 22905))
#@49 Additional expressions to highlight in PO mode.
(defconst po-font-lock-keywords '(("^\\(\\(msg\\(id\\(_plural\\)?\\|str\\(\\[[0-9]\\]\\)?\\)?\\) \\)?\"\\|\"$" . font-lock-keyword-face) ("\\\\.\\|%\\*?[-.0-9ul]*[a-zA-Z]" . font-lock-variable-name-face) ("^# .*\\|^#[:,]?" . font-lock-comment-face) ("^#:\\(.*\\)" 1 font-lock-reference-face)) (#$ . 23009))
(byte-code "\300\301!\204\n\302\303!\210\300\207" [fboundp po-find-file-coding-system require po-compat] 2)
#@37 Abbrev table used while in PO mode.
(defvar po-mode-abbrev-table nil (#$ . 23479))
(define-abbrev-table 'po-mode-abbrev-table nil)
#@21 Keymap for PO mode.
(defvar po-mode-map (byte-code "\301 \302!\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\303\314\315#\210\303\316\317#\210\303\320\321#\210\303\322\323#\210\303\324\325#\210\303\326\327#\210\303\330\331#\210\303\332\333#\210\303\334\335#\210\303\336\315#\210\303\337\340#\210\303\341\342#\210\303\343\344#\210\303\345\346#\210\303\347\350#\210\303\351\352#\210\303\353\354#\210\303\355\356#\210\303\357\360#\210\303\361\362#\210\303\363\364#\210\303\365\366#\210\303\367\370#\210\303\371\372#\210\303\373\374#\210\303\375\376#\210\303\377\201@#\210\303\201A\201B#\210\303\201C\201D#\210\303\201E\201F#\210\303\201G\201H#\210\303\201I\201J#\210\303\201K\201L#\210\303\201M\201N#\210\303\201O\201P#\210\303\201Q\201R#\210\303\201S\201T#\210\303\201U\201V#\210\303\201W\201X#\210\303\201Y\201Z#\210\303\201[\201\\#\210\303\201]\201^#\210\303\201_\201`#\210\303\201a\201`#\210\303\201b\201c#\210\303\201d\201e#\210\303\201f\201g#\210\303\201h\201i#\210\303\201j\201k#\210)\207" [po-mode-map make-keymap suppress-keymap define-key "	" po-unfuzzy "\n" po-msgid-to-msgstr "
" po-edit-msgstr " " po-auto-select-entry "?" po-help "#" po-edit-comment "," po-tags-search "." po-current-entry "<" po-first-entry "=" po-statistics ">" po-last-entry "a" po-cycle-auxiliary "f" po-next-fuzzy-entry "h" "k" po-kill-msgstr "m" po-push-location "n" po-next-entry "o" po-next-obsolete-entry "p" po-previous-entry "q" po-confirm-and-quit "r" po-pop-location "s" po-cycle-source-reference "t" po-next-translated-entry "u" po-next-untranslated-entry "v" po-mode-version "w" po-kill-ring-save-msgstr "x" po-exchange-location "y" po-yank-msgstr "A" po-consider-as-auxiliary "E" po-edit-out-full "F" po-previous-fuzzy-entry "K" po-kill-comment "M" po-send-mail "O" po-previous-obsolete-entry "T" po-previous-translated-entry "U" po-previous-untranslated-entry "Q" po-quit "S" po-consider-source-path "V" po-validate "W" po-kill-ring-save-comment "Y" po-yank-comment "_" po-undo "0" po-other-window "" po-fade-out-entry "
" po-select-auxiliary "" po-edit-msgstr-and-ediff [3 67108899] po-edit-comment-and-ediff "" "\254" po-mark-translatable "\256" po-select-mark-and-mark "\363" po-select-source-reference "\301" po-ignore-as-auxiliary "\323" po-ignore-source-path] 4) (#$ . 23616))
#@304 Major mode for translators when they edit PO files.

Special commands:
\{po-mode-map}
Turning on PO mode calls the value of the variable 'po-mode-hook',
if that value is non-nil.  Behaviour may be adjusted through some variables,
all reachable through 'M-x customize', in group 'Emacs.Editing.I18n.Po'.
(defalias 'po-mode #[nil "\306 \210\307\310\311\n!\210\312\313!\2031\314\305\315\316#\210\317\305!\204\"\320\305\321\"\210\322\305\n\316$\210\f\2031\323
!\210\324\325!\210\326\324\327!\210<\330<\324\331!\210\324\332!\210\324\333!\210\324\334!\210\324\335!\210\324\336!\210\324\337!\210\324\340!\210\324\341!\210\324\342!\210\330=\343 \210\344\321!\210\324\345!\210\321%\324\346!\210\321&\324\347!\210\350'\324\351!\210\321)\324\352!\210\321*\324\353!\210\354+\324\355!\210\356-\324\357!\210\321/\324\360!\210\3210\324\361!\210\3211\324\362!\210\3212\324\363!\210\364 3\365\366\367\"\210\370\371!\210\372\373!\207" [major-mode mode-name po-mode-map po-mode-menu-layout po-XEMACS po-mode-menu kill-all-local-variables po-mode "PO" use-local-map fboundp easy-menu-define put variable-documentation "" default-boundp set-default nil easy-menu-do-define easy-menu-add make-local-variable font-lock-defaults (po-font-lock-keywords t) po-read-only t po-start-of-entry po-start-of-msgid po-start-of-msgstr 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 po-edited-fields po-marker-stack po-search-path (("./") ("../")) po-reference-alist po-reference-cursor po-reference-check 0 po-keywords (("gettext") ("gettext_noop") ("_") ("N_")) po-string-contents po-string-buffer po-string-start po-string-end po-marking-overlay po-create-overlay add-hook write-contents-hooks po-replace-revision-date run-hooks po-mode-hook message "You may type 'h' or '?' for a short PO mode reminder." buffer-read-only po-mode-flag] 5 (#$ . 26034) nil])
#@61 Keymap while editing a PO mode entry (or the full PO file).
(defvar po-subedit-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\310#\210\302\311\312#\210)\207" [po-subedit-mode-map make-keymap define-key "
" po-subedit-cycle-auxiliary "" po-subedit-exit "" po-subedit-ediff "" po-subedit-abort] 4) (#$ . 28018))
(make-variable-buffer-local 'po-mode-flag)
#@53 Mode line format entry displaying MODE-LINE-STRING.
(defvar po-mode-line-entry '(po-mode-flag ("  " po-mode-line-string)) (#$ . 28412))
(byte-code "	\235\204\303	\235\206\304	\235\206\305	!\211\nAB\241\210)\303\207" [po-mode-line-entry mode-line-format prev-entry global-mode-string "   " last] 4)
#@58 Compute a new statistics string to display in mode line.
(defalias 'po-update-mode-line-string #[nil "\305\306\"	\307V\205\305\310	\"\n\307V\205\305\311\n\"\307V\205\"\305\312\"R\313 \207" [po-translated-counter po-fuzzy-counter po-untranslated-counter po-obsolete-counter po-mode-line-string format "%dt" 0 "+%df" "+%du" "+%do" po-force-mode-line-update] 6 (#$ . 28725)])
#@74 Return the symbol name of the counter appropriate for the current entry.
(defalias 'po-type-counter #[nil "\301=\203\302\207\303=\203\304\207\305=\203\306\207\307=\203 \310\207\311\312!\207" [po-entry-type obsolete po-obsolete-counter fuzzy po-fuzzy-counter translated po-translated-counter untranslated po-untranslated-counter error "Unknown entry type"] 3 (#$ . 29113)])
#@72 Decrease the counter corresponding to the nature of the current entry.
(defalias 'po-decrease-type-counter #[nil "\301 \211\302!SL)\207" [counter po-type-counter eval] 4 (#$ . 29503)])
#@109 Increase the counter corresponding to the nature of the current entry.
Then, update the mode line counters.
(defalias 'po-increase-type-counter #[nil "\301 \211\302!TL\210)\303 \207" [counter po-type-counter eval po-update-mode-line-string] 4 (#$ . 29697)])
#@77 Prepare counters for mode line display.  If FLAG, also echo entry position.
(defalias 'po-compute-counters #[(flag) "\203\306 \210\307\211\307\211\307\211\310\211\212\306 \210eb\210\306 \210\311\310!\312\230\2034b\210\313\314d\315#\203\265\313\310\315#\203\237\316\246\307U\203c\203]\317\320#\210\202c\317\321\"\210`\307\224b\210T\203}`=\203}g\322=\203\211\fT\202\231\323!\203\226T\202\231	T
b\210\202<eb\210\313\310\315#\203\261\nT\202\242	\nZ)\203\312\317\324	\n\f&\210\202\316\317\312!\210,\325 \207" [flag po-translated-counter po-fuzzy-counter po-untranslated-counter po-obsolete-counter here po-find-span-of-entry 0 nil po-get-msgid "" re-search-forward "^msgid" t 20 message "Position %d/%d" "Position %d" 35 looking-at "Position %d/%d; %d translated, %d fuzzy, %d untranslated, %d obsolete" po-update-mode-line-string current total position po-start-of-msgstr po-end-of-entry po-any-msgstr-regexp po-untranslated-regexp po-fuzzy-regexp] 9 (#$ . 29963)])
#@30 Redisplay the current entry.
(defalias 'po-redisplay #[nil "b\207" [po-start-of-msgid] 1 (#$ . 31008)])
#@53 Get the cursor into another window, out of PO mode.
(defalias 'po-other-window #[nil "\300\301!\203\302 \210\303\304 !\207\305\306!\207" [one-window-p t split-window switch-to-buffer other-buffer other-window 1] 2 (#$ . 31119) nil])
#@65 Create a missing PO mode file header, or replace an oldish one.
(defalias 'po-check-file-header #[nil "\212\306\211eb\210\307\f\306\310#\203N\311\224b\210\312\313!\210\311\225\314\315!\203I\307\316	\310#\204P	b\210`eV\203A\312\313!\210\317c\210\320 \210\202.\320 \210\310\202P\310\202P\310eb\210\n\205a
c\210m?\205a\321c,\207" [po-read-only end-of-header insert-flag buffer-read-only po-any-msgstr-regexp po-default-file-header nil re-search-forward t 0 previous-line 1 looking-at "msgid \"\"\n" "\n\"PO-Revision-Date: " "#~ " beginning-of-line "\n"] 4 (#$ . 31360)])
#@66 Replace the revision date by current time in the PO file header.
(defalias 'po-replace-revision-date #[nil "\306\307!\203^\310=\204\311=\205a\312\313!\205a\212eb\210\314\315\316\310#\205\\	\317 \320!@\2061\321\322\f!\323\245\324\325\f\321W\203D\326\202E\327
\323\245
\323\246$\330\331\307\332\"\333R\310\211#-)\207\334\335!\207" [po-auto-replace-revision-date po-read-only buffer-read-only time seconds minutes fboundp format-time-string t ask y-or-n-p "May I set PO-Revision-Date? " re-search-forward "^\"PO-Revision-Date:.*" nil current-time current-time-zone 0 abs 60 format "%c%02d%02d" 45 43 replace-match "\"PO-Revision-Date: " "%Y-%m-%d %H:%M" "\\n\"" message "PO-Revision-Date should be adjusted..." zone] 6 (#$ . 31951)])
#@280 Find the extent of the PO file entry where the cursor is.
Set variables PO-START-OF-ENTRY, PO-START-OF-MSGID, PO-START-OF-MSGSTR,
PO-END-OF-ENTRY and PO-ENTRY-TYPE to meaningful values.  Decreasing priority
of type interpretation is: obsolete, fuzzy, untranslated or translated.
(defalias 'po-find-span-of-entry #[nil "`\306	\307\310#\203_\311	!\210\312\225X\203D\312\225\312\224\312\225\311	\307\310#\203/\312\224\312\225\202nb\210\306	\307\310#\203?\312\225\202@e\202n\312\224\312\225b\210\306	\307\310#\203Z\312\225\202[e\202ne\211b\210\311	!\210\312\224\312\225\nb\210\311
!\210\312\224g\313=\203\203\314\202\243\nb\210\311\310#\203\224\315\202\243b\210\316!\203\242\317\202\243\320b)\207" [here po-any-msgstr-regexp po-start-of-entry po-start-of-msgstr po-end-of-entry po-any-msgid-regexp re-search-backward nil t re-search-forward 0 35 obsolete fuzzy looking-at untranslated translated po-start-of-msgid po-fuzzy-regexp po-untranslated-regexp po-entry-type] 5 (#$ . 32710)])
#@70 Add attribute NAME to the current entry, unless it is already there.
(defalias 'po-add-attribute #[(name) "\212\nb\210\305\306\307#\203/\214\310\224\310\225}\210eb\210\305\311\f\311Q\312\307#?\205+db\210\313\f\261)\202E\314\312w\210g\315=\203@\316\317!\210\2023\320\f\314\261*\207" [po-read-only buffer-read-only po-start-of-entry po-start-of-msgid name re-search-forward "\n#[,!] .*" t 0 "\\b" nil ", " "\n" 35 next-line 1 "#, "] 4 (#$ . 33741)])
#@55 Delete attribute NAME from the current entry, if any.
(defalias 'po-delete-attribute #[(name) "\212\nb\210\305\306\307#\205.\214\310\224\310\225}\210eb\210\305\311\f\312\f\313\f\314\260\315\307#\205-\316\317\307\211#)*\207" [po-read-only buffer-read-only po-start-of-entry po-start-of-msgid name re-search-forward "\n#[,!] .*" t 0 "\\(\n#[,!] " "$\\|, " "$\\| " ",\\)" nil replace-match ""] 8 (#$ . 34205)])
#@52 Tell how many entries in the entry location stack.
(defalias 'po-say-location-depth #[nil "G\211\302U\203\303\304!\202	\305U\203\303\306!\202\303\307	\")\207" [po-marker-stack depth 0 message "Empty location stack" 1 "One entry in location stack" "%d entries in location stack"] 4 (#$ . 34625)])
#@60 Stack the location of the current entry, for later return.
(defalias 'po-push-location #[nil "\302 \210\212b\210\303 	B)\304 \207" [po-start-of-msgid po-marker-stack po-find-span-of-entry point-marker po-say-location-depth] 2 (#$ . 34937) nil])
#@66 Unstack a saved location, and return to the corresponding entry.
(defalias 'po-pop-location #[nil "\203@b\210A\301 \210\302 \207\303\304!\207" [po-marker-stack po-current-entry po-say-location-depth error "The entry location stack is empty"] 3 (#$ . 35190) nil])
#@67 Exchange the location of the current entry with the top of stack.
(defalias 'po-exchange-location #[nil "\203\303 \210	b\210\304 @b\210\nAB)\305 \210\306 \207\307\310!\207" [po-marker-stack po-start-of-msgid location po-find-span-of-entry point-marker po-current-entry po-say-location-depth error "The entry location stack is empty"] 3 (#$ . 35465) nil])
#@28 Display the current entry.
(defalias 'po-current-entry #[nil "\300 \210\301 \207" [po-find-span-of-entry po-redisplay] 1 (#$ . 35833) nil])
#@66 Display the first entry in the file which msgstr matches REGEXP.
(defalias 'po-first-entry-with-regexp #[(regexp) "`eb\210\302	\303\304#\203\305\224b\210\306 \202b\210\307\310!)\207" [here regexp re-search-forward nil t 0 po-current-entry error "There is no such entry"] 4 (#$ . 35979)])
#@65 Display the last entry in the file which msgstr matches REGEXP.
(defalias 'po-last-entry-with-regexp #[(regexp) "`db\210\302	\303\304#\203\305 \202b\210\306\307!)\207" [here regexp re-search-backward nil t po-current-entry error "There is no such entry"] 4 (#$ . 36279)])
#@135 Display the entry following the current entry which msgstr matches REGEXP.
If WRAP is not nil, the search may wrap around the buffer.
(defalias 'po-next-entry-with-regexp #[(regexp wrap) "\305 \210`	b\210\306\n\307\310#\203\311\224b\210\312 \202;\2035eb\210\306\n\f\310#\2035\311\224b\210\312 \210\313\314!\202;b\210\315\316!)\207" [here po-end-of-entry regexp wrap po-start-of-entry po-find-span-of-entry re-search-forward nil t 0 po-current-entry message "Wrapping around the buffer" error "There is no such entry"] 4 (#$ . 36564)])
#@137 Redisplay the entry preceding the current entry which msgstr matches REGEXP.
If WRAP is not nil, the search may wrap around the buffer.
(defalias 'po-previous-entry-with-regexp #[(regexp wrap) "\305 \210`	b\210\306\n\307\310#\203\311 \2023\203-db\210\306\n\f\310#\203-\311 \210\312\313!\2023b\210\314\315!)\207" [here po-start-of-entry regexp wrap po-end-of-entry po-find-span-of-entry re-search-backward nil t po-current-entry message "Wrapping around the buffer" error "There is no such entry"] 4 (#$ . 37115)])
#@26 Display the first entry.
(defalias 'po-first-entry #[nil "\301!\207" [po-any-msgstr-regexp po-first-entry-with-regexp] 2 (#$ . 37644) nil])
#@25 Display the last entry.
(defalias 'po-last-entry #[nil "\301!\207" [po-any-msgstr-regexp po-last-entry-with-regexp] 2 (#$ . 37791) nil])
#@48 Display the entry following the current entry.
(defalias 'po-next-entry #[nil "\301\302\"\207" [po-any-msgstr-regexp po-next-entry-with-regexp nil] 3 (#$ . 37935) nil])
#@48 Display the entry preceding the current entry.
(defalias 'po-previous-entry #[nil "\301\302\"\207" [po-any-msgstr-regexp po-previous-entry-with-regexp nil] 3 (#$ . 38111) nil])
#@65 Regexp which should be true after a full msgstr string matched.
(defvar po-after-entry-regexp "\\(\\'\\|\\(#[ 	]*\\)?$\\)" (#$ . 38295))
#@69 Regexp matching a whole msgstr field, but only if active and empty.
(defvar po-untranslated-regexp (concat "^msgstr[ 	]*\"\"\n" po-after-entry-regexp) (#$ . 38438))
#@65 Find the next untranslated entry, wrapping around if necessary.
(defalias 'po-next-untranslated-entry #[nil "\301\302\"\207" [po-untranslated-regexp po-next-entry-with-regexp t] 3 (#$ . 38609) nil])
#@69 Find the previous untranslated entry, wrapping around if necessary.
(defalias 'po-previous-untranslated-entry #[nil "\301\302\"\207" [po-untranslated-regexp po-previous-entry-with-regexp t] 3 (#$ . 38815) nil])
#@61 Use another window to edit msgstr reinitialized with msgid.
(defalias 'po-msgid-to-msgstr #[nil "\301 \210\302=\204\303=\204\304\305!\203\306\307\310!!\210\311\312!\207" [po-entry-type po-find-span-of-entry untranslated obsolete y-or-n-p "Really loose previous translation? " po-set-msgstr po-get-msgid nil message ""] 3 (#$ . 39033) nil])
#@60 Regexp matching a whole msgstr field of an obsolete entry.
(defvar po-obsolete-msgstr-regexp "^#~[ 	]*msgstr.*\n\\(#~[ 	]*\".*\n\\)*" (#$ . 39387))
#@61 Find the next obsolete entry, wrapping around if necessary.
(defalias 'po-next-obsolete-entry #[nil "\301\302\"\207" [po-obsolete-msgstr-regexp po-next-entry-with-regexp t] 3 (#$ . 39541) nil])
#@65 Find the previous obsolete entry, wrapping around if necessary.
(defalias 'po-previous-obsolete-entry #[nil "\301\302\"\207" [po-obsolete-msgstr-regexp po-previous-entry-with-regexp t] 3 (#$ . 39742) nil])
#@96 Regexp matching the string inserted by msgmerge for translations
which does not match exactly.
(defvar po-fuzzy-regexp "^#[,!] .*fuzzy" (#$ . 39955))
#@58 Find the next fuzzy entry, wrapping around if necessary.
(defalias 'po-next-fuzzy-entry #[nil "\301\302\"\207" [po-fuzzy-regexp po-next-entry-with-regexp t] 3 (#$ . 40111) nil])
#@58 Find the next fuzzy entry, wrapping around if necessary.
(defalias 'po-previous-fuzzy-entry #[nil "\301\302\"\207" [po-fuzzy-regexp po-previous-entry-with-regexp t] 3 (#$ . 40296) nil])
#@51 Remove the fuzzy attribute for the current entry.
(defalias 'po-unfuzzy #[nil "\302 \210\303=\203\304 \210\305\306!\210\307 \210\310 \210	\203\311 \210\312 \207" [po-entry-type po-auto-select-on-unfuzzy 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] 2 (#$ . 40489) nil])
#@63 Find the next translated entry, wrapping around if necessary.
(defalias 'po-next-translated-entry #[nil "\303U\203\n\304\305!\207\306	\307\"\210\310 \210\n\311=?\205$\306	\307\"\210\310 \210\202\207" [po-translated-counter po-any-msgstr-regexp po-entry-type 0 error "There is no such entry" po-next-entry-with-regexp t po-find-span-of-entry translated] 3 (#$ . 40896) nil])
#@67 Find the previous translated entry, wrapping around if necessary.
(defalias 'po-previous-translated-entry #[nil "\304U\203\n\305\306!\207\307	\310\"\210\311 \210\n\312=?\205$\307\310\"\210\311 \210\202\207" [po-translated-counter po-any-msgstr-regexp po-entry-type po-untranslated-regexp 0 error "There is no such entry" po-previous-entry-with-regexp t po-find-span-of-entry translated] 3 (#$ . 41281) nil])
#@288 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.
(defalias 'po-auto-select-entry #[nil "\306 \210b\210	\307U\203-\n\307U\203-\307U\203-\310\f\311\312#\203'\307\224b\210\202\267eb\210\202\267
\313=\2037\314\2028
\203\266\314=\203e	\307V\203_\310\311\312#\203_\307\224b\210\311\202eeb\210\315\315=\203\213\n\307V\203\205\310\311\312#\203\205\307\224b\210\311\202\213eb\210\316\316=\203:\307V\203\254\310\311\312#\203\254\307\224b\210\311\211\202<eb\210\314\211\204?)\317 \207" [po-end-of-entry po-untranslated-counter po-fuzzy-counter po-obsolete-counter po-any-msgstr-regexp po-entry-type po-find-span-of-entry 0 re-search-forward nil t translated untranslated fuzzy obsolete po-current-entry goal po-untranslated-regexp po-fuzzy-regexp po-obsolete-msgstr-regexp] 5 (#$ . 41702) nil])
#@134 Extract and return the unquoted string in BUFFER going from START to END.
Crumb preceding or following the quoted string is ignored.
(defalias 'po-extract-unquoted #[(buffer start end) "\212b\210\303\304!\210`	b\210\305\304!\210`)\306\n	#\207" [start end buffer search-forward "\"" search-backward po-extract-part-unquoted] 4 (#$ . 42784)])
#@149 Extract and return the unquoted string in BUFFER going from START to END.
Surrounding quotes are already excluded by the position of START and END.
(defalias 'po-extract-part-unquoted #[(buffer start end) "\305\306!rq\210\307\216\310	\n#\210eb\210\311\312\313\314#\203$\315\316\314\211#\210\202eb\210\311\317\313\314#\2038\315\316\314\211#\210\202'eb\210\311\320\313\314#\203\324h\321=\203R\315\322\314\211#\210\202;h\323=\203a\315\324\314\211#\210\202;h\325=\203p\315\326\314\211#\210\202;h\327=\203\315\330\314\211#\210\202;h\331=\203\216\315\332\314\211#\210\202;h\333=\203\235\315\334\314\211#\210\202;h\335=\203\254\315\336\314\211#\210\202;h\337Z\315\316\314\211#\210\340\341!\203\315\f\342_g\337Z\\\315\316\314\211#\210\202\266\fc\210)\202;\343 +\207" [#1=#:temp-buffer buffer start end value generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) insert-buffer-substring re-search-forward "\"[ 	]*\\\\?\n\\(#~\\)?[ 	]*\"" nil t replace-match "" "\\\\[ 	]*\n" "\\\\[\"abfnt\\0-7]" 34 "\"" 97 "" 98 "" 102 "\f" 110 "\n" 116 "	" 92 "\\" 48 looking-at "[0-7]" 8 buffer-string] 4 (#$ . 43136)])
#@364 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.
(defalias 'po-eval-requoted #[(form prefix obsolete) "\305\306!rq\210\307\216	;\203	c\210\202\310 \210\311	!\210eb\210\312\313\314\315#eb\210\312\316\314\315#\203\264h\317=\203?\320\321\315\211#\210\202(h\322=\203N\320\323\315\211#\210\202(h\324=\203]\320\325\315\211#\210\202(h\326=\203l\320\327\315\211#\210\202(h\330=\203\207\320\n\203{m\203\331\202\200\332\315\211#\210\202(h\333=\203\226\320\334\315\211#\210\202(h\335=\203\245\320\336\315\211#\210\202(h\337=\203(\320\340\315\211#\210\202(eb\210\203\300\341\261\210\n\203\310\342\202\311\343c\210db\210\343c\210\203\330\344c\210\f\203\363eb\210m\204\363g\330=\204\354\345c\210\346\344!\210\202\337\347 ,\207" [#1=#:temp-buffer form multi-line prefix obsolete generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) push-mark eval re-search-forward "[^\n]\n+[^\n]" nil t "[\"\f\n
	\\]" 34 replace-match "\\\"" 7 "\\a" 8 "\\b" 12 "\\f" 10 "\\n" "\\n\"\n\"" 13 "\\r" 9 "\\t" 92 "\\\\" " " "\"\"\n\"" "\"" "\n" "#~ " search-forward buffer-string] 4 (#$ . 44327)])
#@103 Extract and return the unquoted msgid string.
If KILL, then add the unquoted string to the kill ring.
(defalias 'po-get-msgid #[(kill) "\304p	#\203\305\n!\210\n)\207" [po-start-of-msgid po-start-of-msgstr string kill po-extract-unquoted po-kill-new] 4 (#$ . 45809)])
#@104 Extract and return the unquoted msgstr string.
If KILL, then add the unquoted string to the kill ring.
(defalias 'po-get-msgstr #[(kill) "\304p	#\203\305\n!\210\n)\207" [po-start-of-msgstr po-end-of-entry string kill po-extract-unquoted po-kill-new] 4 (#$ . 46088)])
#@402 Replace the current msgid, using FORM to get a string.
Evaluating FORM should insert the wanted string in the current buffer.  If
FORM is itself a string, then this string is used for insertion.  The string
is properly requoted before the replacement occurs.

Returns 'nil' if the buffer has not been modified, for if the new msgid
described by FORM is merely identical to the msgid already in place.
(defalias 'po-set-msgid #[(form) "\306\307	\310=#\212b\210\311\f
\"\210\312\313!\n\230?\205-\314\n\315\211#\210b\210\316 \210)\315*\207" [form po-entry-type string po-start-of-entry po-any-msgid-regexp po-start-of-msgstr po-eval-requoted "msgid" obsolete re-search-forward po-match-string 0 replace-match t po-find-span-of-entry po-read-only buffer-read-only po-start-of-msgid] 5 (#$ . 46367)])
#@417 Replace the current msgstr or msgstr[], using FORM to get a string.
Evaluating FORM should insert the wanted string in the current buffer.  If
FORM is itself a string, then this string is used for insertion.  The string
is properly requoted before the replacement occurs.

Returns 'nil' if the buffer has not been modified, for if the new msgstr
described by FORM is merely identical to the msgstr already in place.
(defalias 'po-set-msgstr #[(form) "\306\307	\310=#\311\212\fb\210\212\312
\313#\203\314\315\224\315\225\")\312\"\210\316\315!\230?\205^\317 \210\320\313\211#\210\315\224b\210\n\311=\204R\nc\210\321\322!\210\320\323!\210b\210\324 \210\325 \210)\313+\207" [form po-entry-type msgstr-idx string po-start-of-entry po-msgstr-idx-keyword-regexp po-eval-requoted "msgstr" obsolete nil re-search-forward t buffer-substring-no-properties 0 po-match-string po-decrease-type-counter replace-match looking-at "\\(#~[ 	]*\\)?msgstr" "" po-find-span-of-entry po-increase-type-counter po-end-of-entry po-any-msgstr-regexp po-read-only buffer-read-only po-start-of-msgid] 5 (#$ . 47180)])
#@61 Push the msgstr string from current entry on the kill ring.
(defalias 'po-kill-ring-save-msgstr #[nil "\300 \210\301\302!\207" [po-find-span-of-entry po-get-msgstr t] 2 (#$ . 48297) nil])
#@74 Empty the msgstr string from current entry, pushing it on the kill ring.
(defalias 'po-kill-msgstr #[nil "\300 \210\301\302!\207" [po-kill-ring-save-msgstr po-set-msgstr ""] 2 (#$ . 48491) nil])
#@64 Replace the current msgstr string by the top of the kill ring.
(defalias 'po-yank-msgstr #[nil "\302 \210\303\304=\203\305\202\306!\210\304\211\207" [last-command this-command po-find-span-of-entry po-set-msgstr yank (yank-pop 1) (yank)] 3 (#$ . 48692) nil])
#@148 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.
(defalias 'po-fade-out-entry #[nil "\306 \210\307=\203\310 \210\311\312!\210\313 \210\314 \207\315=\204\"\316=\203S\317\320!\203O\310 \210\212\214	\n}\210eb\210\321\322w\210m\204H\323c\210\324\321!\210\202:+\313 \210\314 \210\325\326!\207\327=\205\227\330
!\205\227\330!\205\227\310 \210\331 \210\332\333!\210	\n|\210)	b\210\334 \322\333#\203\212\335\224b\210\202\221\336 \322\333#\210\313 \210\325\326!\207" [po-entry-type po-start-of-entry po-end-of-entry po-read-only buffer-read-only po-start-of-msgid po-find-span-of-entry translated po-decrease-type-counter po-add-attribute "fuzzy" po-current-entry po-increase-type-counter fuzzy untranslated y-or-n-p "Should I really obsolete this entry? " "\n" nil "#~ " search-forward message "" obsolete po-check-for-pending-edit po-update-mode-line-string po-get-msgstr t re-search-forward 0 re-search-backward po-start-of-msgstr po-any-msgstr-regexp] 4 (#$ . 48964) nil])
#@69 Regexp matching the whole editable comment part of an active entry.
(defvar po-active-comment-regexp "^\\(#\n\\|# .*\n\\)+" (#$ . 50060))
#@71 Regexp matching the whole editable comment part of an obsolete entry.
(defvar po-obsolete-comment-regexp "^\\(#~ #\n\\|#~ # .*\n\\)+" (#$ . 50204))
#@124 Extract and return the editable comment string, uncommented.
If KILL-FLAG, then add the unquoted comment to the kill ring.
(defalias 'po-get-comment #[(kill-flag) "p\301=\212b\210\306	\203\f\202
\307#\203`\310\311!rq\210\312\216\313\n\314\224\314\225#\210eb\210m\204P\315	\203?\316\202@\317!\203J\320\321\307\211#\210\322y\210\2022\203Z\323ed\"\210\324 +\202a\321+\207" [po-entry-type obsolete buffer po-start-of-entry po-obsolete-comment-regexp po-active-comment-regexp re-search-forward t generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1=#:temp-buffer buffer-name kill-buffer] 2)) insert-buffer-substring 0 looking-at "#~ # ?" "# ?" replace-match "" 1 copy-region-as-kill buffer-string po-end-of-entry #1# kill-flag] 4 (#$ . 50359)])
#@272 Using FORM to get a string, replace the current editable comment.
Evaluating FORM should insert the wanted string in the current buffer.
If FORM is itself a string, then this string is used for insertion.
The string is properly recommented before the replacement occurs.
(defalias 'po-set-comment #[(form) "\302=\306\307\310!rq\210\311\216\f;\203\fc\210\202\"\312 \210\313\f!\210o\204/h\314U\204/\315c\210eb\210m\204Zg\314U\203H\n\203D\316\202Q\317\202Q\n\203P\320\202Q\321c\210\322\315!\210\2022\323 +
b\210\324\n\203k\202m\325#\203\212\326\327!	\230\204\226\330	\325\211#\210)\202\226\331\306w\210	c\210)*\332 \207" [po-entry-type string obsolete #1=#:temp-buffer form po-start-of-entry nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) push-mark eval 10 "\n" "#~ #" "#" "#~ # " "# " search-forward buffer-string re-search-forward t po-match-string 0 replace-match " 	\n" po-current-entry po-obsolete-comment-regexp po-active-comment-regexp po-end-of-entry po-read-only buffer-read-only] 4 (#$ . 51157)])
#@61 Push the msgstr string from current entry on the kill ring.
(defalias 'po-kill-ring-save-comment #[nil "\300 \210\301\302!\207" [po-find-span-of-entry po-get-comment t] 2 (#$ . 52272) nil])
#@74 Empty the msgstr string from current entry, pushing it on the kill ring.
(defalias 'po-kill-comment #[nil "\300 \210\301\302!\210\303 \207" [po-kill-ring-save-comment po-set-comment "" po-redisplay] 2 (#$ . 52468) nil])
#@65 Replace the current comment string by the top of the kill ring.
(defalias 'po-yank-comment #[nil "\302 \210\303\304=\203\305\202\306!\210\304\307 \207" [last-command this-command po-find-span-of-entry po-set-comment yank (yank-pop 1) (yank) po-redisplay] 3 (#$ . 52694) nil])
#@69 From EDITED-FIELDS, clean out any edit having a killed edit buffer.
(defalias 'po-clean-out-killed-edits #[nil "	\205*	@	A\304\nA@!\204&\305\n8\211\203 \306!\210)\307\n\")\202)\207" [po-edited-fields cursor slot overlay buffer-name 2 po-dehighlight delete] 4 (#$ . 52982)])
#@55 Resume any pending edit.  Return nil if some remains.
(defalias 'po-check-all-pending-edits #[nil "\304 \210?\206(@\211@b\210\305	A@!\210\306	8\211\203!\307\n!\210)\310!\210)\311\207" [po-edited-fields slot overlay po-subedit-message po-clean-out-killed-edits pop-to-buffer 2 po-rehighlight message nil] 3 (#$ . 53275)])
#@71 Resume any pending edit at POSITION.  Return nil if such edit exists.
(defalias 'po-check-for-pending-edit #[(position) "\306 \210\307 \211	\310\223\210\311\n\"\211\203.b\210\312A@!\210\3138\211\203)\314\f!\210)\315
!\210*?\207" [marker position po-edited-fields slot overlay po-subedit-message po-clean-out-killed-edits make-marker nil assoc pop-to-buffer 2 po-rehighlight message] 4 (#$ . 53609)])
#@65 Get out of PO mode, leaving PO file buffer in fundamental mode.
(defalias 'po-edit-out-full #[nil "\302 \205\303\304!\205\305 \210\306\307!\207" [po-read-only buffer-read-only po-check-all-pending-edits yes-or-no-p "Should I let you edit the whole PO file? " fundamental-mode message "Type 'M-x po-mode RET' once done"] 3 (#$ . 54025) nil])
#@39 Quit ediff and exit `recursive-edit'.
(defalias 'po-ediff-quit #[nil "\300\301!\210\302 \207" [ediff-quit t exit-recursive-edit] 2 (#$ . 54378) nil])
(add-hook 'ediff-keymap-setup-hook '(lambda nil (define-key ediff-mode-map "Q" 'po-ediff-quit)))
#@308 Ediff buffer B1 and B2, pop back to OLDBUF and replace the old variants.
This function will delete the first two variants in OLDBUF, call
`ediff-buffers' to compare both strings and replace the two variants in
OLDBUF with the contents of B2.
Once done kill B1 and B2.

For more info cf. `po-subedit-ediff'.
(defalias 'po-ediff-buffers-exit-recursive #[(b1 b2 oldbuf end) "\305	\"\210\306 \210\307\n!\210e|\210\310	!\210\311\312	D\"\210\313\f\314\"\207" [b1 b2 oldbuf end entry-buffer ediff-buffers recursive-edit pop-to-buffer insert-buffer mapc kill-buffer display-buffer t] 4 (#$ . 54632)])
#@521 Edit the subedit buffer using `ediff'.
`po-subedit-ediff' calls `po-ediff-buffers-exit-recursive' to edit translation
variants side by side if they are actually different; if variants are equal just
delete the first one.

`msgcat' is able to produce those variants; every variant is marked with:

#-#-#-#-#  file name reference  #-#-#-#-#

Put changes in second buffer.

When done with the `ediff' session press \[exit-recursive-edit] exit to
`recursive-edit', or call \[po-ediff-quit] (`Q') in the ediff control panel.
(defalias 'po-subedit-ediff #[nil "\306\307\310\211\310\211\310\211@\311!eb\210\312!\2031\313\314!\211\2031\314y\210`\315d\316#\204A\317\320!\202\264\313\314!\321\224p r\322\323	!!q\210\310!\324 \210\325 \f#\210\316!)`\212\315d\316#\203v\321\224\202{dSb)r\322\323\n!!q\210\324 \210\325 
#\210)\326\f\"\326
\"\230\204\250\327	\n $\202\263\330\331	\"\210\332y\210e`|).\n\207" [marker-regex buf1 buf2 start-1 end-1 start-2 "^#-#-#-#-#  \\(.*\\)  #-#-#-#-#\n" " *po-msgstr-1" nil marker-buffer looking-at match-string-no-properties 1 re-search-forward t error "Only 1 msgstr found" 0 get-buffer-create generate-new-buffer-name erase-buffer insert-buffer-substring buffer-substring-no-properties po-ediff-buffers-exit-recursive message "Variants are equal; delete %s" -1 end-2 po-subedit-back-pointer back-pointer entry-marker entry-buffer oldbuf buffer-read-only] 6 (#$ . 55235) nil])
#@58 Exit the subedit buffer, merely discarding its contents.
(defalias 'po-subedit-abort #[nil "p	\211@\306\n8\307!\211\204\310\311!\202<\312 \204!\313 \210\314
!\210b\210\f\2030\315\f!\210\316!\210\317\n\"\211-\207" [edit-buffer po-subedit-back-pointer back-pointer entry-marker overlay-info entry-buffer 2 marker-buffer error "Corresponding PO buffer does not exist anymore" one-window-p delete-window switch-to-buffer po-dehighlight kill-buffer delete po-edited-fields] 4 (#$ . 56694) nil])
#@65 Exit the subedit buffer, replacing the string in the PO buffer.
(defalias 'po-subedit-exit #[nil "db\210\306\307x\210h\310=\203`Sd|\210\311\312!\210\313 \314 \210\315 \210`	U\203.\316!\210\317 \202X`\nU\203V\320!\211\205R\f\205R
\321=\205R\322 \210\323\324!\210\325 \210\326 )\202X\327 )\207" [string po-start-of-msgid po-start-of-msgstr replaced po-auto-fuzzy-on-edit po-entry-type " 	\n" nil 60 run-hooks po-subedit-exit-hook buffer-string po-subedit-abort po-find-span-of-entry po-set-comment po-redisplay po-set-msgstr translated po-decrease-type-counter po-add-attribute "fuzzy" po-current-entry po-increase-type-counter debug] 3 (#$ . 57207) nil])
#@183 Prepare a pop up buffer for editing STRING, which is of a given TYPE.
TYPE may be 'comment or 'msgstr.  If EXPAND-TABS, expand tabs to spaces.
Run functions on po-subedit-mode-hook.
(defalias 'po-edit-string #[(string type expand-tabs) "\306 \211	\307=\203\n\202	\310=\205\311\223\210\312!\205\337\313\314\315 \314Q!\fp\311\211*+,-	\310=\203g.\203g\212/b\210\3160\311\317#\210\320\225S1\320\224b\210\316\321\311\317#\210\322 *\323*`1+$\210*-*E\2112B2\324-!\210\325\326!\210
\325\327!\210\330,34\331 \2105\332\261\210eb\2106\203\242\3117\3338!\210\334\335!\203\321\336\337\340\341#\210\342\337!\204\276\343\337\311\"\210\344\3378\3419$\210:\203\321\345!\210\346;!\210\347\350!\210\351<!-)\207" [marker type po-start-of-msgid po-start-of-msgstr buffer-file-coding-system slot make-marker comment msgstr nil po-check-for-pending-edit generate-new-buffer "*" buffer-name re-search-forward t 0 "msgid +" po-create-overlay po-highlight pop-to-buffer make-local-variable po-subedit-back-pointer indent-line-function indent-relative erase-buffer "<" use-local-map fboundp easy-menu-define put po-subedit-mode-menu variable-documentation "" default-boundp set-default easy-menu-do-define easy-menu-add set-syntax-table run-hooks po-subedit-mode-hook message overlay buffer edit-coding edit-buffer po-highlighting po-start-of-entry po-any-msgid-regexp end po-edited-fields po-mode-abbrev-table local-abbrev-table string expand-tabs indent-tabs-mode po-subedit-mode-map po-subedit-mode-menu-layout po-XEMACS po-subedit-mode-syntax-table po-subedit-message] 6 (#$ . 57881)])
#@60 Use another window to edit the current translator comment.
(defalias 'po-edit-comment #[nil "\300 \210\301\302\303!\304\303#\207" [po-find-span-of-entry po-edit-string po-get-comment nil comment] 4 (#$ . 59506) nil])
#@167 Use `ediff' to edit the current translator comment.
This function calls `po-edit-msgstr' and `po-subedit-ediff'; for more info
read `po-subedit-ediff' documentation.
(defalias 'po-edit-comment-and-ediff #[nil "\300 \210\301 \207" [po-edit-comment po-subedit-ediff] 1 (#$ . 59730) nil])
#@48 Use another window to edit the current msgstr.
(defalias 'po-edit-msgstr #[nil "\302 \210\303\203	\304=\203\305\306!\202\307\306!\310\311#\207" [po-auto-edit-with-msgid po-entry-type po-find-span-of-entry po-edit-string untranslated po-get-msgid nil po-get-msgstr msgstr t] 4 (#$ . 60022) nil])
#@155 Use `ediff' to edit the current msgstr.
This function calls `po-edit-msgstr' and `po-subedit-ediff'; for more info
read `po-subedit-ediff' documentation.
(defalias 'po-edit-msgstr-and-ediff #[nil "\300 \210\301 \207" [po-edit-msgstr po-subedit-ediff] 1 (#$ . 60331) nil])
#@144 Normalize old gettext style fields using K&R C multiline string syntax.
To minibuffer messages sent while normalizing, add the EXPLAIN string.
(defalias 'po-normalize-old-style #[(explain) "\305 \306eb\210\307\310\n\f#\210\311\312\313\314#\2032\n\315\246\306U\203&\307\310\n\f#\210\316\317\314\313#\210\nT\202b\210\307\320\n\"+\207" [po-read-only buffer-read-only counter here explain point-marker 0 message "Normalizing %d, %s" re-search-forward "\\(^#?[ 	]*msg\\(id\\|str\\)[ 	]*\"\\|[^\" 	][ 	]*\\)\\\\\n" nil t 10 replace-match "\\1\"\n\"" "Normalizing %d...done"] 4 (#$ . 60610)])
#@149 Normalize FIELD of all entries.  FIELD is either the symbol msgid or msgstr.
To minibuffer messages sent while normalizing, add the EXPLAIN string.
(defalias 'po-normalize-field #[(field explain) "\306 \307eb\210\310\n\311\312#\203I\313\246\307U\203\314\315#\210\307\224b\210\316 \210\f\317=\2034\320\321\311!!\210\202@\f\322=\203@\323\324\311!!\210
b\210T\202	b\210\314\325\"*\207" [counter here po-any-msgstr-regexp explain field po-end-of-entry point-marker 0 re-search-forward nil t 10 message "Normalizing %d, %s" po-find-span-of-entry msgid po-set-msgid po-get-msgid msgstr po-set-msgstr po-get-msgstr "Normalizing %d...done"] 4 (#$ . 61213)])
(defalias 'po-normalise #[nil "\300 \207" [po-normalize] 1])
(put 'po-normalise 'byte-optimizer 'byte-compile-inline-expand)
#@39 Normalize all entries in the PO file.
(defalias 'po-normalize #[nil "\303\304!\210\305\306\307\"\210\305\310\311\"\210dU\204	\312d\"\210)\313\310!\207" [po-end-of-entry po-read-only buffer-read-only po-normalize-old-style "pass 1/3" po-normalize-field t "pass 2/3" nil "pass 3/3" kill-region po-compute-counters] 4 (#$ . 62010) nil])
#@54 Echo the current auxiliary list in the message area.
(defalias 'po-show-auxiliary-list #[nil "\203=	\304\211\203\n\211\205\305@@QA\211\204\f\211	=\2048\n\211\205,\305@@QA\211\202!\306\n!*\207\306\307!\207" [po-auxiliary-list po-auxiliary-cursor string cursor nil " " message "No auxiliary files."] 4 (#$ . 62355)])
#@57 Add the current PO file to the list of auxiliary files.
(defalias 'po-consider-as-auxiliary #[nil "C	\235\204	CC\244\n\204	\303 \207" [buffer-file-name po-auxiliary-list po-auxiliary-cursor po-show-auxiliary-list] 2 (#$ . 62698) nil])
#@62 Delete the current PO file from the list of auxiliary files.
(defalias 'po-ignore-as-auxiliary #[nil "\303C	\"\211\304 \207" [buffer-file-name po-auxiliary-list po-auxiliary-cursor delete po-show-auxiliary-list] 4 (#$ . 62947) nil])
#@339 Search a PO file NAME for a 'msgid' STRING having a non-empty 'msgstr'.
STRING is the full quoted msgid field, including the 'msgid' keyword.  When
found, display the file over the current window, with the 'msgstr' field
possibly highlighted, the cursor at start of msgid, then return 't'.
Otherwise, move nothing, and just return 'nil'.
(defalias 'po-seek-equivalent-translation #[(name string) "p\306!	q\210`\307eb\210\2045\310
\307\311#\2035\312\313!\203\314 \210{\315\230\204\311\211\203\203o\316	!\210\314 \210\203hb\210\317\307\311#\210\320\225S\320\224b\210\317\321\307\311#\210\322`#\210)b\210\202x\fb\210\314 \210\nq\210,\207" [name buffer current found start string find-file-noselect nil search-forward t looking-at "^msgstr " po-find-span-of-entry "msgstr \"\"\n" switch-to-buffer re-search-forward 0 "msgstr +" po-highlight po-start-of-msgstr po-end-of-entry po-highlighting po-start-of-entry po-any-msgstr-regexp end po-marking-overlay po-start-of-msgid] 5 (#$ . 63190)])
#@67 Select the next auxiliary file having an entry with same 'msgid'.
(defalias 'po-cycle-auxiliary #[nil "\306 \210\205t	\n{\307\211\f

\204=\f\203=\f@@\f\230\2045\310\f
\"\2035\311\f\fA\f\202\f
\204j\f\203j\f@@\f\230\204b\310\f
\"\203b\311\f\fA\f\202@
\204r\312\313!\210
,\207" [po-auxiliary-list po-start-of-msgid po-start-of-msgstr po-auxiliary-cursor name found po-find-span-of-entry nil po-seek-equivalent-translation t message "No other translation found" cursor string buffer-file-name] 4 (#$ . 64220) nil])
#@61 Cycle auxiliary file, but from the translation edit buffer.
(defalias 'po-subedit-cycle-auxiliary #[nil "@\304	!p\305\n!\210\306 \210\305!+\207" [po-subedit-back-pointer entry-marker entry-buffer buffer marker-buffer pop-to-buffer po-cycle-auxiliary] 2 (#$ . 64781) nil])
#@180 Select one of the available auxiliary files and locate an equivalent entry.
If an entry having the same 'msgid' cannot be found, merely select the file
without moving its cursor.
(defalias 'po-select-auxiliary #[nil "\305 \210\205$	\n{\306\307\310\311\312$\"@\313 \210\314\f\"\206#\315!*\207" [po-auxiliary-list po-start-of-msgid po-start-of-msgstr name string po-find-span-of-entry assoc completing-read "Which auxiliary file? " nil t po-consider-as-auxiliary po-seek-equivalent-translation find-file] 7 (#$ . 65065) nil])
#@58 Echo the current source search path in the message area.
(defalias 'po-show-source-path #[nil "\203#\303\211\203	\211\205\304\n@@Q\nA\211\204\f\305	!*\207\305\306!\207" [po-search-path string cursor nil " " message "Empty source path."] 4 (#$ . 65604)])
#@76 Add a given DIRECTORY, requested interactively, to the source search path.
(defalias 'po-consider-source-path #[(directory) "\303\304\"\203\202\305PC	B\306\307 \207" [directory po-search-path po-reference-check string-match "/$" "/" 0 po-show-source-path] 3 (#$ . 65876) "DDirectory for search path: "])
#@76 Delete a directory, selected with completion, from the source search path.
(defalias 'po-ignore-source-path #[nil "\302\303\304\305\306$C\"\307\310 \207" [po-search-path po-reference-check delete completing-read "Directory to remove? " nil t 0 po-show-source-path] 6 (#$ . 66195) nil])
#@72 Extract all references into a list, with paths resolved, if necessary.
(defalias 'po-ensure-source-references #[nil "\306 \210	U?\205\204\307\212b\210\310\311\312#\203z\307\211\211\211\211\313\314!\203y\315\225b\210\316\317!\316\320!\321\230\204a\322
@@P\211!\204Z
\203Z
A\202C
\205_\f\203%\323Q\324!E\nB\202%-)\n\237\211\211\207" [po-start-of-entry po-reference-check po-reference-alist po-start-of-msgid file path po-find-span-of-entry nil re-search-forward "^#:" t looking-at "\\(\n#:\\)? *\\([^: ]*\\):\\([0-9]+\\)" 0 po-match-string 2 3 "" file-exists-p ":" string-to-number line name current po-search-path po-reference-cursor] 6 (#$ . 66491)])
#@70 Show the source context given a TRIPLET which is (PROMPT FILE LINE).
(defalias 'po-show-source-context #[(triplet) "\306A@!\210\307AA@!\210\310\311!\210\312\313	\n@=\204'\fT\nA\202\fT\n\n\203:\fT\nA\211\2040\314\315\f@$+\207" [triplet po-reference-alist cursor position maximum po-reference-cursor find-file-other-window goto-line other-window 1 0 nil message "Displaying %d/%d: \"%s\""] 6 (#$ . 67201)])
#@124 Display some source context for the current entry.
If the command is repeated many times in a row, cycle through contexts.
(defalias 'po-cycle-source-reference #[nil "\303 \210\203\304	\305=\203A\206\n\202@!\207\306\307!\207" [po-reference-cursor last-command po-reference-alist po-ensure-source-references po-show-source-context po-cycle-source-reference error "No resolved source references"] 3 (#$ . 67632) nil])
#@68 Select one of the available source contexts for the current entry.
(defalias 'po-select-source-reference #[nil "\301 \210\203\302\303\304\305\306\307$\"!\207\310\311!\207" [po-reference-alist po-ensure-source-references po-show-source-context assoc completing-read "Which source context? " nil t error "No resolved source references"] 7 (#$ . 68065) nil])
#@195 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.
(defalias 'po-tags-search #[(restart) "\306\307!\210\203\f\310	!\210\311p\312!\210\204+@\313=\203+\314\311!\210\2025\315\316\314\317!\210\320\321
!!\210*\n\205\217\322  !\320\321 !!\210b\210\323!\204f\324\325!\210\323!\203tb\210\202|b\210\324\326!\210\320!!\210\205\216\327	 $,\207" [po-highlighting po-marking-overlay po-string-contents po-keywords po-current-po-keywords po-current-po-buffer require etags po-dehighlight nil pop-to-buffer po-tags-loop-operate tags-loop-continue (po-tags-loop-scan) (po-tags-loop-operate) t select-window get-buffer-window selected-window pos-visible-in-window-p recenter (nil) -1 po-highlight po-string-buffer restart tags-loop-operate tags-loop-scan po-string-start po-string-end end start buffer window] 5 (#$ . 68433) "P"])
#@72 Decide if the current buffer is still interesting for PO mode strings.
(defalias 'po-tags-loop-scan #[nil "m?\207" [] 1 (#$ . 69450)])
#@138 Find an acceptable tag in the current buffer, according to mode.
Disregard some simple strings which are most probably non-translatable.
(defalias 'po-tags-loop-operate #[nil "\306 \210\307\310	\203f\n!\211\203`\311\312!r\fq\210\313\216@c\210eb\210\314\315\310\307#\2031\310\202\\\314\316\310\307#\203\\\317 eb\210\314\320\310\307#\203P\321\322\307\211#\210\202?\317 \323_
W\203[\310)+\202\310\211\204\203\210p\212q\210@A@\3238*\202\213db\210*?\207" [data continue po-find-string-function po-current-po-keywords #1=#:temp-buffer total po-preset-string-functions t nil generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) 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 buffer po-current-po-buffer po-string-contents po-string-buffer po-string-start po-string-end] 5 (#$ . 69592)])
#@75 Mark last found string in program sources as translatable, using KEYWORD.
(defalias 'po-mark-found-string #[(keyword) "\204\306\307!\210	\203\310\n!\210\f
\311\211\212q\210\312e\"#\210)db\210\313\314\315\316!#\261\210\212\317\320\311#\321\261\210)T\322 \210)\311\211.\207" [po-string-contents po-highlighting po-marking-overlay po-string-buffer po-string-start po-string-end error "No such string" po-dehighlight nil count-lines "\n" format "#: %s:%d\n" buffer-file-name po-eval-requoted "msgid" "msgstr \"\"\n" po-update-mode-line-string string line end start buffer contents po-mark-string-function keyword po-read-only buffer-read-only po-untranslated-counter] 6 (#$ . 70538)])
#@71 Mark last found string in program sources as translatable, using '_'.
(defalias 'po-mark-translatable #[nil "\300\301!\207" [po-mark-found-string "_"] 2 (#$ . 71275) nil])
#@221 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.
(defalias 'po-select-mark-and-mark #[(arg) "\203\305\306!C\211\307	\n\"B\211)\207\204\310\311!\210\n@@\312\313\314\f\"\n\315\316$\211\317\230\2031\f\320	!*\207" [arg keyword po-keywords po-string-contents default read-from-minibuffer "Keyword: " delete error "No such string" completing-read format "Mark with keywoard? [%s] " nil t "" po-mark-found-string] 6 (#$ . 71454) "P"])
#@151 Preset FIND-STRING-FUNCTION and MARK-STRING-FUNCTION according to mode.
These variables are locally set in source buffer only when not already bound.
(defalias 'po-preset-string-functions #[nil "\305\230\203\n\306\2029\307\235\203\310\2029\311\230\203\312\2029\313\230\203(\314\2029\315\230\2038	\316\230\2038\317\2029\320\321\303!\204G\322\303!\210\n@\321\304!\206U\322\304!\210\nA\211)\207" [mode-name mode-line-process pair po-find-string-function po-mark-string-function "AWK" (po-find-awk-string . po-mark-awk-string) ("C" "C++") (po-find-c-string . po-mark-c-string) "Emacs-Lisp" (po-find-emacs-lisp-string . po-mark-emacs-lisp-string) "Python" (po-find-python-string . po-mark-python-string) "Shell-script" "[bash]" (po-find-bash-string . po-mark-bash-string) (po-find-unknown-string . po-mark-unknown-string) boundp make-local-variable] 2 (#$ . 72072)])
#@62 Dummy function to skip over a file, finding no string in it.
(defalias 'po-find-unknown-string #[(keywords) "\300\207" [nil] 1 (#$ . 72963)])
#@60 Dummy function to mark a given string.  May not be called.
(defalias 'po-mark-unknown-string #[(start end keyword) "\300\301!\207" [error "Dummy function called"] 3 (#$ . 73111)])
#@142 Find the next Awk string, excluding those marked by any of KEYWORDS.
Return (CONTENTS START END) for the found string, or nil if none found.
(defalias 'po-find-awk-string #[(keywords) "\304\211	\204\227\305\306\304\307#\203\227h\310U\203$\311\312\304\307#\204db\210\202h\313U\203Fg\313U\204@\314\304w\210g\315U\203*\316u\210\202*\317u\210\202`Sg\320U\204_\321\304w\210g\315U\203I\316u\210\202I\317u\210`\212	b\210h\322U\203u\304\211\202\223h\323U\203\223\324u\210`\325\304x\210\326`\n\"C\235\203\222\304\211))\202	\205\247\205\247\327p	#	E*\207" [end start end-keyword keywords nil re-search-forward "[#/\"]" t 35 search-forward "\n" 47 "^/\\\\" 92 2 1 34 "^\"\\\\" 95 40 -1 "_A-Za-z0-9" po-buffer-substring po-extract-unquoted] 5 (#$ . 73298)])
#@88 Mark the Awk string, from START to END, with KEYWORD.
Leave point after marked string.
(defalias 'po-mark-awk-string #[(start end keyword) "\303\230\203	b\210\303c\210\nTb\207\nb\210\304c\210\212	b\210\305\261)\207" [keyword start end "_" ")" "("] 2 (#$ . 74087)])
#@139 Find the next unmarked Bash string.  KEYWORDS are merely ignored.
Return (CONTENTS START END) for the found string, or nil if none found.
(defalias 'po-find-bash-string #[(keywords) "\302\211	\204v\303\304\302\305#\203vh\306U\203$\307\310\302\305#\204db\210\202h\311U\203Fg\311U\204@\312\302w\210g\313U\203*\314u\210\202*\315u\210\202`Sg\316U\204_\317\302w\210g\313U\203I\314u\210\202I\315u\210`\212	b\210h\320U\203r\302\211)\202	\205\206\205\206\321p	#	E*\207" [end start nil re-search-forward "[#'\"]" t 35 search-forward "\n" 39 "^'\\\\" 92 2 1 34 "^\"\\\\" 36 po-extract-unquoted] 5 (#$ . 74364)])
#@106 Mark the Bash string, from START to END, with '$'.  KEYWORD is ignored.
Leave point after marked string.
(defalias 'po-mark-bash-string #[(start end keyword) "b\210\302c\210	Tb\207" [start end "$"] 1 (#$ . 75003)])
#@141 Find the next C string, excluding those marked by any of KEYWORDS.
Returns (CONTENTS START END) for the found string, or nil if none found.
(defalias 'po-find-c-string #[(keywords) "\304\211	\204\306\305\306\304\307#\203\306h\310U\203\311\312!\210\202h\313U\203,\304\210\314u\210\202h\315U\203Bg\316U\203<\317\202=\320u\210\202\212\321 \210\322\323!)\203S\304\210\202`S\304\204\213g\324U\203x\322\325!\203o\326\225b\210\202X\314u\210`\211\202Yg\316U\203\204\320u\210\202X\327\304w\210\202X	b\210\330\304x\210h\331U\203\300\332u\210\330\304x\210`\333\304x\210\334`\n\"C\235\203\271b\210\304\211\202\274b\210)\202b\210\202	\205\326\205\326\335p	#	E*\207" [end start end-keyword keywords nil re-search-forward "\\([\"']\\|/\\*\\|//\\)" t 42 search-forward "*/" 47 1 39 92 3 2 beginning-of-line looking-at "^# *\\(include\\|line\\)" 34 "\"[ 	\n\\\\]*\"" 0 "^\"\\\\" " \n	" 40 -1 "_A-Za-z0-9" po-buffer-substring po-extract-unquoted] 5 (#$ . 75226)])
#@86 Mark the C string, from START to END, with KEYWORD.
Leave point after marked string.
(defalias 'po-mark-c-string #[(start end keyword) "b\210\303c\210\212	b\210\nc\210\n\304\230\204\305c\210\306c)\207" [end start keyword ")" "_" " " "("] 2 (#$ . 76230)])
#@150 Find the next Emacs LISP string, excluding those marked by any of KEYWORDS.
Returns (CONTENTS START END) for the found string, or nil if none found.
(defalias 'po-find-emacs-lisp-string #[(keywords) "\304\211	\204y\305\306\304\307#\203yh\310U\203\311\312!\210\202h\313U\2033g\314U\203-\315\202.\316u\210\202`Sg\317U\204L\320\304w\210g\314U\2036\315u\210\2026\316u\210`	b\210\321\304x\210`\322\304x\210h\323U\203u\324`\n\"C\235\203ub\210\304\211)\202	\205\211\205\211\325p	#	E*\207" [end start end-keyword keywords nil re-search-forward "[;\"?]" t 59 search-forward "\n" 63 92 2 1 34 "^\"\\\\" " \n	" "-_A-Za-z0-9" 40 po-buffer-substring po-extract-unquoted] 5 (#$ . 76495)])
#@95 Mark the Emacs LISP string, from START to END, with KEYWORD.
Leave point after marked string.
(defalias 'po-mark-emacs-lisp-string #[(start end keyword) "b\210\303c\210\212	b\210\304\n\261\210\n\305\230\206\306c)\207" [end start keyword ")" "(" "_" " "] 2 (#$ . 77208)])
#@221 Find the next Python string, excluding those marked by any of KEYWORDS.
Also disregard strings when preceded by an empty string of the other type.
Returns (CONTENTS START END) for the found string, or nil if none found.
(defalias 'po-find-python-string #[(keywords) "\305\211\211\n\204\202\306\307\305\310#\203\202\311u\210g\312U\203\"\313\314!\210\202\315\316!\203.\317 \210\202\315\320!\203:\317 \210\202h\321>\203C\311u\210`\317 `	b\210\322\305x\210h\323U\203\\\305\202|h\324U\203|\311u\210\322\305x\210`\325\305x\210\326`\"C\f\235\203{\305)b\210\202\n\205\212\n	E+\207" [end start contents end-keyword keywords nil re-search-forward "[#\"']" t -1 35 search-forward "\n" looking-at "\"\"'" po-skip-over-python-string "''\"" (114 82) " \n	" 91 40 "_A-Za-z0-9" po-buffer-substring] 4 (#$ . 77490)])
#@141 Skip over a Python string, possibly made up of many concatenated parts.
Leave point after string.  Return unquoted overall string contents.
(defalias 'po-skip-over-python-string #[nil "\306\307\310\211\211\211
\203\376\311\310w\210g\312U\203#\310\313\314!\210\202\345\315\316!\2031\310\317u\210\202\345\315\320!\203Ng\321>\322\225\211b\210\313\323!\210`\211\324Z\202\345\315\325!\203kg\326>\322\225\211b\210\313\327!\210`\211\324Z\202\345\315\330!\203\246g\331>\322\225\211b\210g\332>\204\221\333\310w\210g\334U\203{\317u\210\202{m\203\234\310\211\202\241`\335u\210`\202\345\315\336!\203\341g\337>\322\225\211b\210g\340>\204\314\341\310w\210g\334U\203\266\317u\210\202\266m\203\327\310\211\202\334`\335u\210`\202\345\310\211\n\203\f\f\203\364\n	{\202\371\342p\n	#P\202\fb\210\f.\207" [resume end start raw contents continue t "" nil " 	\n" 35 search-forward "\n" looking-at "\\\n" 2 "[rR]?\"\"\"" (114 82) 0 "\"\"\"" 3 "[rr]?'''" (114 82) "'''" "[rR]?\"" (114 82) (0 34) "^\"\\\\" 92 1 "[rR]?'" (114 82) (0 39) "^'\\\\" po-extract-part-unquoted] 7 (#$ . 78328)])
#@168 Mark the Python string, from START to END, with KEYWORD.
If KEYWORD is '.', prefix the string with an empty string of the other type.
Leave point after marked string.
(defalias 'po-mark-python-string #[(start end keyword) "\303\230\203%	b\210\212\nb\210g\304U\203\305\202\"g\306U\203!\307\202\"\310c)\207	b\210\311c\210\212\nb\210\312\261)\207" [keyword end start "." 39 "\"\"" 34 "''" "??" ")" "("] 2 (#$ . 79459)])
#@37 Provide an help window for PO mode.
(defalias 'po-help #[nil "\302\303!rq\210\304\216	c\210eb\210\305\213+\207" [#1=#:temp-buffer po-help-display-string generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) ((byte-code "\300p!\210\301 \210\302\303!\210\304 \207" [switch-to-buffer delete-other-windows message "Type any character to continue" po-read-event] 3))] 2 (#$ . 79891) nil])
#@38 Undo the last change to the PO file.
(defalias 'po-undo #[nil "\302 \210)\303\304!\207" [po-read-only buffer-read-only undo po-compute-counters nil] 2 (#$ . 80339) nil])
#@66 Say how many entries in each category, and the current position.
(defalias 'po-statistics #[nil "\300\301!\207" [po-compute-counters t] 2 (#$ . 80517) nil])
#@59 Use 'msgfmt' for validating the current PO file contents.
(defalias 'po-validate #[nil "\306\300!\203\n\202	\307>\203\310\202\311\312\f\313\n\314
\260\315 \210\316!+\207" [null-device system-type dev-null compilation-buffer-name-function po-msgfmt-program buffer-file-name boundp (windows-nt windows-95) "NUL" "/dev/null" #[(mode-name) "\301\302Q\207" [mode-name "*" " validation*"] 3] " --statistics -c -v -o " " " po-msgfmt-version-check compile compile-command] 5 (#$ . 80680) nil])
(byte-code "\301B\302\301!\204\303\301\304\"\210\304\207" [current-load-list po-msgfmt-version-checked default-boundp set-default nil] 3)
#@59 'msgfmt' from GNU gettext 0.10.36 or greater is required.
(defalias 'po-msgfmt-version-check #[nil "\302\303!rq\210\304\216	\206P\305\306\307\217\203Meb\210\310\311!\204*\310\312!\204*\310\313!\203M\314\315\316\314\317\320!!\314\317\321!!\314\317\322!\206?\323!$!\324Y\203M\325\211\206P\326\327!+\207" [#1=#:temp-buffer po-msgfmt-version-checked generate-new-buffer " *temp*" ((byte-code "\301!\203\n\302!\210\301\207" [#1# buffer-name kill-buffer] 2)) nil (byte-code "\301\302\303\302\304\305&\207" [po-msgfmt-program call-process nil t "--verbose" "--version"] 7) ((file-error)) looking-at ".* \\([0-9]+\\)\\.\\([0-9]+\\)$" ".* \\([0-9]+\\)\\.\\([0-9]+\\)\\.\\([0-9]+\\)$" ".* \\([0-9]+\\)\\.\\([0-9]+\\)[-_A-Za-z0-9]+$" string-to-number format "%d%03d%03d" match-string 1 2 3 "0" 10036 t error "'msgfmt' from GNU gettext 0.10.36 or greater is required"] 8 (#$ . 81330)])
#@70 Return the ideal file name for this PO file in the central archives.
(defalias 'po-guess-archive-name #[nil "\306!\307\211\211\211\211#\212eb\210\310$!\210\311\224\311\225
b\210\310\312\f\313#\2031\314\315!\314\316!\203E\317\230\204E\n\203E\n\320\230\203I\321\322!\210\323\324#\"\204q\323\325!\326P#\"\203q\n\314\327#\"\232\204q\321\330\314\327#\"\n#\210%;\203}%\202\256
b\210\310\331\f\313#\203\256\314\327!\211&\203\255\332&%\"\211'\203\244'A\202\254\333\334\335&\"!))	\203\270	\336\230\203\274\321\337!\210\340\n\341	\342\260.\207" [buffer-file-name team version package end-of-header start-of-header file-name-nondirectory nil re-search-forward 0 "\n\"Project-Id-Version: \\(GNU \\|Free \\)?\\([^\n ]+\\) \\([^\n ]+\\)\\\\n\"$" t po-match-string 2 3 "PACKAGE" "VERSION" error "Project-Id-Version field does not have a proper value" string-match "^[^\\.]*\\.po\\'" regexp-quote "-\\(.*\\)\\.[^\\.]*\\.po\\'" 1 "Version mismatch: file name: %s; header: %s.\nAdjust Project-Id-Version field to match file name and try again" "\n\"Language-Team: \\([^ ].*[^ ]\\) <.+@.+>\\\\n\"$" assoc read-string format "Team name '%s' unknown.  What is the team code? " "LL" "Language-Team field does not have a proper value" "-" "." ".po" filename po-any-msgstr-regexp po-team-name-to-code name pair] 7 (#$ . 82226)])
#@50 Return the team address related to this PO file.
(defalias 'po-guess-team-address #[nil "\302\212eb\210\303	!\210\304\224b\210\303\305\304\225\306#\203\307\310!\203%\311\230\203)\312\313!\210\307\314!*\207" [team po-any-msgstr-regexp nil re-search-forward 0 "\n\"Language-Team: +\\(.*<\\(.*\\)@.*>\\)\\\\n\"$" t po-match-string 2 "LL" error "Language-Team field does not have a proper value" 1] 4 (#$ . 83586)])
#@67 Start composing a letter, possibly including the current PO file.
(defalias 'po-send-mail #[nil "\306\307!\211\203
\310 \202	\306\311!\204\n\312\313!\"\210\202\247\314 \203(\315\316!\210\306\317!\203\247\320\f!\204=\306\321\322\f\"!\203\247\320
!\204L\306\321\323
\"!\203\247\320%!\204]\306\321\324%\"!\203\247p\325 \326&\211'()*+\n\203z\312\313!\202\201\321\327,*#\"\210eb\210\330\331\332-!\333Q!\210\212\334+!\210\335\336 \337 .\340*\341R\342$\210.*\343\344!\207" [team-flag po-translation-project-address address po-compose-mail-function po-untranslated-counter po-fuzzy-counter y-or-n-p "Write to your team?  ('n' if writing to the Translation Project robot) " po-guess-team-address "Include current PO file in mail? " read-string "Subject? " buffer-modified-p error "The file is not even saved, you did not validate it." "You validated ('V') this file, didn't you? " zerop format "%d entries are untranslated, include anyway? " "%d entries are still fuzzy, include anyway? " "%d entries are obsolete, include anyway? " po-guess-archive-name nil "%s %s" re-search-forward "^" regexp-quote "\n" insert-buffer shell-command-on-region region-beginning region-end " " ".gz" t message "" po-obsolete-counter buffer-file-coding-system coding-system-for-write coding-system-for-read transient-mark-mode name buffer po-translation-project-mail-label mail-header-separator po-gzip-uuencode-command] 8 (#$ . 84012) nil])
#@130 Confirm if quit should be attempted and then, do it.
This is a failsafe.  Confirmation is asked if only the real quit would not.
(defalias 'po-confirm-and-quit #[nil "\303 \205(\304 \204\"\305V\204\"	\305V\204\"\n\305V\204\"\306\307!\203%\310 \210\311\312!\207" [po-untranslated-counter po-fuzzy-counter po-obsolete-counter po-check-all-pending-edits buffer-modified-p 0 y-or-n-p "Really quit editing this PO file? " po-quit message ""] 3 (#$ . 85470) nil])
#@129 Save the PO file and kill buffer.
However, offer validation if appropriate and ask confirmation if untranslated
strings remain.
(defalias 'po-quit #[nil "\304 \205K\305\306 \203\307\310!\204\311\312!\210\313 \210\314\203<	\315V\2041\n\315V\2041\315V\203<\307\316!\204<\314\317 \210\311\312!\210\205J\320 \210\321p!)\207" [quit po-untranslated-counter po-fuzzy-counter po-obsolete-counter po-check-all-pending-edits t buffer-modified-p y-or-n-p "File was modified; skip validation step? " message "" po-validate nil 0 "Unprocessed entries remain; quit anyway? " po-auto-select-entry save-buffer kill-buffer] 3 (#$ . 85942) nil])
(provide 'po-mode)