[elpa] externals/auctex 0a2d9be447 01/24: ; Fix some documentations

[Tassilo Horn]

branch: externals/auctex
commit 0a2d9be447b8c8cfb3d87d35f79b24e3f88f683e
Author: Ikumi Keita <ikumi@ikumi.que.jp>
Commit: Ikumi Keita <ikumi@ikumi.que.jp>

    ; Fix some documentations
    
    * COPYING: Sync with the official GPL3 taken from
    https://www.gnu.org/licenses/gpl-3.0.txt (resulting in 2 minor updates
    of URL)
    * doc/fdl.texi (GNU Free Documentation License): Fix spacing between
    words.
    * doc/Makefile.in: Add fdl.texi to dependencies of preview-latex.info.
    * tests/latex/latex-test.el (LaTeX-filling): Use https rather than
    http to refer to GNU web site in comment.
    (LaTeX-electric-pair-interaction): Fix a typo in comment.
    * tests/make-test-deps.emacs-lisp: Fix an incomplete sentence in
    comment.
    * latex.el (LaTeX-section-heading,LaTeX-section-title): Unify the key
    sequence expression in doc strings.
    * multi-prompt.el (multi-prompt): Delete trailing white spaces in doc
    string and codes.
    * context.el:
    * font-latex.el (font-latex-math-environments):
    (font-latex-update-math-env):
    (font-latex-find-dollar-math):
    * latex.el (LaTeX-short-caption-prompt-length):
    * tex-info.el (Texinfo-arg-nodename):
    * tex.el (TeX-view-evince-keep-focus):
    (TeX-style-hook-dialect-weight-alist):
    * texmathp.el:
    Fix spacing in comments and doc strings.
    * context.el (ConTeXt-insert-other-macro, ConTeXt-other-macro-menu):
    * latex.el (LaTeX-section-toc, LaTeX-environment-menu-entry):
    * tex-buf.el (TeX-save-document, TeX-command-default):
    (TeX-run-ispell-on-document, TeX-command-sentinel):
    (TeX-command-sequence-sentinel, TeX-error-overview-previous-error):
    * tex-style.el (LaTeX-beamer-section-labels-flag):
    (LaTeX-csquotes-quote-after-quote):
    * tex.el (TeX-source-correlate-handle-TeX-region, TeX-arg-maybe):
    Fix doc string.
    * tex.el (TeX-engine-in-engine-alist, TeX-shdex-eval):
    Fix format of error message.
    * toolbar-x.el (toolbarx-process-dropdown-group):
    Fix format of error message as well as typos.
---
 COPYING                         |  4 ++--
 context.el                      | 10 +++++-----
 doc/Makefile.in                 |  2 +-
 doc/fdl.texi                    |  2 +-
 font-latex.el                   |  6 +++---
 latex.el                        | 14 +++++++-------
 multi-prompt.el                 | 10 +++++-----
 tests/latex/latex-test.el       |  4 ++--
 tests/make-test-deps.emacs-lisp |  2 +-
 tex-buf.el                      | 17 +++++++++++------
 tex-info.el                     |  2 +-
 tex-style.el                    |  4 ++--
 tex.el                          | 15 ++++++++-------
 texmathp.el                     |  6 +++---
 toolbar-x.el                    |  6 +++---
 15 files changed, 55 insertions(+), 49 deletions(-)

diff --git a/COPYING b/COPYING
index 335f6582ac..f288702d2f 100644
--- a/COPYING
+++ b/COPYING
@@ -645,7 +645,7 @@ the "copyright" line and a pointer to where the full notice 
is found.
     GNU General Public License for more details.
 
     You should have received a copy of the GNU General Public License
-    along with this program.  If not, see <http://www.gnu.org/licenses/>.
+    along with this program.  If not, see <https://www.gnu.org/licenses/>.
 
 Also add information on how to contact you by electronic and paper mail.
 
@@ -671,4 +671,4 @@ into proprietary programs.  If your program is a subroutine 
library, you
 may consider it more useful to permit linking proprietary applications with
 the library.  If this is what you want to do, use the GNU Lesser General
 Public License instead of this License.  But first, please read
-<https://www.gnu.org/philosophy/why-not-lgpl.html>.
+<https://www.gnu.org/licenses/why-not-lgpl.html>.
diff --git a/context.el b/context.el
index 139663599e..dfcb66495b 100644
--- a/context.el
+++ b/context.el
@@ -24,7 +24,7 @@
 
 ;;; Commentary:
 
