Variable: ps-run-font-lock-keywords-2

ps-run-font-lock-keywords-2 is a customizable variable defined in ps-mode.el.gz.

Value

(("^\\(GS\\(<[0-9]+\\)?>\\)+"
  (0 font-lock-function-name-face nil nil))
 (">>showpage, press <return> to continue<<"
  (0 font-lock-keyword-face nil nil))
 ("^\\(Error\\|Can't\\).*"
  (0 font-lock-warning-face nil nil))
 ("^\\(Current file position is\\) \\([0-9]+\\)"
  (1 font-lock-comment-face nil nil)
  (2 font-lock-warning-face nil nil)))

Documentation

Medium level highlighting of messages from the PostScript interpreter.

See documentation on font-lock for details.

Source Code

;; Defined in /usr/src/emacs/lisp/progmodes/ps-mode.el.gz
(defcustom ps-run-font-lock-keywords-2
  (append (unless (string= ps-run-prompt "")
	    (list (list (if (= ?^ (string-to-char ps-run-prompt))
			    ps-run-prompt
			  (concat "^" ps-run-prompt))
			'(0 font-lock-function-name-face nil nil))))
	  '((">>showpage, press <return> to continue<<"
	     (0 font-lock-keyword-face nil nil))
	    ("^\\(Error\\|Can't\\).*"
	     (0 font-lock-warning-face nil nil))
	    ("^\\(Current file position is\\) \\([0-9]+\\)"
	     (1 font-lock-comment-face nil nil)
	     (2 font-lock-warning-face nil nil))))
  "Medium level highlighting of messages from the PostScript interpreter.

See documentation on font-lock for details."
  :group 'PostScript-interaction
  :type '(repeat (list :tag "Expression with one or more highlighters"
		       :value ("" (0 default nil t))
		       (regexp :tag "Expression")
		       (repeat :tag "Highlighters"
			       :inline regexp
			       (list :tag "Highlighter"
				     (integer :tag "Subexp")
				     face
				     (boolean :tag "Override")
				     (boolean :tag "Laxmatch" :value t))))))