Elisp：这是保存游览的预期行为吗？

Question

起始条件是*scratch*中的这段文字：

(
form
30
)

(
   baz
  41
)

空格是这里唯一重要的东西。 现在，在form 中的o 上，使用 M-:(eval-expression) 进行评估 这段代码：

(save-excursion
  (up-list)
  (backward-list)
  (indent-sexp))

给予

(
 form
 30
 )

点在o。 r,m,0,a,z,1 上的点重复相同（预期的）行为。

但是对于f、3、b、4 上的起点，结果点是前一个字符 预期的位置。

这是预期的行为还是错误？ 如果符合预期，我想了解更多有关规则和极端情况的信息。

UPD：添加直观的保存游览变体

以防万一有人想要它， 这是对我来说更直观的行为（即在f、3 等上保存点）：

(defmacro save-excursion-ex (&rest body)
  "More intuitive (`save-excursion' BODY)."
  `(let ((ext (save-match-data
                (looking-back "^\\s-*")))
         (out (save-excursion
                ,@body)))
     (if ext
         (if (or (bolp)
                 (= (point)
                    (save-excursion
                      (back-to-indentation)
                      (point))))
             (back-to-indentation)
           (error "Unexpected")))
     out)) 

Answer 1

在 Emacs 中，该点被认为是“之前”(point)。 因此，当indent-sexp 插入空格时，它会在 点之后插入空格。 例如，当您说该点位于 f 上时，它实际上位于行首 f 之前，indent-sexp 在 after 和 before 插入空格> f.

一般规则是，如果点在行首和行中第一个非空白字符之间，它将在行首结束，否则将保留其相对于周围文本的位置。

这样想：我们将代码缩进

1. 删除所有前导空格
2. 根据需要插入前导空格

所以，答案是：这是预期的行为。

对于您的问题的暗示要点，没有理由依赖缩进后点的特定位置如果该点与已标准化的空白相邻。 如果您需要让代码正常工作，请在缩进调用后添加(goto-char (line-beginning-position))（或等效项），然后跳到您要操作的位置。