如何检测该点是否在注释区域内？

如何检测该点是否在注释区域内？

检查返回的列表中的第四个^*值syntax-ppss：

(nth 4 (syntax-ppss))

这是nil如果点任何评论之外，t如果一个非嵌套的注释中，或一个整数（嵌套深度）如果一个嵌套的注释中。有关parse-partial-sexp更多详细信息，请参见文档字符串。

^*从零开始。

请注意，这不适用于组织模式，您应该使用以下命令：

(defun in-comment-p ()
  "Testy if cursor/point in a commented line?"
  (save-excursion
        (if (derived-mode-p 'org-mode)
                (save-match-data (beginning-of-line) (looking-at "^[ \t]*#"))
          (nth 4 (syntax-ppss)))))

使用字体，这是我从flyspell学到的技巧。

我syntax-ppss两年前尝试过，但由于以下两个原因而无法使用：

• 不适用于注释边缘（注释限制），例如，对于// this is commentc ++模式下的注释，如果将光标放在/字符上，则结果(nth 4 (syntax-ppss))为nil。

• 在主要模式（例如网络模式）下根本无法工作

这是我从flyspell复制的代码：

(defun evilnc--in-comment-p (&optional pos)
  "Test if character at POS is comment.  If POS is nil, character at `(point)' is tested"
  (interactive)
  (unless pos (setq pos (point)))
  (let* ((fontfaces (get-text-property pos 'face)))
    (when (not (listp fontfaces))
      (setf fontfaces (list fontfaces)))
    (delq nil
          (mapcar #'(lambda (f)
                      ;; learn this trick from flyspell
                      (or (eq f 'font-lock-comment-face)
                          (eq f 'font-lock-comment-delimiter-face)))
                  fontfaces))))

请注意，可以通过模糊匹配字体来扩展代码以支持新的主要模式。

我已经使用这个技巧大约三年了，没有失败。此外，考虑到复飞已被广泛使用了很长时间，我可以断言这种方法是可靠的。

有关类似问题，请参阅使用哪个键盘快捷键从字符串中导航出来。