gettext-tools/misc/po-mode.el

166 (defcustom po-highlight-face 'highlight
167   "*The face used for PO mode highlighting.  For Emacses with overlays.
170 This variable can be set by the user to whatever face they desire.
173   :type 'face
465 The variable 'po-highlight-face' selects the face to use for highlighting."
467 	(overlay-put overlay 'face po-highlight-face)
468 	;; The fun thing is that a deleted overlay retains its face, and is
496 	(set-extent-face extent po-highlight-face)
595 ;; start of keyword lines are START-OF-MSGID and START-OF-MSGSTR.
837     ["Prefer keyword" (po-select-mark-and-mark '(nil)) t]
840     ["Mark with keyword" po-select-mark-and-mark t]
921 (defvar po-msgstr-idx-keyword-regexp
923   "Regexp matching an indexed msgstr keyword, whether obsolete or not.")
928 ;; Font lock based highlighting code.
929 (defconst po-font-lock-keywords
931     ;; ("^\\(msgid \\|msgstr \\)?\"\\|\"$" . font-lock-keyword-face)
936      . font-lock-keyword-face)
937     ("\\\\.\\|%\\*?[-.0-9ul]*[a-zA-Z]" . font-lock-variable-name-face)
938     ("^# .*\\|^#[:,]?" . font-lock-comment-face)
939     ("^#:\\(.*\\)" 1 font-lock-reference-face)
941     ;;("^#,\\(.*\\)" 1 font-function-name-reference-face)
945 ;; Old activator for 'font lock'.  Is it still useful?  I don't think so.
946 ;;(if (boundp 'font-lock-keywords)
947 ;;    (put 'po-mode 'font-lock-keywords 'po-font-lock-keywords))
956 ;;			       ("^\\(msgid\\|msgstr\\) *\"" nil keyword)
957 ;;			       ("^\"\\|\"$" nil keyword))))
1054   (set (make-local-variable 'font-lock-defaults) '(po-font-lock-keywords t))
1822         (if (re-search-forward po-msgstr-idx-keyword-regexp
2351 STRING is the full quoted msgid field, including the 'msgid' keyword.  When
2654 (defun po-mark-found-string (keyword)
2668       (apply po-mark-string-function start end keyword nil))
2689 keyword for subsequent commands, also added to possible completions."
2692       (let ((keyword (list (read-from-minibuffer (_"Keyword: ")))))
2693 	(setq po-keywords (cons keyword (delete keyword po-keywords))))
2696 	   (keyword (completing-read (format (_"Mark with keywoard? [%s] ")
2699       (if (string-equal keyword "") (setq keyword default))
2700       (po-mark-found-string keyword))))
2729 (defun po-mark-unknown-string (start end keyword)
2759 	       ;; Check before string either for underline, or for keyword
2769 			(let ((end-keyword (point)))
2772 					     (point) end-keyword))
2780 (defun po-mark-awk-string (start end keyword)
2783   (if (string-equal keyword "_")
2792       (insert keyword "("))))
2830 (defun po-mark-bash-string (start end keyword)
2890 	       ;; Check before string for keyword and opening parenthesis.
2897 		     (let ((end-keyword (point)))
2900 							      end-keyword))
2915 (defun po-mark-c-string (start end keyword)
2922     (insert keyword)
2923     (or (string-equal keyword "_") (insert " "))
2948 	       ;; Check before string for keyword and opening parenthesis.
2951 	       (let ((end-keyword (point)))
2955 							     end-keyword))
2966 (defun po-mark-emacs-lisp-string (start end keyword)
2973     (insert "(" keyword)
2974     (or (string-equal keyword "_") (insert " "))))
3009 		    ;; Isolate the keyword which precedes string.
3012 		    (let ((end-keyword (point)))
3015 							     end-keyword))
3089 (defun po-mark-python-string (start end keyword)
3093   (cond ((string-equal keyword ".")
3104 	     (insert keyword "(")))))