comparison lisp/progmodes/flymake.el @ 64993:fb2cad4cfb30

* mh-customize.el: Do not use face-alias compatibility for faces that did not appear in the previous Emacs release. * buff-menu.el: * compare-w.el: * emacs-lisp/testcover.el: * play/gomoku.el: * play/mpuz.el: * progmodes/flymake.el: * progmodes/gdb-ui.el: * progmodes/idlw-help.el: * progmodes/idlw-shell.el: * progmodes/ld-script.el: * progmodes/which-func.el: * ruler-mode.el: * strokes.el: * textmodes/sgml-mode.el: * textmodes/table.el: Do not use face-alias for backward compatibility for faces that did not appear in the previous Emacs release.

64992:ca80d536ea6d

  ;;+   '((((class color)) (:underline "OrangeRed"))
  '((((class color)) (:background "LightPink"))
    (t (:bold t)))
  "Face used for marking error lines."
  :group 'flymake)
;; backward-compatibility alias
(put 'flymake-errline-face 'face-alias 'flymake-errline)

(defface flymake-warnline
  '((((class color)) (:background "LightBlue2"))
    (t (:bold t)))
  "Face used for marking warning lines."
  :group 'flymake)
;; backward-compatibility alias
(put 'flymake-warnline-face 'face-alias 'flymake-warnline)

(defun flymake-highlight-line (line-no line-err-info-list)
  "Highlight line LINE-NO in current buffer.
Perhaps use text from LINE-ERR-INFO-LIST to enhance highlighting."
  (goto-line line-no)

64993:fb2cad4cfb30

  ;;+   '((((class color)) (:underline "OrangeRed"))
  '((((class color)) (:background "LightPink"))
    (t (:bold t)))
  "Face used for marking error lines."
  :group 'flymake)

(defface flymake-warnline
  '((((class color)) (:background "LightBlue2"))
    (t (:bold t)))
  "Face used for marking warning lines."
  :group 'flymake)

(defun flymake-highlight-line (line-no line-err-info-list)
  "Highlight line LINE-NO in current buffer.
Perhaps use text from LINE-ERR-INFO-LIST to enhance highlighting."
  (goto-line line-no)