diff options
author | Andrew Innes <[email protected]> | 1999-05-02 09:38:50 +0000 |
---|---|---|
committer | Andrew Innes <[email protected]> | 1999-05-02 09:38:50 +0000 |
commit | 7e3a77161ef2c49d8cd74f82066095cfade73ee9 (patch) | |
tree | 2963a9928c05af27a2c2847366ba4f37867e5376 /lisp/hexl.el | |
parent | e51d4f9c1cb870c3ba84d1fee5bf0c0ba8318354 (diff) |
(hexlify-command): Apply shell-quote-argument after
expanding hexl-program in case exec-directory contains a space.
(dehexlify-command): Ditto.
Diffstat (limited to 'lisp/hexl.el')
-rw-r--r-- | lisp/hexl.el | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/lisp/hexl.el b/lisp/hexl.el index 40096800d0..e4c80c68c7 100644 --- 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) |