Make TAB add a " rather than a space at the end of a file name.

diff --git a/sml-proc.el b/sml-proc.el
index f170b8c640c74a5ba86e38b3c146a0fa43415421..cbd2ab9896c81bf74a2c76ec36dbed85bb2a01f9 100644 (file)
--- a/sml-proc.el
+++ b/sml-proc.el
@@ -355,6 +355,9 @@ TAB file name completion, as in shell-mode, etc.."
   (setq comint-prompt-regexp sml-prompt-regexp)
   (sml-mode-variables)
 
+  ;; Make TAB add a " rather than a space at the end of a file name.
+  (set (make-local-variable 'comint-completion-addsuffix) '(?/ . ?\"))
+
   (set (make-local-variable 'font-lock-defaults)
        inferior-sml-font-lock-defaults)
   ;; For sequencing through error messages: