回答:
多分これはあなたが望むことをしますか?
(defun org-narrow-to-here ()
(interactive)
(org-narrow-to-subtree)
(save-excursion
(org-next-visible-heading 1)
(narrow-to-region (point-min) (point))))
編集:本当に現在の見出しを除外したい場合は、このより複雑なバリアント:
(defun org-narrow-to-here ()
(interactive)
(save-excursion
(narrow-to-region
(progn (unless (org-at-heading-p) (org-next-visible-heading -1))
(forward-line)
(point))
(progn (org-next-visible-heading 1)
(point)))))
progn
場合にエラーをスローするようにコードを2番目の先頭に追加することを検討してください(org-at-heading-p)
。この場合、2つの見出しの間に狭めるテキストはありません。
org-narrow-to-subtree
(Cx ns)は、現在の見出しのみを表示します。ただし、テキストだけでなく、見出し自体も含まれます。多分それはあなたのために大丈夫ですか?
widen
(Cx nw)は、ビューを再び広げます。
例を参照してください:https : //stackoverflow.com/questions/17156595/in-emacs-org-mode-how-to-narrow-display-to-two-subtrees-in-two-separate-files