-;; This is in progress ConTeXt support for AUCTeX. Please report
+;; This is in progress ConTeXt support for AUCTeX.  Please report
 ;; anomalies or things you believe should be added.
 
 ;; AUCTeX is closely interwoven with LaTeX.  We have to split up
@@ -37,10 +37,10 @@
 ;; 2. paragraph refilling doesn't work 100%, and is very slow.
 ;; 4. Remove dependency on LaTeX by moving LaTeX commands to TeX.
 ;; 5. Most ConTeXt macro's don't currently have lisp code to query for
-;;    arguments. As ConTeXt arguments are quite complex, the LaTeX way
+;;    arguments.  As ConTeXt arguments are quite complex, the LaTeX way
 ;;    of querying for arguments just doesn't cut it.
 ;; 6. Check auto-parsing: does it detect % interface=nl for example?
-;; 7. Complete adding ConTeXt macro's. Perhaps parse cont-en.xml and
+;; 7. Complete adding ConTeXt macro's.  Perhaps parse cont-en.xml and
 ;;    generate the interfaces?
 ;; 8. Add to menu: make TeX hash (mktexlsr), context format and metapost 
format.
 
@@ -161,7 +161,7 @@
   what)
 
 (defun ConTeXt-insert-other-macro (other-macro)
-  "Insert the ConTeXt other macro's macro SETUP."
+  "Insert the ConTeXt other macro's macro OTHER-MACRO."
   (insert TeX-esc (ConTeXt-other-macro-command other-macro))
   (newline)
   (indent-according-to-mode)
@@ -1400,7 +1400,7 @@ else.  There might be text before point."
   (vector entry (list 'ConTeXt-other-macro-menu entry)))
 
 (defun ConTeXt-other-macro-menu (other-macro)
-  "Insert OTHER MACRO from menu."
+  "Insert OTHER-MACRO from menu."
   (ConTeXt-insert-other-macro other-macro))
 
 
diff --git a/doc/Makefile.in b/doc/Makefile.in
index 21cc2e9145..f3931c6587 100644
--- a/doc/Makefile.in
+++ b/doc/Makefile.in
@@ -63,7 +63,7 @@ AUCTEXTEXIFILES = auctex.texi install.texi wininstall.texi 
intro.texi \
        fdl.texi version.texi
 PREVIEWTEXIFILES = copying.texi preview-faq.texi macros.texi \
        preview-dtxdoc.texi preview-latex.texi preview-problems.texi \
-       preview-readme.texi preview-todo.texi version.texi
+       preview-readme.texi preview-todo.texi fdl.texi version.texi
 DISTTEXTS = ../README ../INSTALL ../TODO ../INSTALL.windows ../FAQ ../CHANGES  
\
        ../PROBLEMS.preview
 
diff --git a/doc/fdl.texi b/doc/fdl.texi
index d30721caf7..ef31daea40 100644
--- a/doc/fdl.texi
+++ b/doc/fdl.texi
@@ -481,7 +481,7 @@ license notices just after the title page:
 @end smallexample
 
 If you have Invariant Sections, Front-Cover Texts and Back-Cover Texts,
-replace the ``with@dots{}Texts.'' line with this:
+replace the ``with@dots{}Texts.''@: line with this:
 
 @smallexample
 @group
diff --git a/font-latex.el b/font-latex.el
index 5f1f88855b..729455b617 100644
--- a/font-latex.el
+++ b/font-latex.el
@@ -1780,7 +1780,7 @@ Used for patterns like:
 (require 'texmathp)
 (defcustom font-latex-math-environments nil
   "List of math environment names for font locking.
-It is no longer recommended to customize this option. You should
+It is no longer recommended to customize this option.  You should
 customize `texmathp-tex-commands' instead because it is important
 for stable operation of font lock that this option is coherent
 with that option in addition to `texmathp-tex-commands-default'.
@@ -1799,7 +1799,7 @@ Set by `font-latex--update-math-env' and used in
 (defun font-latex-update-math-env ()
   "Update regexp to search for math environments.
 Extract environments marked as `env-on' in
-`texmathp-tex-commands1' except starred variants. Then build
+`texmathp-tex-commands1' except starred variants.  Then build
 `font-latex--match-math-envII-regexp' from them, appending the
 environments in `font-latex-math-environments'."
   ;; Make sure `texmathp-tex-commands1' is up to date.
@@ -1898,7 +1898,7 @@ The \\begin{equation} incl. arguments in the same line and
 
 (defun font-latex-find-dollar-math (limit &optional num)
   "Find dollar sign(s) before LIMIT.
-Set point just before the found $. Ignore escaped $ (\"\\$\").
+Set point just before the found $.  Ignore escaped $ (\"\\$\").
 Optional argument NUM, if non-nil, specifies the number of dollar
 signs to follow the point and must be 1 or 2.
 LIMIT must not exceed the end of buffer."
diff --git a/latex.el b/latex.el
index e1f217f9ca..ad71d28c6e 100644
--- a/latex.el
+++ b/latex.el
@@ -477,7 +477,7 @@ no label is inserted."
 (defun LaTeX-section-heading ()
   "Hook to prompt for LaTeX section name.
 Insert this hook into `LaTeX-section-hook' to allow the user to change
-the name of the sectioning command inserted with `\\[LaTeX-section]'."
+the name of the sectioning command inserted with \\[LaTeX-section]."
   (let ((string (completing-read
                  (concat "Level (default " LaTeX-name "): ")
                  LaTeX-section-list
@@ -491,16 +491,16 @@ the name of the sectioning command inserted with 
`\\[LaTeX-section]'."
 (defun LaTeX-section-title ()
   "Hook to prompt for LaTeX section title.
 Insert this hook into `LaTeX-section-hook' to allow the user to change
-the title of the section inserted with `\\[LaTeX-section]."
+the title of the section inserted with \\[LaTeX-section]."
   (setq LaTeX-title (TeX-read-string "Title: " LaTeX-title))
   (let ((region (and (TeX-active-mark)
                      (cons (region-beginning) (region-end)))))
     (when region (delete-region (car region) (cdr region)))))
 
 (defun LaTeX-section-toc ()
-  "Hook to prompt for the LaTeX section entry in the table of content .
+  "Hook to prompt for the LaTeX section entry in the table of contents.
 Insert this hook into `LaTeX-section-hook' to allow the user to insert
-a different entry for the section in the table of content."
+a different entry for the section in the table of contents."
   (setq LaTeX-toc (TeX-read-string "Toc Entry: "))
   (if (zerop (length LaTeX-toc))
       (setq LaTeX-toc nil)))
@@ -1167,7 +1167,7 @@ returned, nil if it is empty."
 
 (defcustom LaTeX-short-caption-prompt-length 40
   "The length that the caption of a figure should be before
-  propting for \\caption's optional short-version."
+propting for \\caption's optional short-version."
   :group 'LaTeX-environment
   :type 'integer)
 
@@ -5952,13 +5952,13 @@ environments."
 (defvar LaTeX-environment-menu-name "Insert Environment  (C-c C-e)")
 
 (defun LaTeX-environment-menu-entry (entry)
-  "Create an entry for the environment menu."
+  "Create an ENTRY for the environment menu."
   (vector (car entry) (list #'LaTeX-environment-menu (car entry)) t))
 
 (defvar LaTeX-environment-modify-menu-name "Change Environment  (C-u C-c C-e)")
 
 (defun LaTeX-environment-modify-menu-entry (entry)
-  "Create an entry for the change environment menu."
+  "Create an ENTRY for the change environment menu."
   (vector (car entry) (list #'LaTeX-modify-environment (car entry)) t))
 
 (defun LaTeX-section-enable-symbol (level)
diff --git a/multi-prompt.el b/multi-prompt.el
index dacc85db0b..b863271146 100644
--- a/multi-prompt.el
+++ b/multi-prompt.el
@@ -46,7 +46,7 @@
 (defun multi-prompt (separator
                      unique prompt table
                      &optional mp-predicate require-match initial history)
-  "Completing prompt for a list of strings.  
+  "Completing prompt for a list of strings.
 The first argument SEPARATOR should be the string (of length 1) to
 separate the elements in the list.  The second argument UNIQUE should
 be non-nil, if each element must be unique.  The remaining elements
@@ -73,7 +73,7 @@ are the arguments to `completing-read'.  See that."
                      (while t
                        (let ((extra (catch 'multi-prompt-next
                                       (throw 'multi-prompt-exit
-                                             (completing-read prompt 
+                                             (completing-read prompt
                                                               table
                                                               filter
                                                               require-match
@@ -81,13 +81,13 @@ are the arguments to `completing-read'.  See that."
                                                               history)))))
                          (cond ((eq extra 'back)
                                 (when multi-prompt-found
-                                  (setq prompt (substring 
-                                                prompt 0 
+                                  (setq prompt (substring
+                                                prompt 0
                                                 (- 0 (length separator)
                                                    (length
                                                     (car multi-prompt-found))))
                                         initial (car multi-prompt-found))
-                                  (setq multi-prompt-found 
+                                  (setq multi-prompt-found
                                         (cdr multi-prompt-found))))
                                (t
                                 (setq prompt (concat prompt extra separator)
diff --git a/tests/latex/latex-test.el b/tests/latex/latex-test.el
index 9c1198da50..e02b2185c1 100644
--- a/tests/latex/latex-test.el
+++ b/tests/latex/latex-test.el
@@ -132,7 +132,7 @@
 ;; `LaTeX-fill-move-to-break-point' handles it.  If the test fails, try to look
 ;; there.  The second part of the test looks for unambiguousness of
 ;; macros starting a paragraph
-;; (http://lists.gnu.org/archive/html/auctex/2017-03/msg00009.html)
+;; (https://lists.gnu.org/archive/html/auctex/2017-03/msg00009.html)
 (ert-deftest LaTeX-filling ()
   (should (string=
            (with-temp-buffer
@@ -624,7 +624,7 @@ ghi"))
           (latex-mode)
 
           ;; When `LaTeX-insert-left-brace' supplies right brace,
-          ;; `electric-pair-mode' shoudn't come into play.
+          ;; `electric-pair-mode' shouldn't come into play.
           (setq last-command-event ?\()
           (LaTeX-insert-left-brace nil)
           (should (string= "()" (buffer-string)))
diff --git a/tests/make-test-deps.emacs-lisp b/tests/make-test-deps.emacs-lisp
index cce57205d5..fd23bffb66 100644
--- a/tests/make-test-deps.emacs-lisp
+++ b/tests/make-test-deps.emacs-lisp
@@ -21,7 +21,7 @@
 
 ;;; Commentary:
 
-;; This file provides some functions and .
+;; This file provides some goodies for regression tests.
 
 ;; It has an .emacs-lisp extension because it makes the Makefile easier!
 
diff --git a/tex-buf.el b/tex-buf.el
index cdc4b06fbc..72addcb2a4 100644
--- a/tex-buf.el
+++ b/tex-buf.el
@@ -72,7 +72,10 @@
 
 (defun TeX-save-document (name-or-file-fn)
   "Save all files belonging to the current document.
-Return non-nil if document needs to be re-TeX'ed."
+Return non-nil if document needs to be re-TeX'ed.
+In Lisp program, NAME-OR-FILE-FN specifies the current document.
+It is either the master name without extension or the function
+`TeX-master-file'."
   (interactive (list #'TeX-master-file))
   (TeX-check-files (TeX--concat-ext name-or-file-fn (TeX-output-extension))
                    (cons (TeX--concat-ext name-or-file-fn) (TeX-style-list))
@@ -818,7 +821,7 @@ omitted) and `TeX-region-file'."
 (defvar TeX-command-history nil)
 
 (defun TeX-command-default (name-or-file-fn)
-  "Guess the next command to be run on NAME."
+  "Guess the next command to be run on NAME-OR-FILE-FN."
   (let ((command-next nil)
         (name (TeX--concat-ext name-or-file-fn)))
     (cond ((if (eq name-or-file-fn #'TeX-region-file)
@@ -1392,7 +1395,7 @@ expected to be a string.  NAME and FILE are ignored."
     (TeX-run-discard name command file)))
 
 (defun TeX-run-ispell-on-document (_command _ignored _name)
-  "Run ispell on all open files belonging to the current document.
+  "Run Ispell on all open files belonging to the current document.
 This function is *obsolete* and only here for compatibility
 reasons.  Use `TeX-run-function' instead."
   (interactive)
@@ -1422,7 +1425,8 @@ reasons.  Use `TeX-run-function' instead."
       (force-mode-line-update))))
 
 (defun TeX-command-sentinel (process msg)
-  "Process TeX command output buffer after the process dies."
+  "Process TeX command output buffer after the PROCESS dies.
+Insert MSG with some additional information."
   ;; Set `TeX-transient-master' here because `preview-parse-messages'
   ;; may open files and thereby trigger master file questions which we
   ;; don't want and need because we already know the master.  Use
@@ -1836,7 +1840,8 @@ Rerun to get mark in right position\\." nil t)
                      "Run LaTeX again to get index right.")))))
 
 (defun TeX-command-sequence-sentinel (process string)
-  "Call the appropriate sentinel for the current process.
+  "Call the appropriate sentinel for the current PROCESS.
+Pass two arguments PROCESS and STRING to the sentinel.
 
 If there are no errors, call back `TeX-command-sequence' using
 `TeX-command-sequence-command' as command argument, unless this
@@ -3245,7 +3250,7 @@ means move back to previous error messages."
 (defun TeX-error-overview-previous-error (&optional arg)
   "Move to the previous line and find the associated error.
 
-Prefix arg N says how many error messages to move backward (or
+Prefix ARG says how many error messages to move backward (or
 forward, if negative)."
   (interactive "p")
   (TeX-error-overview-next-error (- arg)))
diff --git a/tex-info.el b/tex-info.el
index 6a77fc5097..da9d9b963a 100644
--- a/tex-info.el
+++ b/tex-info.el
@@ -403,7 +403,7 @@ for @node."
 OPTIONAL is ignored.
 Use PROMPT as the prompt string.
 If DEFINITION is non-nil, then chosen node name is a node name to be
-added to the list of defined node names. Current implementation
+added to the list of defined node names.  Current implementation
 ignored DEFINITION as the full document is scanned for node names at
 each invocation."
   (let ((node-name (completing-read (TeX-argument-prompt optional prompt 
"Node")
diff --git a/tex-style.el b/tex-style.el
index d1b513be90..3ef92d27bd 100644
--- a/tex-style.el
+++ b/tex-style.el
@@ -58,7 +58,7 @@ Amsmath equations include \"align\", \"alignat\", 
\"xalignat\",
 ;; style/beamer.el
 
 (defcustom LaTeX-beamer-section-labels-flag nil
-  "If non-nil section labels are added"
+  "If non-nil section labels are added."
   :type 'boolean)
 
 (defcustom LaTeX-beamer-item-overlay-flag t
@@ -237,7 +237,7 @@ reinitialize affected buffers."
 ;; style/csquotes.el
 
 (defcustom LaTeX-csquotes-quote-after-quote nil
-  "Initial value of `TeX-quote-after-quote' for `csquotes.el'"
+  "Initial value of `TeX-quote-after-quote' for `csquotes.el'."
   :type 'boolean)
 
 (defcustom LaTeX-csquotes-open-quote ""
diff --git a/tex.el b/tex.el
index 03027d699b..79a5f64d58 100644
--- a/tex.el
+++ b/tex.el
@@ -1194,7 +1194,7 @@ entry in `TeX-view-program-list-builtin'."
   "Whether Emacs retains the focus when viewing PDF files with Evince.
 
 When calling `TeX-evince-sync-view', Evince normally captures the
-focus. If this option is set to non-nil, Emacs will retain the
+focus.  If this option is set to non-nil, Emacs will retain the
 focus."
   :group 'TeX-view
   :type 'boolean)
@@ -1596,7 +1596,7 @@ where an entry with the same car exists in the 
user-defined part."
 Throw an error if `engine' is not present in the alist."
   (or
    (assq engine (TeX-engine-alist))
-   (error "`%s' is not a known engine.  Valid values are: %s." engine
+   (error "Unknown engine `%s'.  Valid values are: %s" engine
           (mapconcat
            (lambda (x) (prin1-to-string (car x)))
            (TeX-engine-alist) ", "))))
@@ -1782,7 +1782,8 @@ You could use this for unusual mouse bindings.")
 (defun TeX-source-correlate-handle-TeX-region (file line col)
   "Translate backward search info with respect to `TeX-region'.
 That is, if FILE is `TeX-region', update FILE to the real tex
-file and LINE to (+ LINE offset-of-region).  Else, return nil."
+file and LINE to (+ LINE offset-of-region), but retain COL as is.
+Else, return nil."
   (when (string-equal TeX-region (file-name-sans-extension
                                   (file-name-nondirectory file)))
     (with-current-buffer (or (find-buffer-visiting file)
@@ -2884,7 +2885,7 @@ side effect for example on variable `TeX-font-list'.")
   '((:latex . 1) (:texinfo . 2) (:bibtex . 4) (:plain-tex . 8) (:context . 16)
     (:classopt . 32))
   "Association list to map dialects to binary weight, in order to
-  implement dialect sets as bitmaps."  )
+implement dialect sets as bitmaps."  )
 
 (defun TeX-shdex-eval (dialect-expr)
   "Evaluate a style hook dialect expression DIALECT-EXPR."
@@ -2892,14 +2893,14 @@ side effect for example on variable `TeX-font-list'.")
    ((symbolp dialect-expr)
     (let ((cell (assq dialect-expr TeX-style-hook-dialect-weight-alist)))
       (if cell (cdr cell)
-        (error "Invalid dialect expression : %S." dialect-expr))))
+        (error "Invalid dialect expression : %S" dialect-expr))))
    ((and (consp dialect-expr)
          (memq (car dialect-expr) '(or not and nor)))
     (apply (intern
             (concat "TeX-shdex-" (symbol-name  (car dialect-expr))))
            (cdr dialect-expr)))
    (t
-    (error "Invalid dialect expression : %S." dialect-expr))))
+    (error "Invalid dialect expression : %S" dialect-expr))))
 
 (defsubst TeX-shdex-or (&rest args)
   "OR operator for style hook dialect expressions."
@@ -3634,7 +3635,7 @@ Unless optional argument COMPLETE is non-nil, ``: '' will 
be appended."
                  (string :tag "Other")))
 
 (defun TeX-arg-maybe (symbol list form)
-  "Evaluates FORM, if SYMBOL is an element of LIST."
+  "Evaluate FORM, if SYMBOL is an element of LIST."
   (when (memq symbol list)
     (eval form t)))
 
diff --git a/texmathp.el b/texmathp.el
index 7ede010365..f02824cec1 100644
--- a/texmathp.el
+++ b/texmathp.el
@@ -52,7 +52,7 @@
 ;;  mode being on or off.
 ;;
 ;;  To configure which macros and environments influence LaTeX math
-;;  mode, customize the variable `texmathp-tex-commands'. By default
+;;  mode, customize the variable `texmathp-tex-commands'.  By default
 ;;  it recognizes the plain TeX and LaTeX core as well as AMS-LaTeX
 ;;  and packages mathtools, empheq and breqn (see the variable
 ;;  `texmathp-tex-commands-default', also as an example).
@@ -89,8 +89,8 @@
 ;;  arguments, math mode inside these optional arguments is *not* influenced
 ;;  by the macro.
 ;;
-;;  Nested \(\) and \[\] can confuse texmathp. It returns nil at AAA in the
-;;  following examples:
+;;  Nested \(\) and \[\] can confuse texmathp.  It returns nil at AAA
+;;  in the following examples:
 ;;  \[ x=y \mbox{abc \(\alpha\) cba} AAA \]
 ;;  \[ x=y \begin{minipage}{3cm} abc \[\alpha\] cba \end{minipage} AAA \]
 ;;--------------------------------------------------------------------------
diff --git a/toolbar-x.el b/toolbar-x.el
index 8f07bea08d..cdc4b98768 100644
--- a/toolbar-x.el
+++ b/toolbar-x.el
@@ -912,7 +912,7 @@ in the end of SWITCHES, which is returned."
             (setq only-symbols-flag (and only-symbols-flag (symbolp i)))))
         (let ((count 0))
           (dolist (i dropdown-list)
-            ;; list-strings and list-buttons are buildt reversed
+            ;; list-strings and list-buttons are built reversed
             (setq list-strings (cons (toolbarx-make-string-from-symbol i)
                                      list-strings))
             (setq count (1+ count))
@@ -925,9 +925,9 @@ in the end of SWITCHES, which is returned."
       ;; if not, the it must start with string
       (unless (stringp (car dropdown-list))
         (error "%s %s %s"
-               "If not all itens on dropdown are symbols, then a string"
+               "If not all items on dropdown are symbols, then a string"
                "must come before each set of buttons; no string found"
-               "in first position."))
+               "in first position"))
       (let ((count 0)
             (elem)
             (temp-list-buttons))