瀏覽代碼

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.
Nicolas Goaziou 4 年之前
父節點
當前提交
e3745fac1e
共有 2 個文件被更改,包括 6 次插入7 次删除
  1. 2 2
      lisp/org-macs.el
  2. 4 5
      lisp/org.el

+ 2 - 2
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 ()

+ 4 - 5
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)