Prechádzať zdrojové kódy

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 5 rokov pred
rodič
commit
e3745fac1e
2 zmenil súbory, kde vykonal 6 pridanie a 7 odobranie
  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."
 because otherwise all these markers will point to nowhere."
   (declare (debug (form body)) (indent 1))
   (declare (debug (form body)) (indent 1))
   (org-with-gensyms (data invisible-types markers?)
   (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)
 	    (,markers? ,use-markers)
 	    (,data
 	    (,data
 	     (mapcar (lambda (o)
 	     (mapcar (lambda (o)
@@ -1094,7 +1094,7 @@ folding of a headline, a block or a drawer, i.e., not because of
 fontification."
 fontification."
   (let ((value (get-char-property (or pos (point)) 'invisible)))
   (let ((value (get-char-property (or pos (point)) 'invisible)))
     (cond ((not value) nil)
     (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))))
 	  (t value))))
 
 
 (defun org-truely-invisible-p ()
 (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
     ;; If point is hidden within a drawer or a block, make sure to
     ;; expose it.
     ;; expose it.
     (dolist (o (overlays-at (point)))
     (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)))
 	(delete-overlay o)))
     (unless (org-before-first-heading-p)
     (unless (org-before-first-heading-p)
       (org-with-limited-levels
       (org-with-limited-levels
@@ -20652,7 +20651,7 @@ See `org-forward-paragraph'."
      ((eobp) nil)
      ((eobp) nil)
      ;; When inside a folded part, move out of it.
      ;; When inside a folded part, move out of it.
      ((pcase (get-char-property-and-overlay (point) 'invisible)
      ((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))
 	 (goto-char (overlay-end o))
 	 (forward-line)
 	 (forward-line)
 	 t)
 	 t)
@@ -20671,7 +20670,7 @@ See `org-forward-paragraph'."
 	 ((pcase (org-with-point-at post-affiliated
 	 ((pcase (org-with-point-at post-affiliated
 		   (get-char-property-and-overlay (line-end-position)
 		   (get-char-property-and-overlay (line-end-position)
 						  'invisible))
 						  'invisible))
-	    (`(,(or `outline `org-hide-block `org-hide-drawer) . ,o)
+	    (`(,(or `outline `org-hide-block) . ,o)
 	     (goto-char (overlay-end o))
 	     (goto-char (overlay-end o))
 	     (forward-line)
 	     (forward-line)
 	     t)
 	     t)
@@ -20728,7 +20727,7 @@ See `org-backward-paragraph'."
       (goto-char (point-min)))
       (goto-char (point-min)))
      ;; When inside a folded part, move out of it.
      ;; When inside a folded part, move out of it.
      ((pcase (get-char-property-and-overlay (1- (point)) 'invisible)
      ((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)))
 	 (goto-char (1- (overlay-start o)))
 	 (org--backward-paragraph-once)
 	 (org--backward-paragraph-once)
 	 t)
 	 t)