# HG changeset patch
# User Andrew Innes <andrewi@gnu.org>
# Date 925637930 0
# Node ID 991a19a97565cbc1cd19f7096c5e037833f8d1f1
# Parent  7de5cc79a8b4c80e40bc81420cdff1771d1e604a
(hexlify-command): Apply shell-quote-argument after
expanding hexl-program in case exec-directory contains a space.
(dehexlify-command): Ditto.

diff -r 7de5cc79a8b4 -r 991a19a97565 lisp/hexl.el
--- a/lisp/hexl.el	Sun May 02 09:36:07 1999 +0000
+++ b/lisp/hexl.el	Sun May 02 09:38:50 1999 +0000
@@ -77,13 +77,19 @@
   :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)