Christophe
Weblog
Wiki
Code
Publications
Music
projects
/
swankr.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
implement swank:default-directory and swank:set-default-directory
[swankr.git]
/
swank.R
diff --git
a/swank.R
b/swank.R
index 4af51d133e1641891c38bf57a701e86523295d73..5fe20bbefe633d6a9f1c1e0009f11e0cef32c9d6 100644
(file)
--- a/
swank.R
+++ b/
swank.R
@@
-613,3
+613,12
@@
emacsInspect.numeric <- function(numeric) {
object <- get(name, envir=frame)
inspectObject(slimeConnection, object)
}
object <- get(name, envir=frame)
inspectObject(slimeConnection, object)
}
+
+`swank:default-directory` <- function(slimeConnection, sldbState) {
+ getwd()
+}
+
+`swank:set-default-directory` <- function(slimeConnection, sldbState, directory) {
+ setwd(directory)
+ `swank:default-directory`(slimeConnection, sldbState)
+}