1

是否有测试当前点是否在缩进点的功能?即点是 的可能结果back-to-indentation

4

3 回答 3

2
(defun point-at-indentation-p ()
  (if (= (save-excursion (back-to-indentation) (point)) (point))
      (message "I'm at indentation")
    (message "I'm elsewhere")))

看起来很简单……不知道为什么要这样做。

于 2012-11-09T17:35:20.293 回答
1

The following code will return t if point is at the first non-whitespace character of the current line, and nil otherwise:

(looking-back "^\\s-*")
于 2012-11-09T12:01:17.853 回答
1

我不记得有这样的功能。我会用

(and (looking-at "[^ \t]\\|$")
     (save-excursion (skip-chars-backward " \t") (bolp)))

请注意,使用looking-back有效,但looking-back在算法上效率低下,因此在某些病理情况下它可能会很慢。

于 2012-11-09T14:31:31.200 回答