emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/doc-toc a341a6eddc 21/84: Add autoload magic comments a


From: ELPA Syncer
Subject: [elpa] externals/doc-toc a341a6eddc 21/84: Add autoload magic comments and file-header
Date: Mon, 26 Sep 2022 13:58:35 -0400 (EDT)

branch: externals/doc-toc
commit a341a6eddce47da885c3427312ccdbc43840b454
Author: Daniel Nicolai <dalanicolai@gmail.com>
Commit: Daniel Nicolai <dalanicolai@gmail.com>

    Add autoload magic comments and file-header
---
 toc-mode.el | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/toc-mode.el b/toc-mode.el
index 0455bd38c1..ca784bca8c 100644
--- a/toc-mode.el
+++ b/toc-mode.el
@@ -1,4 +1,4 @@
-;; document-outliner.el --- Manage outlines of pdf and djvu document  -*- 
lexical-binding: t; -*-
+;;; toc-mode.el --- Manage outlines of pdf and djvu document  -*- 
lexical-binding: t; -*-
 
 ;; Copyright (C) 2020  Daniel Laurens Nicolai
 
@@ -154,6 +154,7 @@ For DJVU the old DJVU file is replaced by default"
     ;; (kill-whole-line)
     ))
 
+;;;###autoload
 (defun toc-extract-pages (startpage endpage arg)
   "Extract text and cleanup text from table of contents.
 Use with the universal argument (C-u) omits cleanup to get the unprocessed 
text."
@@ -162,6 +163,7 @@ Use with the universal argument (C-u) omits cleanup to get 
the unprocessed text.
   (unless arg
     (toc-cleanup startpage)))
 
+;;;###autoload
 (defun toc-extract-pages-ocr (startpage endpage arg)
   (interactive "nEnter start-pagenumber for extraction: \nnEnter 
end-pagenumber for extraction: \nP")
     (let* ((source-buffer (current-buffer))
@@ -356,8 +358,8 @@ Use with the universal argument (C-u) omits cleanup to get 
the unprocessed text.
     (define-key map [tab] 'toc-tablist-follow)
     (define-key map [S-down] 'toc-scroll-other-window-page-up)
     (define-key map [S-up] 'toc-scroll-other-window-page-down)
-    (define-key map [C-down] 'toc-scroll-pdf-other-window-up)
-    (define-key map [C-up] 'toc-scroll-pdf-other-window-down)
+    (define-key map [C-down] 'toc-scroll-pdf-other-window-down)
+    (define-key map [C-up] 'toc-scroll-pdf-other-window-up)
     (define-key map "\C-c\C-c" 'toc-tablist-to-toc-source)
     map))
 



reply via email to

[Prev in Thread] Current Thread [Next in Thread]