diff options
Diffstat (limited to 'lisp/textmodes/makeinfo.el')
-rw-r--r-- | lisp/textmodes/makeinfo.el | 20 |
1 files changed, 12 insertions, 8 deletions
diff --git a/lisp/textmodes/makeinfo.el b/lisp/textmodes/makeinfo.el index e48649bae37..13367a09bcf 100644 --- a/lisp/textmodes/makeinfo.el +++ b/lisp/textmodes/makeinfo.el @@ -1,4 +1,4 @@ -;;; makeinfo.el --- run makeinfo conveniently +;;; makeinfo.el --- run makeinfo conveniently -*- lexical-binding: t; -*- ;; Copyright (C) 1991, 1993, 2001-2021 Free Software Foundation, Inc. @@ -59,16 +59,14 @@ (defcustom makeinfo-run-command "makeinfo" "Command used to run `makeinfo' subjob. The name of the file is appended to this string, separated by a space." - :type 'string - :group 'makeinfo) + :type 'string) (defcustom makeinfo-options "--fill-column=70" "String containing options for running `makeinfo'. Do not include `--footnote-style' or `--paragraph-indent'; the proper way to specify those is with the Texinfo commands `@footnotestyle' and `@paragraphindent'." - :type 'string - :group 'makeinfo) + :type 'string) (require 'texinfo) @@ -87,6 +85,7 @@ the proper way to specify those is with the Texinfo commands ;;; The `makeinfo' function definitions +;;;###autoload (defun makeinfo-region (region-beginning region-end) "Make Info file from region of current Texinfo file, and switch to it. @@ -95,7 +94,7 @@ apply to a temporary file, not the original; use the `makeinfo-buffer' command to gain use of `next-error'." (interactive "r") - (let (filename-or-header + (let (;; filename-or-header filename-or-header-beginning filename-or-header-end) ;; Cannot use `let' for makeinfo-temp-file or @@ -175,7 +174,7 @@ command to gain use of `next-error'." t 'makeinfo-compilation-sentinel-region))))))) -(defun makeinfo-next-error (arg reset) +(defun makeinfo-next-error (_arg _reset) "This function is used to disable `next-error' if the user has used `makeinfo-region'. Since the compilation process is used on a temporary file in that case, calling `next-error' would give @@ -224,6 +223,7 @@ nonsensical results." (match-string 1) "Top"))) +;;;###autoload (defun makeinfo-buffer () "Make Info file from current buffer. @@ -268,6 +268,7 @@ Use the \\[next-error] command to move to the next error (Info-revert-find-node makeinfo-output-file-name makeinfo-output-node-name)))) +;;;###autoload (defun makeinfo-recenter-compilation-buffer (linenum) "Redisplay `*compilation*' buffer so most recent output can be seen. The last line of the buffer is displayed on @@ -286,7 +287,10 @@ line LINE of the window, or centered if LINE is nil." (pop-to-buffer old-buffer) ))) -;;; Place `provide' at end of file. (provide 'makeinfo) +;; Local Variables: +;; generated-autoload-file: "texinfo-loaddefs.el" +;; End: + ;;; makeinfo.el ends here |