27.1 的 thing-at-point 边界判断发生变更

刚才跑测试的时候发现不一致,就顺便上网搜索了一下。以前似乎没人抱怨存在问题,直到以下帖子报告,然后就修复了。暂未发现有扩展受此影响。

(with-temp-buffer
  (emacs-lisp-mode)
  (insert "(foo (bar))")
  (goto-char (point-min))
  (down-list 2)
  (up-list 1)
  (thing-at-point 'sexp))
;; => (bar) [28.0]
;;    (bar) [27.1]
;;     nil  [26.1]
;;     nil  [25.1]

联想到我常用 current-word 替代 symbol-at-point 的情况,因为 symbol-at-point 不处理光标在括号上的情况。