zzkt/smog
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

separate error message

Browse source
This commit is contained in:
conao3 2020-02-11 04:43:00 +09:00
parent 7a656bb3aa
commit 2153d8ec20
No known key found for this signature in database
GPG key ID: F4B6A5A98EB01936
1 changed files with 6 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
smog.el
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 ()