gettext-tools/misc/po-mode.el

37 ;;             "Major mode for translators to edit PO files" t)
100 (defcustom po-auto-edit-with-msgid nil
105 (defcustom po-auto-fuzzy-on-edit nil
617 ;; temporary Emacs buffer used to edit the string.  OVERLAY-INFO, when not
619 ;; markers) for this msgid string which became highlighted for the edit.
689 M-s  Select reference     C-c C-a  Select file     *M-l  Add/edit translation
765      ["Edit msgstr" po-edit-msgstr
768      ["Ediff and merge msgstr" po-edit-msgstr-and-ediff
782      ["Edit comment" po-edit-comment
785      ["Ediff and merge comment" po-edit-comment-and-ediff
831      ["Add/edit translation" po-edit-lexicon-entry nil]
854     ["Edit out full" po-edit-out-full
856 	  '(:help "Leave PO mode to edit translation file using fundamental mode"))]
873     ["Abort edit" po-subedit-abort
876     ["Exit edit" po-subedit-exit
878 	 '(:help "Use this text as the translation and close current edit buffer"))])
882   (_"Type 'C-c C-c' once done, or 'C-c C-k' to abort edit")
883   "Message to post in the minibuffer when an edit buffer is displayed.")
977     (define-key po-mode-map "\C-m" 'po-edit-msgstr)
980     (define-key po-mode-map "#" 'po-edit-comment)
1006     (define-key po-mode-map "E" 'po-edit-out-full)
1023     (define-key po-mode-map "\C-c\C-e" 'po-edit-msgstr-and-ediff)
1024     (define-key po-mode-map [?\C-c?\C-#] 'po-edit-comment-and-ediff)
1025     (define-key po-mode-map "\C-c\C-C" 'po-edit-comment-and-ediff)
1029 ;;;;  (define-key po-mode-map "\M-l" 'po-edit-lexicon-entry)
1038   "Major mode for translators when they edit PO files.
1554   "Use another window to edit msgstr reinitialized with msgid."
1892 	      (po-check-for-pending-edit po-start-of-msgid)
1893 	      (po-check-for-pending-edit po-start-of-msgstr))
1995 ;; In a string edit buffer, BACK-POINTER points to one of the slots of the
2002   "From EDITED-FIELDS, clean out any edit having a killed edit buffer."
2014   "Resume any pending edit.  Return nil if some remains."
2025 (defun po-check-for-pending-edit (position)
2026   "Resume any pending edit at POSITION.  Return nil if such edit exists."
2040 (defun po-edit-out-full ()
2044 	   (yes-or-no-p (_"Should I let you edit the whole PO file? ")))
2051   "Quit ediff and exit `recursive-edit'."
2054   (exit-recursive-edit))
2069   (recursive-edit)
2078 `po-subedit-ediff' calls `po-ediff-buffers-exit-recursive' to edit translation
2088 When done with the `ediff' session press \\[exit-recursive-edit] exit to
2089 `recursive-edit', or call \\[po-ediff-quit] (`Q') in the ediff control panel."
2137   (let* ((edit-buffer (current-buffer))
2148       (kill-buffer edit-buffer)
2168 		      po-auto-fuzzy-on-edit
2177 (defun po-edit-string (string type expand-tabs)
2184     (if (po-check-for-pending-edit marker)
2185 	(let ((edit-buffer (generate-new-buffer
2187 	      (edit-coding buffer-file-coding-system)
2202 	  (setq slot (list marker edit-buffer overlay)
2204 	  (pop-to-buffer edit-buffer)
2208 	  (setq buffer-file-coding-system edit-coding)
2224 (defun po-edit-comment ()
2225   "Use another window to edit the current translator comment."
2228   (po-edit-string (po-get-comment nil) 'comment nil))
2230 (defun po-edit-comment-and-ediff ()
2231   "Use `ediff' to edit the current translator comment.
2232 This function calls `po-edit-msgstr' and `po-subedit-ediff'; for more info
2235   (po-edit-comment)
2238 (defun po-edit-msgstr ()
2239   "Use another window to edit the current msgstr."
2242   (po-edit-string (if (and po-auto-edit-with-msgid
2249 (defun po-edit-msgstr-and-ediff ()
2250   "Use `ediff' to edit the current msgstr.
2251 This function calls `po-edit-msgstr' and `po-subedit-ediff'; for more info
2254   (po-edit-msgstr)
2417   "Cycle auxiliary file, but from the translation edit buffer."