ispell.el (ispell-add-per-file-word-list): Use `concat' to create string for insertion.

Fixes: debbugs:8579

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bc635487254ad8c61782c15d73fde6d0d04e3b32..9cd90366e1165715eec03ee8a95be33841fa081b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2011-05-03  Agustín Martín Domingo  <agustin.martin@hispalinux.es>
+
+       * textmodes/ispell.el (ispell-add-per-file-word-list):
+       Use `concat' for string.
+
 2011-05-03  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * textmodes/bibtex.el (bibtex-fill-field-bounds, bibtex-fill-entry):

diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el
index a65ed227124aad8b8426d51179e64c1043ecf55a..c196218feec6cef7d5afa57358809bcb066c1b3a 100644 (file)
--- a/lisp/textmodes/ispell.el
+++ b/lisp/textmodes/ispell.el
@@ -3916,7 +3916,7 @@ Both should not be used to define a buffer-local dictionary."
                    (open-line 1)
                    (unless found (newline))
                    (insert (if comment-start
-                                (progn
+                                (concat
                                   (if (fboundp 'comment-padright)
                                       ;; Try and use the proper comment marker,
                                       ;; e.g. ";;" rather than ";".