[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r115381: Trim whitespace in lm-keywords-list
From: |
Teodor Zlatanov |
Subject: |
[Emacs-diffs] trunk r115381: Trim whitespace in lm-keywords-list |
Date: |
Wed, 04 Dec 2013 21:31:28 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
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)
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r115381: Trim whitespace in lm-keywords-list,
Teodor Zlatanov <=