From 00afa76c4b0674a33b30ceeb3731508adddc694f Mon Sep 17 00:00:00 2001 From: Hamayama Date: Thu, 30 Aug 2018 21:49:56 +0900 Subject: [PATCH] Fix ros emacs for windows --- lisp/emacs.ros | 7 ++++++- lisp/install-slime.lisp | 5 ++++- 2 files changed, 10 insertions(+), 2 deletions(-) diff --git a/lisp/emacs.ros b/lisp/emacs.ros index 0720b9a..92486f7 100644 --- a/lisp/emacs.ros +++ b/lisp/emacs.ros @@ -31,6 +31,11 @@ exec ros -m roswell -N roswell -- $0 "$@" (mute-error-if-not-verbose (roswell:exec `("emacs" "-l" ,(namestring path) "--eval" - ,(format nil "(setq inferior-lisp-program \"ros -Q ~:[~;~:*-L ~A ~]run\")" (roswell:opt "*lisp")) + ,(format nil + #-win32 + "(setq inferior-lisp-program \"ros -Q ~:[~;~:*-L ~A ~]run\")" + #+win32 + "\"(setq inferior-lisp-program \\\"ros -Q ~:[~;~:*-L ~A ~]run\\\")\"" + (roswell:opt "*lisp")) ,@argv))))) ;;; vim: set ft=lisp lisp: diff --git a/lisp/install-slime.lisp b/lisp/install-slime.lisp index c561a1e..c7ca31c 100644 --- a/lisp/install-slime.lisp +++ b/lisp/install-slime.lisp @@ -82,7 +82,10 @@ (format *error-output* "~{~A~%~}" `(,(format nil "helper.el installed in ~S" (namestring target)) "" "To use, add this to your ~/.emacs:" "" - ,(format nil " (load (expand-file-name ~S))" enough))))) + ,(format nil + " (load (expand-file-name ~S))" + #-win32 enough + #+win32 (namestring target)))))) (defun slime-install (argv) (let ((name (or (getf argv :version) (substitute #\. #\- (ql:dist-version "quicklisp")))))