sergiodj/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-07-18 22:45:59 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

* lisp/outline.el: Make revert-related functions internal.

Browse source 
(outline--hidden-headings-paths)
(outline--hidden-headings-restore-paths): Rename with the prefix
'outline--' to mark them internal to discourage from relying on
their arguments and return values.
This commit is contained in:
Juri Linkov 2024-06-17 19:40:00 +03:00
parent 27f46ba4b9
commit 66c0099122
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/outline.el
View file

@ -1699,7 +1699,7 @@ LEVEL, decides of subtree visibility according to
(point-min) (point-max)))
(run-hooks 'outline-view-change-hook))
(defun outline-hidden-headings-paths ()
(defun outline--hidden-headings-paths ()
"Return a hash with headings of currently hidden outlines.
Every hash key is a list whose elements compose a complete path
of headings descending from the top level down to the bottom level.
@ -1729,10 +1729,10 @@ was located before reverting the buffer."
(point-min) (point-max))
(list paths current-path)))
(defun outline-hidden-headings-restore-paths (paths current-path)
(defun outline--hidden-headings-restore-paths (paths current-path)
"Restore hidden outlines from a hash of hidden headings.
This is useful after reverting the buffer to restore the outlines
hidden by `outline-hidden-headings-paths'. Also restore point
hidden by `outline--hidden-headings-paths'. Also restore point
on the same outline where point was before reverting the buffer."
(let (path current-point outline-view-change-hook)
(outline-map-region
@ -1753,11 +1753,11 @@ on the same outline where point was before reverting the buffer."
"Preserve visibility when reverting buffer under `outline-minor-mode'.
This function restores the visibility of outlines after the buffer
under `outline-minor-mode' is reverted by `revert-buffer'."
(let ((paths (outline-hidden-headings-paths)))
(let ((paths (outline--hidden-headings-paths)))
(unless (and (hash-table-empty-p (nth 0 paths))
(null (nth 1 paths)))
(lambda ()
(outline-hidden-headings-restore-paths
(outline--hidden-headings-restore-paths
(nth 0 paths) (nth 1 paths))))))
(defun outline-revert-buffer-rehighlight ()