diff options
author | jao <jao@gnu.org> | 2022-09-27 20:40:30 +0100 |
---|---|---|
committer | jao <jao@gnu.org> | 2022-09-27 20:40:30 +0100 |
commit | 19b2c24040c30dee2da30d2294404256e7187cbc (patch) | |
tree | c5ab4ae4b9f18782a3e1696b09ec0f1a317f38d0 /lib/doc/jao-doc-view.el | |
parent | 1a6b9ba762fddc95bce00dc1a94dfd10c24dee60 (diff) | |
download | elibs-19b2c24040c30dee2da30d2294404256e7187cbc.tar.gz elibs-19b2c24040c30dee2da30d2294404256e7187cbc.tar.bz2 |
attic: doc-view-imenu is now part of emacs29
Diffstat (limited to 'lib/doc/jao-doc-view.el')
-rw-r--r-- | lib/doc/jao-doc-view.el | 17 |
1 files changed, 5 insertions, 12 deletions
diff --git a/lib/doc/jao-doc-view.el b/lib/doc/jao-doc-view.el index 3631e98..f4c7c8b 100644 --- a/lib/doc/jao-doc-view.el +++ b/lib/doc/jao-doc-view.el @@ -38,18 +38,11 @@ (round (/ (* height (cdr (pdf-view-image-size))) (frame-char-height)))))) ;;; imenu -(defvar-local jao-doc-view--imenu-file nil) -(defvar-local jao-doc-view--goer 'jao-doc-view-goto-page) - -(defun jao-doc-view--enable-imenu (&optional file-name goto-page) - (setq-local imenu-create-index-function #'jao-doc-view--imenu-create-index - jao-doc-view--imenu-file (or file-name jao-doc-view--imenu-file) - jao-doc-view--goer (or goto-page 'jao-doc-view-goto-page))) - -(defun jao-doc-view--imenu-create-index () - (jao-pdf-imenu-index 'jao-doc-view--goer 'jao-doc-view--imenu-file)) - -(add-hook 'doc-view-mode-hook #'jao-pdf-set-up-imenu) +(defun jao-doc-view-enable-imenu (file-name goto-page) + (let ((ifun (lambda () (doc-view-imenu-index file-name goto-page))) + (doc-view-imenu-enabled t)) + (doc-view-imenu-setup) + (setq-local imenu-create-index-function ifun))) ;;; Page trailing (defvar-local jao-doc-view--trail-back ()) |