branch: externals/auctex
commit e293844ce819557459ca3fc5cd50a0d5fd8f0585
Author: Arash Esbati <ar...@gnu.org>
Commit: Arash Esbati <ar...@gnu.org>
; Silence the compiler
* style/exam.el (LaTeX-exam-insert-item):
* style/ifluatex.el (LaTeX-ifluatex-set-exit-mark): Use
`with-no-warnings' around variables defined at run time.
---
style/exam.el | 29 +++++++++++++++--------------
style/ifluatex.el | 5 +++--
2 files changed, 18 insertions(+), 16 deletions(-)
diff --git a/style/exam.el b/style/exam.el
index 3ecc38d..a1ce1b5 100644
--- a/style/exam.el
+++ b/style/exam.el
@@ -51,20 +51,21 @@
(defun LaTeX-exam-insert-item ()
"Insert a new item in an environment from exam class.
Item inserted depends on the environment."
- (TeX-insert-macro
- (cond ((string= environment "questions")
- "question")
- ((string= environment "parts")
- "part")
- ((string= environment "subparts")
- "subpart")
- ((string= environment "subsubparts")
- "subsubpart")
- ((member environment '("choices" "oneparchoices"
- "checkboxes" "oneparcheckboxes"))
- "choice")
- ;; Fallback
- (t "item"))))
+ (with-no-warnings
+ (TeX-insert-macro
+ (cond ((string= environment "questions")
+ "question")
+ ((string= environment "parts")
+ "part")
+ ((string= environment "subparts")
+ "subpart")
+ ((string= environment "subsubparts")
+ "subsubpart")
+ ((member environment '("choices" "oneparchoices"
+ "checkboxes" "oneparcheckboxes"))
+ "choice")
+ ;; Fallback
+ (t "item")))))
(defun LaTeX-exam-insert-label (_optional &optional name type)
"Indent the line and query/insert a label incl. the \"\\label\" macro.
diff --git a/style/ifluatex.el b/style/ifluatex.el
index 20d3c8d..736e5ca 100644
--- a/style/ifluatex.el
+++ b/style/ifluatex.el
@@ -1,6 +1,6 @@
;;; ifluatex.el --- AUCTeX style for `ifluatex.sty' version 1.3.
-;; Copyright (C) 2014, 2016, 2018 Free Software Foundation, Inc.
+;; Copyright (C) 2014, 2016, 2018, 2020 Free Software Foundation, Inc.
;; Author: Davide G. M. Salvetti <sa...@debian.org>
;; Maintainer: auctex-de...@gnu.org
@@ -36,7 +36,8 @@
(defun LaTeX-ifluatex-set-exit-mark (_optional)
"Discard OPTIONAL and set exit-mark to current point."
- (set-marker exit-mark (point)))
+ (with-no-warnings
+ (set-marker exit-mark (point))))
(TeX-add-style-hook
"ifluatex"
