branch: master commit a401c3fcc678541384b0cda915069c7998729fe0 Author: Arash Esbati <ar...@gnu.org> Commit: Arash Esbati <ar...@gnu.org>
Silence the compiler for the "main" branch * latex.el: * plain-tex.el: * tex.el: Declare functions which are reported as not known to be defined when compiling the "main" branch. * style/pstricks.el (LaTeX-pst-env-pspicture): Use `TeX-read-key-val' instead of `multi-prompt-key-value'. --- latex.el | 12 ++++++------ plain-tex.el | 3 +++ style/pstricks.el | 9 +++++---- tex.el | 14 ++++++++------ 4 files changed, 22 insertions(+), 16 deletions(-) diff --git a/latex.el b/latex.el index 9e769e97..e2d2d88e 100644 --- a/latex.el +++ b/latex.el @@ -39,12 +39,12 @@ (require 'subr-x))) ;; Silence the compiler for functions: -(declare-function outline-level "ext:outline" - nil) -(declare-function outline-mark-subtree "ext:outline" - nil) -(declare-function turn-off-filladapt-mode "ext:filladapt" - nil) +(declare-function multi-prompt "multi-prompt") +(declare-function multi-prompt-key-value "multi-prompt") +(declare-function LaTeX-install-toolbar "tex-bar" nil) +(declare-function outline-level "ext:outline" nil) +(declare-function outline-mark-subtree "ext:outline" nil) +(declare-function turn-off-filladapt-mode "ext:filladapt" nil) ;; Silence the compiler for variables: (defvar outline-heading-alist) diff --git a/plain-tex.el b/plain-tex.el index 5691859d..2b777869 100644 --- a/plain-tex.el +++ b/plain-tex.el @@ -30,6 +30,9 @@ (require 'tex) +;; Silence the compiler for functions: +(declare-function TeX-install-toolbar "tex-bar" nil) + ;;; Tool bar (defcustom plain-TeX-enable-toolbar t diff --git a/style/pstricks.el b/style/pstricks.el index b5b93df6..f40db099 100644 --- a/style/pstricks.el +++ b/style/pstricks.el @@ -1,6 +1,6 @@ ;;; pstricks.el --- AUCTeX style for the `pstricks' package. -*- lexical-binding: t; -*- -;; Copyright (C) 2007-2022 Free Software Foundation, Inc. +;; Copyright (C) 2007-2024 Free Software Foundation, Inc. ;; Author: Holger Sparr <holger.sp...@gmx.net> ;; Maintainer: auctex-devel@gnu.org @@ -652,9 +652,10 @@ package PNAME" ;;; Environments (defun LaTeX-pst-env-pspicture (env) "Create new pspicure environment." - (let ((opt (multi-prompt-key-value - (TeX-argument-prompt t "Options" nil) - '(("showgrid") ("shift")))) + (let ((opt (TeX-read-key-val t + '(("showgrid" ("true" "false")) + ("shift")) + "Options")) (p0 (LaTeX-pst-what "point" "Lower left (default 0,0)" "0,0")) (p1 (LaTeX-pst-what "point" "Upper right (default 1,1)" "1,1")) corn) diff --git a/tex.el b/tex.el index 325f883b..9fb533ff 100644 --- a/tex.el +++ b/tex.el @@ -54,11 +54,13 @@ (bus service path interface method &rest args)) (declare-function dbus-register-signal "ext:dbus" (bus service path interface signal handler &rest args)) +(declare-function font-latex-setup "font-latex" nil) (declare-function LaTeX-environment-list "latex" nil) (declare-function LaTeX-bibliography-list "latex" nil) (declare-function LaTeX-completion-label-annotation-function "latex" (label)) (declare-function LaTeX-completion-label-list "latex" nil) (declare-function LaTeX-section-name "latex" (level)) +(declare-function TeX-fold-mode "tex-fold" (&optional arg)) (declare-function comint-exec "ext:comint" (buffer name command startfile switches)) (declare-function comint-mode "ext:comint" nil) @@ -801,12 +803,12 @@ emacs 24.1 and is then later run by emacs 24.5." (advice-add 'hack-one-local-variable :after #'TeX--call-minor-mode) (defun TeX--call-minor-mode (var val &rest _) "Call minor mode function if minor mode variable is found." - ;; Instead of checking for each mode explicitly `minor-mode-list' - ;; could be used. But this may make the byte compiler pop up. - (when (memq var '(TeX-PDF-mode - TeX-source-correlate-mode TeX-interactive-mode - TeX-fold-mode LaTeX-math-mode)) - (funcall var (if (symbol-value val) 1 0)))) + ;; Instead of checking for each mode explicitly `minor-mode-list' + ;; could be used. But this may make the byte compiler pop up. + (when (memq var '(TeX-PDF-mode + TeX-source-correlate-mode TeX-interactive-mode + TeX-fold-mode LaTeX-math-mode)) + (funcall var (if (symbol-value val) 1 0)))) (defvar TeX-overlay-priority-step 16 "Numerical difference of priorities between nested overlays.