Upgrade to outline-(show|hide)-levels.

u-combinator · Feb 28, 2015 · 79e6a91 · 79e6a91
1 parent 3b60e8d
commit 79e6a91
Show file tree

Hide file tree

Showing 2 changed files with 8 additions and 2 deletions.
diff --git a/haskell-compat.el b/haskell-compat.el
@@ -53,6 +53,12 @@ A process is considered alive if its status is `run', `open',
 (unless (fboundp 'outline-show-subtree)
   (defalias 'outline-show-subtree 'show-subtree))
 
+(unless (fboundp 'outline-hide-sublevels)
+  (defalias 'outline-hide-sublevels 'hide-sublevels))
+
+(unless (fboundp 'outline-show-subtree)
+  (defalias 'outline-show-subtree 'show-subtree))
+
 (provide 'haskell-compat)
 
 ;;; haskell-compat.el ends here
diff --git a/haskell-mode.el b/haskell-mode.el
@@ -171,9 +171,9 @@ When MESSAGE is non-nil, display a message with the version."
   (interactive)
   (with-current-buffer (find-file-read-only (expand-file-name "NEWS" haskell-mode-pkg-base-dir))
     (goto-char (point-min))
-    (hide-sublevels 1)
+    (outline-hide-sublevels 1)
     (outline-next-visible-heading 1)
-    (show-subtree)))
+    (outline-show-subtree)))
 
 ;; Are we looking at a literate script?
 (defvar haskell-literate nil