diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2020-07-03 21:50:46 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2020-07-03 21:50:46 +0200 |
commit | e3745fac1e369695cdf1ff22446b6ad424e71ef2 (patch) | |
tree | 8288d7287c0d95f55348f1d67d8ff444f6f243b9 | |
parent | 86fada6b5dace7744678e1549ea9293812c07e72 (diff) | |
download | org-mode-e3745fac1e369695cdf1ff22446b6ad424e71ef2.tar.gz |
Remove `org-hide-drawer' text property leftovers
* lisp/org-macs.el (org-save-outline-visibility):
(org-invisible-p):
* lisp/org.el (org-show-set-visibility):
(org--forward-paragraph-once):
(org--backward-paragraph-once): Remove reference to `org-hide-drawer',
no longer used to hide drawers.
-rw-r--r-- | lisp/org-macs.el | 4 | ||||
-rw-r--r-- | lisp/org.el | 9 |
2 files changed, 6 insertions, 7 deletions
diff --git a/lisp/org-macs.el b/lisp/org-macs.el index a02f713..cfb7beb 100644 --- a/lisp/org-macs.el +++ b/lisp/org-macs.el @@ -122,7 +122,7 @@ means that the buffer should stay alive during the operation, because otherwise all these markers will point to nowhere." (declare (debug (form body)) (indent 1)) (org-with-gensyms (data invisible-types markers?) - `(let* ((,invisible-types '(org-hide-block org-hide-drawer outline)) + `(let* ((,invisible-types '(org-hide-block outline)) (,markers? ,use-markers) (,data (mapcar (lambda (o) @@ -1094,7 +1094,7 @@ folding of a headline, a block or a drawer, i.e., not because of fontification." (let ((value (get-char-property (or pos (point)) 'invisible))) (cond ((not value) nil) - (folding-only (memq value '(org-hide-block org-hide-drawer outline))) + (folding-only (memq value '(org-hide-block outline))) (t value)))) (defun org-truely-invisible-p () diff --git a/lisp/org.el b/lisp/org.el index 6355e46..919c167 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -6699,8 +6699,7 @@ information." ;; If point is hidden within a drawer or a block, make sure to ;; expose it. (dolist (o (overlays-at (point))) - (when (memq (overlay-get o 'invisible) - '(org-hide-block org-hide-drawer outline)) + (when (memq (overlay-get o 'invisible) '(org-hide-block outline)) (delete-overlay o))) (unless (org-before-first-heading-p) (org-with-limited-levels @@ -20652,7 +20651,7 @@ See `org-forward-paragraph'." ((eobp) nil) ;; When inside a folded part, move out of it. ((pcase (get-char-property-and-overlay (point) 'invisible) - (`(,(or `outline `org-hide-block `org-hide-drawer) . ,o) + (`(,(or `outline `org-hide-block) . ,o) (goto-char (overlay-end o)) (forward-line) t) @@ -20671,7 +20670,7 @@ See `org-forward-paragraph'." ((pcase (org-with-point-at post-affiliated (get-char-property-and-overlay (line-end-position) 'invisible)) - (`(,(or `outline `org-hide-block `org-hide-drawer) . ,o) + (`(,(or `outline `org-hide-block) . ,o) (goto-char (overlay-end o)) (forward-line) t) @@ -20728,7 +20727,7 @@ See `org-backward-paragraph'." (goto-char (point-min))) ;; When inside a folded part, move out of it. ((pcase (get-char-property-and-overlay (1- (point)) 'invisible) - (`(,(or `outline `org-hide-block `org-hide-drawer) . ,o) + (`(,(or `outline `org-hide-block) . ,o) (goto-char (1- (overlay-start o))) (org--backward-paragraph-once) t) |