[Emacs-diffs] trunk r115381: Trim whitespace in lm-keywords-list

[Teodor Zlatanov]

------------------------------------------------------------
revno: 115381
revision-id: address@hidden
parent: address@hidden
committer: Ted Zlatanov <address@hidden>
branch nick: quickfixes
timestamp: Wed 2013-12-04 16:32:05 -0500
message:
  Trim whitespace in lm-keywords-list
  
  * emacs-lisp/lisp-mnt.el (lm-keywords-list): Trim whitespace
  around keywords with extra `split-string' argument.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/emacs-lisp/lisp-mnt.el    lispmnt.el-20091113204419-o5vbwnq5f7feedwu-500

=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-12-04 14:22:50 +0000
+++ b/lisp/ChangeLog    2013-12-04 21:32:05 +0000
@@ -1,3 +1,8 @@
+2013-12-04  Teodor Zlatanov  <address@hidden>
+
+       * emacs-lisp/lisp-mnt.el (lm-keywords-list): Trim whitespace
+       around keywords with extra `split-string' argument.
+
 2013-12-04  Martin Rudalics  <address@hidden>
 
        * windmove.el (windmove-other-window-loc): Handle navigation

=== modified file 'lisp/emacs-lisp/lisp-mnt.el'
--- a/lisp/emacs-lisp/lisp-mnt.el       2013-01-02 16:13:04 +0000
+++ b/lisp/emacs-lisp/lisp-mnt.el       2013-12-04 21:32:05 +0000
@@ -461,8 +461,8 @@
   (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)