(hexlify-command): Apply shell-quote-argument after

expanding hexl-program in case exec-directory contains a space.
(dehexlify-command): Ditto.

diff --git a/lisp/hexl.el b/lisp/hexl.el
index 40096800d0efb529a1b2d06ae25b5ffbe170c4c8..e4c80c68c796e9a25067cb7b49b68f1cea1f2788 100644 (file)
--- a/lisp/hexl.el
+++ b/lisp/hexl.el
@@ -77,13 +77,19 @@ and \"-de\" when dehexlifying a buffer."
   :group 'hexl)
 
 (defcustom hexlify-command
-  (format "%s%s %s" exec-directory hexl-program hexl-options)
+  (format "%s %s"
+         (shell-quote-argument
+          (expand-file-name hexl-program exec-directory))
+         hexl-options)
   "The command to use to hexlify a buffer."
   :type 'string
   :group 'hexl)
 
 (defcustom dehexlify-command
-  (format "%s%s -de %s" exec-directory hexl-program hexl-options)
+  (format "%s -de %s"
+         (shell-quote-argument
+          (expand-file-name hexl-program exec-directory))
+         hexl-options)
   "The command to use to unhexlify a buffer."
   :type 'string
   :group 'hexl)