diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2020-07-04 09:56:20 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2020-07-04 09:56:20 +0200 |
commit | a3f01e183fb7ec92d481336c62ba7ebd06b22288 (patch) | |
tree | 959dcda7480f49ff961e381355b147f006581b4c | |
parent | b6e7d3dcb6a927a19b78ca87575fd05509992542 (diff) | |
download | org-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.el | 4 | ||||
-rw-r--r-- | lisp/org.el | 4 |
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) |