diff options
| author | Pieter Pareit <pieter.pareit@gmail.com> | 2020-04-09 21:29:20 +0200 |
|---|---|---|
| committer | Arash Esbati <arash@gnu.org> | 2020-04-09 21:29:20 +0200 |
| commit | fb1fdc4105504204b1863ab15ace9a68cd3a21d0 (patch) | |
| tree | 5c0a61c9b27e5d36d36a57d3b79f982ff39064e7 | |
| parent | 240476c75e6ab2dd5d7b9398b99f43c3787764c4 (diff) | |
| download | auctex-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.el | 93 | ||||
| -rw-r--r-- | tex-buf.el | 8 | ||||
| -rw-r--r-- | tex-wizard.el | 4 |
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 @@ -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 |
