Browse Source

Fix bug in the "Cannot find executable" error message

pull/2/head
Damien Cassou 4 years ago
parent
commit
604dcdd584
Signed by untrusted user: DamienCassou GPG Key ID: B68746238E59B548
1 changed files with 4 additions and 4 deletions
  1. +4
    -4
      json-process-client.el

+ 4
- 4
json-process-client.el View File

@ -187,7 +187,7 @@ If DEBUG is non-nil, send all messages to a debug buffer. If
DEBUG is a string, use this as the name for the debug buffer.
ARGS are passed to EXECUTABLE."
(let* ((executable (executable-find executable))
(let* ((executable-path (executable-find executable))
(debug-buffer (when debug
(get-buffer-create
(if (stringp debug)
@ -195,7 +195,7 @@ ARGS are passed to EXECUTABLE."
(format "*json-process-client-%s*" name)))))
(application (json-process-client--application-create
:name name
:executable executable
:executable executable-path
:port port
:args args
:tcp-started-callback tcp-started-callback
@ -204,8 +204,8 @@ ARGS are passed to EXECUTABLE."
:delete-callback delete-callback
:started-regexp started-regexp
:debug-buffer debug-buffer)))
(unless executable
(user-error "Cannot find executable `%s'" executable))
(unless executable-path
(user-error "Cannot find executable \"%s\"" executable))
(when (bufferp debug-buffer)
(with-current-buffer debug-buffer


Loading…
Cancel
Save