<div dir="ltr">Tentou esse?<br><br><code>(add-hook 'after-change-major-mode-hook <br>  (lambda() (electric-indent-mode -1)))</code><br></div><div class="gmail_extra"><br><div class="gmail_quote">On Tue, Feb 10, 2015 at 5:08 PM, Marcelo Laia <span dir="ltr"><<a href="mailto:marcelolaia@gmail.com" target="_blank">marcelolaia@gmail.com</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Uso o Emacs com ESS para rodar meus scripts. No entanto, a partir de<br>
uma atualização do sistema (tive que instalar o Debian do zero), ele<br>
passou a indentar tudo.<br>
<br>
Algo do tipo:<br>
<br>
xyplot(Morte ~ log10(Dose)|Isolado, data = data01)<br>
<br>
Se eu clicar no final da linha acima e der enter, acontece o seguinte:<br>
<br>
               xyplot(Morte ~ log10(Dose)|Isolado, data = data01)<br>
               [local do cursos]<br>
<br>
Ele indenta a linha 14 colunas a frente e o curso vai para logo abaixo<br>
da primeira letra da linha.<br>
<br>
Já inseri os códigos abaixo no meu ~/emacs.d/init.el e nada de resolver.<br>
<br>
(setq-default indent-tabs-mode nil)<br>
(setq auto-indent-assign-indent-level-variables nil)<br>
(setq standard-indent 2)<br>
<br>
(which-func-mode)<br>
(add-to-list 'which-func-modes 'ess-mode)<br>
<br>
(setq-default mode-line-format<br>
 '("L%l C%c %b"<br>
   global-mode-string " (" mode-name minor-mode-alist "%n)"<br>
   (which-func-mode (" " which-func-format ""))))<br>
<br>
(add-hook 'ess-mode-hook<br>
          (lambda ()<br>
            (local-set-key (kbd "RET") 'newline)))<br>
  (setq ess-ask-for-ess-directory nil)<br>
  (setq ess-local-process-name "R")<br>
  (setq ansi-color-for-comint-mode 'filter)<br>
  (setq comint-prompt-read-only t)<br>
  (setq comint-scroll-to-bottom-on-input t)<br>
  (setq comint-scroll-to-bottom-on-output t)<br>
  (setq comint-move-point-for-output t)<br>
<br>
  (defun my-ess-start-R ()<br>
    (interactive)<br>
    (if (not (member "*R*" (mapcar (function buffer-name)<br>
(buffer-list))))<br>
      (progn<br>
        (delete-other-windows)<br>
        (setq w1 (selected-window))<br>
        (setq w1name (buffer-name))<br>
        (setq w2 (split-window w1))<br>
        (R)<br>
        (set-window-buffer w2 "*R*")<br>
        (set-window-buffer w1 w1name))))<br>
<br>
  (defun my-ess-eval ()<br>
    (interactive)<br>
    (my-ess-start-R)<br>
    (if (and transient-mark-mode mark-active)<br>
        (call-interactively 'ess-eval-region)<br>
      (call-interactively 'ess-eval-line-and-step)))<br>
<br>
  (add-hook 'ess-mode-hook<br>
            '(lambda()<br>
               (local-set-key [(shift return)] 'my-ess-eval)))<br>
<br>
  (add-hook 'inferior-ess-mode-hook<br>
            '(lambda()<br>
               (local-set-key [C-up] 'comint-previous-input)<br>
               (local-set-key [C-down] 'comint-next-input)))<br>
  (require 'ess-site)<br>
<br>
<br>
  (add-hook 'ess-mode-hook<br>
            '(lambda ()<br>
               (outline-minor-mode)<br>
               (setq outline-regexp "\\(^#\\{4,5\\}<br>
\\)\\|\\(^[a-zA-Z0-9_\.]+ ?<- ?function(.*{\\)")<br>
               (defun outline-level<br>
                 (lambda () (interactive) (cond ((looking-at "^##### ")<br>
1)((looking-at "^#### ") 2)((looking-at "^[a-zA-Z0-9_\.]+ ?<-<br>
?function(.*{") 3) (t 1000)))<br>
               )))<br>
<br>
Alguma luz?<br>
<span class="HOEnZb"><font color="#888888"><br>
--<br>
Marcelo<br>
_______________________________________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.<br>
</font></span></blockquote></div><br><br clear="all"><br>-- <br><div class="gmail_signature"><div dir="ltr">Diogo Ferrari<div>PhD Student<div>University of Michigan, Ann Arbor<br><div>Department of Political Science<br></div><div>E-mail: <a href="mailto:dferrari@umich.edu" target="_blank">dferrari@umich.edu</a></div><div><br></div><div>Open Source! Use R! Use Linux!</div><div><br></div><div>"A vida é a arte de tirar conclusões suficientes de dados insuficientes"
</div></div></div></div></div>
</div>