修复ESS/Stata中不良的EMACS缩进行为

Question

修复ESS/Stata中不良的EMACS缩进行为

8

在emacs中，ESS / Stata模式错误地缩进跟在运算符结尾的行后面的行。它似乎错误地将这些行解释为多行命令。

例如：

gen foo = 1

/* generate another variable */
  gen bar = 1

“gen bar = 1”这行代码不应该缩进。看起来EMACS将注释中的反斜杠解释为运算符，并认为此行代码跨越了两行。

实际上，Stata中的多行命令有三个反斜杠，没有三个反斜杠的换行表示语句结束。例如，以下缩进是正确的：

gen bar = 1
gen ///
  foo = 1

有没有什么我可以放在我的.emacs文件中来纠正这种行为？我不想完全放弃自动缩进 - 它对除了/* 这样的注释之外的所有内容都非常有效。

谢谢，

Pnj

- pnj

1个回答

网页内容由stack overflow 提供, 点击上面的

可以查看英文原文，
原文链接

- Tyler · Accepted Answer

您说得对，ESS将尾随的/解释为换行符。这是硬编码到函数ess-continued-statement-p中的，所以要修改行为，您必须重写代码。以下代码（在您的.emacs文件中）适用于您的示例。

(eval-after-load 'ess-mode
  '(defun ess-continued-statement-p ()
   "this is modified code"
     (let ((eol (point)))
       (save-excursion
         (cond ((memq (preceding-char) '(nil ?\, ?\; ?\} ?\{ ?\]))
                nil)
               ;; ((bolp))
               ((= (preceding-char) ?\))
                (forward-sexp -2)
                (looking-at "if\\b[ \t]*(\\|function\\b[ \t]*(\\|for\\b[ \t]*(\\|while\\b[ \t]*("))
               ((progn (forward-sexp -1)
                       (and (looking-at "else\\b\\|repeat\\b")
                            (not (looking-at "else\\s_\\|repeat\\s_"))))
                (skip-chars-backward " \t")
                (or (bolp)
                    (= (preceding-char) ?\;)))
               (t
                (progn (goto-char eol)
                       (skip-chars-backward " \t")
                       (or (and (> (current-column) 1)
                                (save-excursion (backward-char 1)

        ;;;; Modified code starts here: ;;;;
                                                (or (looking-at "[-:+*><=]")
                                                    (and (looking-at "/")
                                                         (save-excursion (backward-char 1)
                                                                         (not (looking-at "*")))))))
        ;;;; End of modified code ;;;;

                           (and (> (current-column) 3)
                                (progn (backward-char 3)
                                       (looking-at "%[^ \t]%")))))))))))