From 39eae055ee4acd79aa36651540b9921679024982 Mon Sep 17 00:00:00 2001 From: Don Armstrong Date: Sun, 12 Oct 2008 20:34:40 +0000 Subject: [PATCH 1/1] * switch to perl-style * Add ess-change-directory --- .emacs | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/.emacs b/.emacs index 07281b8..81d71fd 100644 --- a/.emacs +++ b/.emacs @@ -100,7 +100,7 @@ cperl-highlight-variables-indiscriminately t cperl-electric-lbrace-space nil ) -(add-hook 'cperl-mode-hook (lambda () (cperl-set-style "K&R"))) +(add-hook 'cperl-mode-hook (lambda () (cperl-set-style "PerlStyle"))) @@ -231,6 +231,15 @@ ;; If there is more than one, they won't work right. ) +(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)))) + (put 'upcase-region 'disabled nil) (put 'downcase-region 'disabled nil) -- 2.39.2