auctex-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[AUCTeX-diffs] [elpa] externals/auctex fb1fdc4 41/43: Fix y-or-n-p query


From: Tassilo Horn
Subject: [AUCTeX-diffs] [elpa] externals/auctex fb1fdc4 41/43: Fix y-or-n-p query prompts
Date: Sat, 11 Apr 2020 15:05:25 -0400 (EDT)

branch: externals/auctex
commit fb1fdc4105504204b1863ab15ace9a68cd3a21d0
Author: Pieter Pareit <address@hidden>
Commit: Arash Esbati <address@hidden>

    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 <address@hidden>
---
 style/prosper.el | 93 +++++++++++++++++++++++++++-----------------------------
 tex-buf.el       |  8 ++---
 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<address@hidden>
 ;;           Nevin Kapur <address@hidden>
@@ -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: address@hidden
 ;; 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 <address@hidden>
 ;; 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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]