41 lines
1.4 KiB
Plaintext
41 lines
1.4 KiB
Plaintext
$OpenBSD: patch-guiserver_newlisp-edit_lsp,v 1.2 2012/12/28 14:48:42 jasper Exp $
|
|
--- guiserver/newlisp-edit.lsp.orig Tue Jul 19 23:32:22 2011
|
|
+++ guiserver/newlisp-edit.lsp Fri Dec 28 15:46:19 2012
|
|
@@ -1,4 +1,4 @@
|
|
-#!/usr/bin/newlisp
|
|
+#!${PREFIX}/bin/newlisp
|
|
|
|
; newlisp-edit.lsp - multiple tab LISP editor and support for running code from the editor
|
|
; needs 9.9.2 version minimum to run
|
|
@@ -155,7 +155,7 @@
|
|
(write-file file (base64-dec text)))
|
|
(if (= ostype "Win32")
|
|
(catch (exec (string {newlisp.exe "} currentScriptFile {" } file " > " (string file "out"))) 'result)
|
|
- (catch (exec (string "/usr/bin/newlisp " currentScriptFile " " file)) 'result)
|
|
+ (catch (exec (string "${PREFIX}/bin/newlisp " currentScriptFile " " file)) 'result)
|
|
)
|
|
(if (list? result)
|
|
(begin
|
|
@@ -223,7 +223,7 @@
|
|
(gs:run-shell 'OutputArea
|
|
(string newlispDir "/newlisp.exe " currentExtension " -C -w \"" $HOME "\""))
|
|
(gs:run-shell 'OutputArea
|
|
- (string "/usr/bin/newlisp " currentExtension " -C -w " $HOME))
|
|
+ (string "${PREFIX}/bin/newlisp " currentExtension " -C -w " $HOME))
|
|
)
|
|
)
|
|
|
|
@@ -1446,11 +1446,7 @@
|
|
; all other UNIX
|
|
(true
|
|
(set 'files '(
|
|
- "/usr/bin/sensible-browser"
|
|
- "/usr/bin/x-www-browser"
|
|
- "/usr/bin/mozilla"
|
|
- "/usr/bin/firefox"
|
|
- "/usr/bin/konqueror"
|
|
+ "${PREFIX}/bin/xdg-open"
|
|
))
|
|
(set 'prog (find true (map file? files)))
|
|
(if prog
|