branch: elpa/pdf-tools
commit f12900eda47f45f0e27fd4e8dfa4962a51671d59
Author: Ramon Diaz-Uriarte <[email protected]>
Commit: GitHub <[email protected]>
Fixes obsolete outline commands in PDF Outline (#265)
Replace obsolete outline commands with their newer versions
---------
Authored-by: Ramon Diaz-Uriarte (@rdiaz02)
---
lisp/pdf-outline.el | 14 +++++++-------
1 file changed, 7 insertions(+), 7 deletions(-)
diff --git a/lisp/pdf-outline.el b/lisp/pdf-outline.el
index fc75b02794..f62923a2b5 100644
--- a/lisp/pdf-outline.el
+++ b/lisp/pdf-outline.el
@@ -88,12 +88,12 @@ Set to nil to disable line wrapping."
(define-key kmap (kbd "p") #'previous-line)
(define-key kmap (kbd "n") #'next-line)
(define-key kmap (kbd "b") #'outline-backward-same-level)
- (define-key kmap (kbd "d") #'hide-subtree)
- (define-key kmap (kbd "a") #'show-all)
- (define-key kmap (kbd "s") #'show-subtree)
+ (define-key kmap (kbd "d") #'outline-hide-subtree)
+ (define-key kmap (kbd "a") #'outline-show-all)
+ (define-key kmap (kbd "s") #'outline-show-subtree)
(define-key kmap (kbd "f") #'outline-forward-same-level)
(define-key kmap (kbd "u") #'pdf-outline-up-heading)
- (define-key kmap (kbd "Q") #'hide-sublevels)
+ (define-key kmap (kbd "Q") #'outline-hide-sublevels)
(define-key kmap (kbd "<") #'beginning-of-buffer)
(define-key kmap (kbd ">") #'pdf-outline-end-of-buffer)
(define-key kmap (kbd "TAB") #'outline-toggle-children)
@@ -175,7 +175,7 @@ rebound to their respective last character.
(setq buffer-read-only t)
(when (> (count-lines 1 (point-max))
(* 1.5 (frame-height)))
- (hide-sublevels 1))
+ (outline-hide-sublevels 1))
(message "%s"
(substitute-command-keys
(concat
@@ -405,8 +405,8 @@ Then quit the outline window."
(save-excursion
(outline-back-to-heading)
(if (not (outline-invisible-p (line-end-position)))
- (hide-subtree)
- (show-subtree))))
+ (outline-hide-subtree)
+ (outline-show-subtree))))
(defun pdf-outline-move-to-page (page)
"Move to an outline item corresponding to PAGE."
