From aa27fb5041392253bab8475bd9e3924112090157 Mon Sep 17 00:00:00 2001 From: Pieter Pareit Date: Sun, 9 Feb 2020 10:55:46 +0100 Subject: [PATCH] Fix y-or-n-p questions not ending with a space --- style/prosper.el | 2 +- tex-buf.el | 6 +++--- tex-wizard.el | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/style/prosper.el b/style/prosper.el index 5e0c6d8f..911b006b 100644 --- a/style/prosper.el +++ b/style/prosper.el @@ -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 diff --git a/tex-buf.el b/tex-buf.el index 3cc6d542..63b3448d 100644 --- a/tex-buf.el +++ b/tex-buf.el @@ -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 b51c03a3..31610f1f 100644 --- a/tex-wizard.el +++ b/tex-wizard.el @@ -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 -- 2.24.1