summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorPieter Pareit <pieter.pareit@gmail.com>2020-04-09 21:29:20 +0200
committerArash Esbati <arash@gnu.org>2020-04-09 21:29:20 +0200
commitfb1fdc4105504204b1863ab15ace9a68cd3a21d0 (patch)
tree5c0a61c9b27e5d36d36a57d3b79f982ff39064e7
parent240476c75e6ab2dd5d7b9398b99f43c3787764c4 (diff)
downloadauctex-fb1fdc4105504204b1863ab15ace9a68cd3a21d0.tar.gz
Fix y-or-n-p query prompts
* style/prosper.el (LaTeX-prosper-insert-slide): Fix query prompt. ("prosper"): Delete unnecessary (funtion ...) in the hook. * tex-buf.el (TeX-check-engine): * tex-wizard.el (TeX-wizard): Fix query prompt. Copyright-paperwork-exempt: yes Signed-off-by: Arash Esbati <arash@gnu.org>
-rw-r--r--style/prosper.el93
-rw-r--r--tex-buf.el8
-rw-r--r--tex-wizard.el4
3 files changed, 51 insertions, 54 deletions
diff --git a/style/prosper.el b/style/prosper.el
index 5e0c6d8..cfc9797 100644
--- a/style/prosper.el
+++ b/style/prosper.el
@@ -1,6 +1,6 @@
;;; prosper.el --- Prosper style file for AUCTeX
-;; Copyright (C) 2001, 2002, 2014 Free Software Foundation, Inc.
+;; Copyright (C) 2001, 2002, 2014, 2020 Free Software Foundation, Inc.
;; Authors: Phillip Lord<p.lord@russet.org.uk>
;; Nevin Kapur <nevin@jhu.edu>
@@ -132,7 +132,7 @@
(insert "]"))
(defun LaTeX-prosper-insert-slide (_environment)
- (if (y-or-n-p "Surround with overlay ?")
+ (if (y-or-n-p "Surround with overlay? ")
(progn (TeX-insert-macro "overlays")
(if (search-backward "{" 0 t)
(progn
@@ -141,52 +141,49 @@
(let ((title (TeX-read-string "Title: ")))
(LaTeX-insert-environment "slide" (concat TeX-grop title TeX-grcl))))
-
-
;; AUCTeX configuration
-(TeX-add-style-hook "prosper"
- (function
- (lambda ()
- (LaTeX-add-environments
- '("slide" LaTeX-prosper-insert-slide)
- '("itemstep" LaTeX-env-item)
- '("Itemize" LaTeX-env-item))
- (TeX-add-symbols
- '("documentclass"
- LaTeX-prosper-insert-options
- LaTeX-prosper-insert-title)
- '("title" "Title of the presentation")
- '("subtitle" "Subtitle of the presentation")
- '("author" "Author name")
- '("email" "Author email")
- '("institution" "Author institution")
- '("slideCaption" "Caption for slide")
- '("Logo" "Logo")
- '("displayVersion" TeX-arg-free)
- '("DefaultTransition"
- LaTeX-prosper-arg-pdftransition)
- '("NoFrenchBabelItemize" TeX-arg-free)
- '("part" LaTeX-prosper-arg-part)
- '("overlays" "Number of overlays" t)
- '("FontTitle" "Color slides" "Black & White Slides")
- '("FontText" "Color slides" "Black & White Slides")
- '("fontTitle" "Text")
- '("fontText" "Text")
- '("ColorFoot" "Color")
- '("PDFtransition" LaTeX-prosper-arg-pdftransition)
- '("myitem" "Level" "Definition")
- '("fromSlide" "Number" t)
- '("fromSlide*" "Number" t)
- '("onlySlide" "Number" t)
- '("onlySlide*" "Number" t)
- '("OnlySlide" "Number")
- '("UntilSlide" "Number")
- '("untilSlide*" "Number")
- '("PDForPS" TeX-arg-conditional)
- '("onlyInPS" t)
- '("onlyInPDF" t)
- '("FromSlide" "Number"))))
- LaTeX-dialect)
-
+(TeX-add-style-hook
+ "prosper"
+ (lambda ()
+ (LaTeX-add-environments
+ '("slide" LaTeX-prosper-insert-slide)
+ '("itemstep" LaTeX-env-item)
+ '("Itemize" LaTeX-env-item))
+ (TeX-add-symbols
+ '("documentclass"
+ LaTeX-prosper-insert-options
+ LaTeX-prosper-insert-title)
+ '("title" "Title of the presentation")
+ '("subtitle" "Subtitle of the presentation")
+ '("author" "Author name")
+ '("email" "Author email")
+ '("institution" "Author institution")
+ '("slideCaption" "Caption for slide")
+ '("Logo" "Logo")
+ '("displayVersion" TeX-arg-free)
+ '("DefaultTransition"
+ LaTeX-prosper-arg-pdftransition)
+ '("NoFrenchBabelItemize" TeX-arg-free)
+ '("part" LaTeX-prosper-arg-part)
+ '("overlays" "Number of overlays" t)
+ '("FontTitle" "Color slides" "Black & White Slides")
+ '("FontText" "Color slides" "Black & White Slides")
+ '("fontTitle" "Text")
+ '("fontText" "Text")
+ '("ColorFoot" "Color")
+ '("PDFtransition" LaTeX-prosper-arg-pdftransition)
+ '("myitem" "Level" "Definition")
+ '("fromSlide" "Number" t)
+ '("fromSlide*" "Number" t)
+ '("onlySlide" "Number" t)
+ '("onlySlide*" "Number" t)
+ '("OnlySlide" "Number")
+ '("UntilSlide" "Number")
+ '("untilSlide*" "Number")
+ '("PDForPS" TeX-arg-conditional)
+ '("onlyInPS" t)
+ '("onlyInPDF" t)
+ '("FromSlide" "Number")))
+ LaTeX-dialect)
;;; prosper.el ends here
diff --git a/tex-buf.el b/tex-buf.el
index 3cc6d54..5f53661 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -1,6 +1,6 @@
;;; tex-buf.el --- External commands for AUCTeX.
-;; Copyright (C) 1991-1999, 2001-2019 Free Software Foundation, Inc.
+;; Copyright (C) 1991-1999, 2001-2020 Free Software Foundation, Inc.
;; Maintainer: auctex-devel@gnu.org
;; Keywords: tex, wp
@@ -422,11 +422,11 @@ to be run."
((= length 1)
(setq engine (car TeX-check-engine-list))
(y-or-n-p (format "%s is required to build this document.
-Do you want to use this engine?" (cdr (assoc engine name-alist)))))
+Do you want to use this engine? " (cdr (assoc engine name-alist)))))
;; More than one engine is allowed.
((> length 1)
(if (y-or-n-p (format "It appears %s are required to build this document.
-Do you want to select one of these engines?"
+Do you want to select one of these engines? "
(mapconcat
(lambda (elt) (cdr (assoc elt name-alist)))
TeX-check-engine-list ", ")))
@@ -449,7 +449,7 @@ Do you want to select one of these engines?"
(setq TeX-check-engine-list nil))))
(TeX-engine-set engine)
(when (and (fboundp 'add-file-local-variable)
- (y-or-n-p "Do you want to remember the choice?"))
+ (y-or-n-p "Do you want to remember the choice? "))
(add-file-local-variable 'TeX-engine engine)
(save-buffer))))))
diff --git a/tex-wizard.el b/tex-wizard.el
index b51c03a..97c7628 100644
--- a/tex-wizard.el
+++ b/tex-wizard.el
@@ -1,6 +1,6 @@
;;; tex-wizard.el --- Check the TeX configuration
-;; Copyright (C) 2003, 2006, 2016 Free Software Foundation, Inc.
+;; Copyright (C) 2003, 2006, 2016, 2020 Free Software Foundation, Inc.
;; Author: David Kastrup <dak@gnu.org>
;; Keywords: tex, wp, convenience
@@ -43,7 +43,7 @@ major mode for editing TeX/LaTeX files.\n")
(error (select-window wizwin)
(switch-to-buffer wizbuf)
(insert-before-markers "(I am unable to find AUCTeX's info file.)\n")))
- (if (prog1 (y-or-n-p "Should I try enabling AUCTeX now?")
+ (if (prog1 (y-or-n-p "Should I try enabling AUCTeX now? ")
(select-window wizwin)
(switch-to-buffer wizbuf))
(condition-case nil