Trim whitespace in lm-keywords-list

* emacs-lisp/lisp-mnt.el (lm-keywords-list): Trim whitespace
around keywords with extra `split-string' argument.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 69d3d75e1b5f10032a7716812b8327168d7dd2f4..ec02942f2f7e7b7cf56f7748f29b0bc42d8b3a1a 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2013-12-04  Teodor Zlatanov  <tzz@lifelogs.com>
+
+       * emacs-lisp/lisp-mnt.el (lm-keywords-list): Trim whitespace
+       around keywords with extra `split-string' argument.
+
 2013-12-04  Martin Rudalics  <rudalics@gmx.at>
 
        * windmove.el (windmove-other-window-loc): Handle navigation

diff --git a/lisp/emacs-lisp/lisp-mnt.el b/lisp/emacs-lisp/lisp-mnt.el
index f2e691102d4a752684ba343e2d4a770cfb0f994f..8e8b8747a2903329bca7f749a27937c1ab9ccd98 100644 (file)
--- a/lisp/emacs-lisp/lisp-mnt.el
+++ b/lisp/emacs-lisp/lisp-mnt.el
@@ -461,8 +461,8 @@ each line."
   (let ((keywords (lm-keywords file)))
     (if keywords
        (if (string-match-p "," keywords)
-           (split-string keywords ",[ \t\n]*" t)
-         (split-string keywords "[ \t\n]+" t)))))
+           (split-string keywords ",[ \t\n]*" t "[ ]+")
+         (split-string keywords "[ \t\n]+" t "[ ]+")))))
 
 (defvar finder-known-keywords)
 (defun lm-keywords-finder-p (&optional file)