From: Ted Zlatanov <tzz@lifelogs.com>
Date: Wed, 4 Dec 2013 21:32:05 +0000 (-0500)
Subject: Trim whitespace in lm-keywords-list
X-Git-Tag: emacs-24.3.90~173^2^2~42^2~45^2~387^2~554
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=39eb08995a79187ae645e06ed74953af0184c497;p=emacs.git

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 69d3d75e1b5..ec02942f2f7 100644
--- 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 f2e691102d4..8e8b8747a29 100644
--- 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)