gettext-tools/misc/po-mode.el

106   "*Automatically mark entries fuzzy when being edited."
678 TAB   Remove fuzzy mark   k    K    Kill to        E     Edit out full
685 M-.  Change mark, mark    *M-C  Select, save       x  Exchange current/top
798      ["Remove fuzzy mark" po-unfuzzy
837     ["Prefer keyword" (po-select-mark-and-mark '(nil)) t]
839     ["Mark preferred" po-mark-translatable t]
840     ["Mark with keyword" po-select-mark-and-mark t]
1026     (define-key po-mode-map "\M-," 'po-mark-translatable)
1027     (define-key po-mode-map "\M-." 'po-select-mark-and-mark)
1742       (push-mark)
1948 	(push-mark)
2557 (defvar po-mark-string-function)
2654 (defun po-mark-found-string (keyword)
2668       (apply po-mark-string-function start end keyword nil))
2681 (defun po-mark-translatable ()
2684   (po-mark-found-string "_"))
2686 (defun po-select-mark-and-mark (arg)
2700       (po-mark-found-string keyword))))
2709 		     '(po-find-awk-string . po-mark-awk-string))
2711 		     '(po-find-c-string . po-mark-c-string))
2713 		     '(po-find-emacs-lisp-string . po-mark-emacs-lisp-string))
2715 		     '(po-find-python-string . po-mark-python-string))
2718 		     '(po-find-bash-string . po-mark-bash-string))
2719 		    (t '(po-find-unknown-string . po-mark-unknown-string)))))
2722     (or (boundp 'po-mark-string-function)
2723 	(set (make-local-variable 'po-mark-string-function) (cdr pair)))))
2729 (defun po-mark-unknown-string (start end keyword)
2730   "Dummy function to mark a given string.  May not be called."
2780 (defun po-mark-awk-string (start end keyword)
2830 (defun po-mark-bash-string (start end keyword)
2915 (defun po-mark-c-string (start end keyword)
2966 (defun po-mark-emacs-lisp-string (start end keyword)
3089 (defun po-mark-python-string (start end keyword)
3284 		(transient-mark-mode nil)