view release on metacpan or  search on metacpan

elisp/perl-minlint.el  view on Meta::CPAN

		   ((not (eq rc 0))
		    "Unknown error")
		   (t
		    "lint OK")))))

(defun perl-minlint-set-mode-line-alert (err)
  (cond (err
         (setq perl-minlint-saved-color-cookie
               (mapc (lambda (f)
                         (face-remap-add-relative f
                                                  ':background "orange"))
                       perl-minlint-alert-face)))
        (t
         (when perl-minlint-saved-color-cookie
           (mapc (lambda (ck)
                     (face-remap-remove-relative ck))
                   perl-minlint-saved-color-cookie)
           (setq perl-minlint-saved-color-cookie nil)))))

(defun perl-minlint-run-and-parse-lint-result (buffer)
  (perl-minlint-plist-bind (rc err)