emacs - 如何测试org-narrow-to-subtree是否生效

Question

我想在一个函数中包含一个限制语句，该函数测试在使用 org-narrow-to-subtree 之后缓冲区是否已经缩小到子树。谁能与我分享如何测试收窄条件是否有效？类似于 narrowp。

---

编辑:我在这里找到了测试:https://raw.github.com/ptrv/org2blog/org-8-support/org2blog.el

问题已解决。

Answer 1

https://raw.github.com/ptrv/org2blog/org-8-support/org2blog.el

(defun narrow-p ()
  "Return t if a buffer is narrowed"
   (not (equal (- (point-max) (point-min)) (buffer-size))))