branch: externals/ilist
commit c9b456103ce867678357d64bf64627b79acd25a6
Author: JSDurand <mmem...@gmail.com>
Commit: JSDurand <mmem...@gmail.com>
Fix errors and byte-compile
* ilist.el (ilist-string, ilist-get-marks, ilist-current-status): Fix
errors discovered by flymake.
* ilist.elc: byte-compile the file.
---
ilist.el | 9 +++------
ilist.elc | Bin 0 -> 24836 bytes
2 files changed, 3 insertions(+), 6 deletions(-)
diff --git a/ilist.el b/ilist.el
index 904a4755cd..c910c1295d 100644
--- a/ilist.el
+++ b/ilist.el
@@ -542,9 +542,7 @@ trailing spaces."
(concat title-sep (string #xa))
'ilist-title-sep t))
;; transform back to the format we want
- (let ((len (length group-strs))
- (index 0)
- last-row)
+ (let ((index 0))
(mapcar
(lambda (element)
(setq index (1+ index))
@@ -561,7 +559,6 @@ trailing spaces."
;; rows
(mapconcat
(lambda (row)
- (setq last-row row)
(propertize
(concat
(mapconcat
@@ -807,7 +804,7 @@ If END is non-nil, it specifies the end of the search."
;;;; find marks
(defun ilist-get-marks ()
- "Return the list of marks on the line.
+ "Return the list of mark characters on the line.
The marks are in descending order, i.e. the mark that occurs
later on the line come earlier in the result list.
@@ -869,7 +866,7 @@ This just sets the text property of `ilist-mark-column' to
t."
;;;; list of items and their marks
(defun ilist-current-status ()
- "Return the list of items and their marks."
+ "Return the list of items and their mark characters."
(ilist-map-lines
(lambda ()
(cons (get-text-property
diff --git a/ilist.elc b/ilist.elc
new file mode 100644
index 0000000000..c5c4298403
Binary files /dev/null and b/ilist.elc differ
