fix trivial issues #4

Merged
conao3 merged 6 commits from feature into master 2020-02-11 00:21:40 +00:00
Showing only changes of commit 2153d8ec20 - Show all commits

View file

@ -130,9 +130,12 @@ Further details can be found in the =style(1)= man page.\n"
(defun smog--style-installed-p () (defun smog--style-installed-p ()
"Is the style command installed?" "Is the style command installed?"
(let ((program "style"))
(unless (executable-find program)
(message "The program 'style' isn't installed or can't be found."))
(eq 0 (condition-case nil (eq 0 (condition-case nil
(call-process "style") (call-process program)
(error (message "The program 'style' isn't installed or can't be found."))))) (error (message "The program 'style' test run exit abnormally."))))))
;;;###autoload ;;;###autoload
(defun smog-check-buffer () (defun smog-check-buffer ()