forked from mirrors/org-mode
org-fold-show-set-visibility: Do not reveal emphasis unless DETAIL is `local'
* lisp/org-fold.el (org-fold-show-set-visibility--text-properties): Prevent revealing hidden emphasis unless requested DETAIL is `local'. * lisp/ol.el (org-next-link): Honour `org-fold-show-context-detail'. Reported in https://orgmode.org/list/626a0713.1c69fb81.a3583.1a07SMTPIN_ADDED_BROKEN@mx.google.com
This commit is contained in:
parent
a0b8adf08a
commit
782a661921
|
@ -1456,7 +1456,7 @@ is non-nil, move backward."
|
||||||
(`nil nil)
|
(`nil nil)
|
||||||
(link
|
(link
|
||||||
(goto-char (org-element-property :begin link))
|
(goto-char (org-element-property :begin link))
|
||||||
(when (org-invisible-p) (org-fold-show-context))
|
(when (org-invisible-p) (org-fold-show-context 'link-search))
|
||||||
(throw :found t)))))
|
(throw :found t)))))
|
||||||
(goto-char pos)
|
(goto-char pos)
|
||||||
(setq org-link--search-failed t)
|
(setq org-link--search-failed t)
|
||||||
|
|
|
@ -830,6 +830,7 @@ DETAIL is either nil, `minimal', `local', `ancestors',
|
||||||
(redisplay)
|
(redisplay)
|
||||||
(let ((region (org-fold-get-region-at-point)))
|
(let ((region (org-fold-get-region-at-point)))
|
||||||
;; Reveal emphasis markers.
|
;; Reveal emphasis markers.
|
||||||
|
(when (eq detail 'local)
|
||||||
(let (org-hide-emphasis-markers
|
(let (org-hide-emphasis-markers
|
||||||
org-link-descriptive
|
org-link-descriptive
|
||||||
org-pretty-entities
|
org-pretty-entities
|
||||||
|
@ -843,8 +844,14 @@ DETAIL is either nil, `minimal', `local', `ancestors',
|
||||||
(beginning-of-line)
|
(beginning-of-line)
|
||||||
(let (font-lock-extend-region-functions)
|
(let (font-lock-extend-region-functions)
|
||||||
(font-lock-fontify-region (max (point-min) (1- (car region))) (cdr region))))))
|
(font-lock-fontify-region (max (point-min) (1- (car region))) (cdr region))))))
|
||||||
|
;; Unfold links.
|
||||||
|
(dolist (spec '(org-link org-link-description))
|
||||||
|
(org-fold-region (car region) (cdr region) nil spec)))
|
||||||
(when region
|
(when region
|
||||||
(org-fold-region (car region) (cdr region) nil))))
|
(dolist (spec (org-fold-core-folding-spec-list))
|
||||||
|
;; Links are taken care by above.
|
||||||
|
(unless (memq spec '(org-link org-link-description))
|
||||||
|
(org-fold-region (car region) (cdr region) nil spec))))))
|
||||||
(unless (org-before-first-heading-p)
|
(unless (org-before-first-heading-p)
|
||||||
(org-with-limited-levels
|
(org-with-limited-levels
|
||||||
(cl-case detail
|
(cl-case detail
|
||||||
|
|
Loading…
Reference in a new issue