瀏覽代碼

Fix last commit

* lisp/org.el (org-show-all): Remove function.
Nicolas Goaziou 7 年之前
父節點
當前提交
076cba6b2d
共有 1 個文件被更改,包括 0 次插入13 次删除
  1. 0 13
      lisp/org.el

+ 0 - 13
lisp/org.el

@@ -6592,19 +6592,6 @@ and subscripts."
 
 (defvar org-inlinetask-min-level)
 
-(defun org-show-all (&optional types)
-  "Show all contents in the visible part of the buffer.
-By default, the function expands headings, blocks and drawers.
-When optional argument TYPE is a list of symbols among `blocks',
-`drawers' and `headings', to only expand one specific type."
-  (dolist (type (or types '(blocks drawers headings)))
-    (org-flag-region (point-min) (point-max) nil
-		     (pcase type
-		       (`blocks 'org-hide-block)
-		       (`drawers 'org-hide-drawer)
-		       (`headings 'outline)
-		       (_ (error "Invalid type: %S" type))))))
-
 ;;;###autoload
 (defun org-cycle (&optional arg)
   "TAB-action and visibility cycling for Org mode.