X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=emacs_el%2Fconfiguration%2Fess_configuration.el;h=7335cd460c975f567968fadc809b5e30117fa0d0;hb=72f81743a4a798e3e84892631aa08229e74de27c;hp=4547c5b99b6a7ea91589688d98b6bddc333a474c;hpb=aa318b94c86321d6389b4275fb335bc98646560d;p=lib.git

diff --git a/emacs_el/configuration/ess_configuration.el b/emacs_el/configuration/ess_configuration.el
index 4547c5b..7335cd4 100644
--- a/emacs_el/configuration/ess_configuration.el
+++ b/emacs_el/configuration/ess_configuration.el
@@ -1,24 +1,12 @@
-(defun ess-change-directory (path)
-  "Set the current working directory to PATH for both *R* and Emacs."
-  (interactive "DDirectory to change to: ")
-
-  (when (file-exists-p path)
-    (ess-command (concat "setwd(\"" path "\")\n"))
-    ;; use file-name-as-directory to ensure it has trailing /
-    (setq default-directory (file-name-as-directory path))))
-(add-hook 'ess-mode-hook 'flyspell-prog-mode)
-;;; outlining support for ess modes
-(add-hook 'ess-mode-hook
-      '(lambda ()
-         (outline-minor-mode)
-         (setq outline-regexp "\\(^#\\{4,5\\} \\)\\|\\(^[a-zA-Z0-9_\.]+ ?<- ?function\\)")
-         (defun outline-level ()
-           (cond ((looking-at "^##### ") 1)
-             ((looking-at "^#### ") 2)
-             ((looking-at "^[a-zA-Z0-9_\.]+ ?<- ?function(.*{") 3)
-             (t 1000)))
-         ))
-(add-hook 'ess-mode-hook
-          '(lambda ()
-             (local-set-key (kbd "C-c C-r")
-                            dla/ess-eval-region)))
+; (eval-after-load "ess"
+;   '(mapcar 'ess-noweb-make-variable-permanent-local
+;            '(ess-noweb-mode
+;              ess-local-process-name ;; also made permanent in ess-mode, but let it be
+;              ess-dialect
+;              ess-language
+;              ess-noweb-narrowing
+;              ess-noweb-chunk-vector
+;              ess-noweb-doc-mode
+;              ess-noweb-code-mode
+;              ess-noweb-default-code-mode
+;              ess-noweb-last-chunk-index)))