gettext-tools/misc/po-mode.el

29 ;; This package provides the tools meant to help editing PO files,
667 (defconst po-help-display-string
672 Moving around             f    F    Fuzzy          ?, h  This help
700 	  '(:help "Jump to next interesting entry"))]
705 	  '(:help "Jump to next entry"))]
708 	  '(:help "Jump to next translated entry"))]
711 	  '(:help "Jump to next fuzzy entry"))]
714 	  '(:help "Jump to next obsolete entry"))]
717 	  '(:help "Jump to next untranslated entry"))]
720 	  '(:help "Jump to last entry"))]
725 	  '(:help "Jump to previous entry"))]
728 	  '(:help "Jump to previous translated entry"))]
731 	  '(:help "Jump to previous fuzzy entry"))]
734 	  '(:help "Jump to previous obsolete entry"))]
737 	  '(:help "Jump to previous untranslated entry"))]
740 	  '(:help "Jump to first entry"))]
745 	  '(:help "Remember current location"))]
748 	  '(:help "Jump to last remembered location and forget about it"))]
751 	  '(:help "Jump to last remembered location and remember current location"))]
755 	  '(:help "Make current entry properly visible"))]
758 	  '(:help "Statistical info on current translation file"))])
762 	  '(:help "Revoke last changed entry"))]
767 	  '(:help "Edit current translation"))]
770 	  '(:help "Call `ediff' on current translation for merging"))]
773 	  '(:help "Cut (kill) current translation"))]
776 	  '(:help "Copy current translation"))]
779 	  '(:help "Paste (yank) text most recently cut/copied translation"))]
784 	  '(:help "Edit current comment"))]
787 	  '(:help "Call `ediff' on current comment for merging"))]
790 	  '(:help "Cut (kill) current comment"))]
793 	  '(:help "Copy current translation"))]
796 	  '(:help "Paste (yank) text most recently cut/copied"))]
800 	  '(:help "Remove \"#, fuzzy\""))]
803 	  '(:help "Set current entry fuzzy, or if already fuzzy delete it"))]
806 	  '(:help "\
811 	  '(:help "Select other window; if necessay split current frame"))]
844 	  '(:help "Display version number of PO mode"))]
845     ["Help page" po-help
847 	  '(:help "Show the PO mode help screen"))]
850 	  '(:help "Check validity of current translation file using `msgfmt'"))]
853 	  '(:help "Send current translation file to the Translation Robot by mail"))]
856 	  '(:help "Leave PO mode to edit translation file using fundamental mode"))]
860 	  '(:help "Close (kill) current translation file without saving"))]
863 	  '(:help "Save current translation file, than close (kill) it"))])
870 	  '(:help "Call `ediff' for merging variants"))]
875 	  '(:help "Don't change the translation"))]
878 	 '(:help "Use this text as the translation and close current edit buffer"))])
979     (define-key po-mode-map "?" 'po-help)
989     (define-key po-mode-map "h" 'po-help)
3109 (defun po-help ()
3110   "Provide an help window for PO mode."
3113    (insert po-help-display-string)