如何测试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))))