summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNicolas Goaziou <mail@nicolasgoaziou.fr>2020-07-04 09:56:20 +0200
committerNicolas Goaziou <mail@nicolasgoaziou.fr>2020-07-04 09:56:20 +0200
commita3f01e183fb7ec92d481336c62ba7ebd06b22288 (patch)
tree959dcda7480f49ff961e381355b147f006581b4c
parentb6e7d3dcb6a927a19b78ca87575fd05509992542 (diff)
downloadorg-mode-a3f01e183fb7ec92d481336c62ba7ebd06b22288.tar.gz
Tweak drawer visibility after isearch
* lisp/org-macs.el (org-flag-region): Control visibility state after an isearch. * lisp/org.el (org-mode): Remove an unused variable.
-rw-r--r--lisp/org-macs.el4
-rw-r--r--lisp/org.el4
2 files changed, 3 insertions, 5 deletions
diff --git a/lisp/org-macs.el b/lisp/org-macs.el
index cfb7beb..3731d21 100644
--- a/lisp/org-macs.el
+++ b/lisp/org-macs.el
@@ -715,7 +715,9 @@ SPEC is the invisibility spec, as a symbol."
(let ((o (make-overlay from to nil 'front-advance)))
(overlay-put o 'evaporate t)
(overlay-put o 'invisible spec)
- (overlay-put o 'isearch-open-invisible #'delete-overlay))))
+ (overlay-put o
+ 'isearch-open-invisible
+ (lambda (&rest _) (org-show-context 'isearch))))))
diff --git a/lisp/org.el b/lisp/org.el
index 919c167..adf0c18 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -4864,10 +4864,6 @@ The following commands are available:
(regexp . "^[ \t]*#\\+[A-Z_]+:\\(\\s-*\\)\\S-+")
(modes . '(org-mode)))))
- ;; Make isearch reveal context
- (setq-local outline-isearch-open-invisible-function
- (lambda (&rest _) (org-show-context 'isearch)))
-
;; Setup the pcomplete hooks
(setq-local pcomplete-command-completion-function #'org-pcomplete-initial)
(setq-local pcomplete-command-name-function #'org-command-at-point)