gettext-tools/misc/po-mode.el

824      ["Cycle file" po-cycle-auxiliary t]
825      ["Select file" po-select-auxiliary t]
826      ["Consider file" po-consider-as-auxiliary t]
827      ["Ignore file" po-ignore-as-auxiliary t]
871     ["Cycle through auxiliary files" po-subedit-cycle-auxiliary t]
885 (defvar po-auxiliary-list nil
886   "List of auxiliary PO files, in completing read format.")
888 (defvar po-auxiliary-cursor nil
889   "Cursor into the 'po-auxiliary-list'.")
986     (define-key po-mode-map "a" 'po-cycle-auxiliary)
1005     (define-key po-mode-map "A" 'po-consider-as-auxiliary)
1022     (define-key po-mode-map "\C-c\C-a" 'po-select-auxiliary)
1031     (define-key po-mode-map "\M-A" 'po-ignore-as-auxiliary)
1100     (define-key po-subedit-mode-map "\C-c\C-a" 'po-subedit-cycle-auxiliary)
2316 (defun po-show-auxiliary-list ()
2317   "Echo the current auxiliary list in the message area."
2318   (if po-auxiliary-list
2319       (let ((cursor po-auxiliary-cursor)
2324 	(setq cursor po-auxiliary-list)
2325 	(while (not (eq cursor po-auxiliary-cursor))
2329     (message (_"No auxiliary files."))))
2331 (defun po-consider-as-auxiliary ()
2332   "Add the current PO file to the list of auxiliary files."
2334   (if (member (list buffer-file-name) po-auxiliary-list)
2336     (setq po-auxiliary-list
2337 	  (nconc po-auxiliary-list (list (list buffer-file-name))))
2338     (or po-auxiliary-cursor
2339 	(setq po-auxiliary-cursor po-auxiliary-list)))
2340   (po-show-auxiliary-list))
2342 (defun po-ignore-as-auxiliary ()
2343   "Delete the current PO file from the list of auxiliary files."
2345   (setq po-auxiliary-list (delete (list buffer-file-name) po-auxiliary-list)
2346 	po-auxiliary-cursor po-auxiliary-list)
2347   (po-show-auxiliary-list))
2390 (defun po-cycle-auxiliary ()
2391   "Select the next auxiliary file having an entry with same 'msgid'."
2394   (if po-auxiliary-list
2396 	    (cursor po-auxiliary-cursor)
2403 		    po-auxiliary-cursor cursor))
2405 	(setq cursor po-auxiliary-list)
2411 		    po-auxiliary-cursor cursor))
2416 (defun po-subedit-cycle-auxiliary ()
2417   "Cycle auxiliary file, but from the translation edit buffer."
2423     (po-cycle-auxiliary)
2426 (defun po-select-auxiliary ()
2427   "Select one of the available auxiliary files and locate an equivalent entry.
2432   (if po-auxiliary-list
2434 	    (name (car (assoc (completing-read (_"Which auxiliary file? ")
2435 					       po-auxiliary-list nil t)
2436 			      po-auxiliary-list))))
2437 	(po-consider-as-auxiliary)