Skip to content

Commit 79e6a91

Browse files
committed
Upgrade to outline-(show|hide)-levels.
1 parent 3b60e8d commit 79e6a91

File tree

2 files changed

+8
-2
lines changed

2 files changed

+8
-2
lines changed

haskell-compat.el

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -53,6 +53,12 @@ A process is considered alive if its status is `run', `open',
5353
(unless (fboundp 'outline-show-subtree)
5454
(defalias 'outline-show-subtree 'show-subtree))
5555

56+
(unless (fboundp 'outline-hide-sublevels)
57+
(defalias 'outline-hide-sublevels 'hide-sublevels))
58+
59+
(unless (fboundp 'outline-show-subtree)
60+
(defalias 'outline-show-subtree 'show-subtree))
61+
5662
(provide 'haskell-compat)
5763

5864
;;; haskell-compat.el ends here

haskell-mode.el

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -171,9 +171,9 @@ When MESSAGE is non-nil, display a message with the version."
171171
(interactive)
172172
(with-current-buffer (find-file-read-only (expand-file-name "NEWS" haskell-mode-pkg-base-dir))
173173
(goto-char (point-min))
174-
(hide-sublevels 1)
174+
(outline-hide-sublevels 1)
175175
(outline-next-visible-heading 1)
176-
(show-subtree)))
176+
(outline-show-subtree)))
177177

178178
;; Are we looking at a literate script?
179179
(defvar haskell-literate nil

0 commit comments

Comments
 (0)