update packages
This commit is contained in:
@@ -230,7 +230,7 @@ If INTERNAL non-nil then include internal buffers."
|
||||
(not (string= " " (substring head 0 1))))
|
||||
(when (or special ;; check if no star are in the front and back
|
||||
(and (not (string= "*" (substring head 0 1)))
|
||||
(not (string= "*" (subseq head -1)))))
|
||||
(not (string= "*" (cl-subseq head -1)))))
|
||||
(push head new-list)))
|
||||
(setq b-list (cdr b-list)))
|
||||
(nreverse new-list)))
|
||||
@@ -241,7 +241,7 @@ If INTERNAL non-nil then include internal buffers."
|
||||
(while b-list
|
||||
(setq head (car b-list))
|
||||
(when (and (string= "*" (substring head 0 1))
|
||||
(string= "*" (subseq head -1)))
|
||||
(string= "*" (cl-subseq head -1)))
|
||||
(push head new-list))
|
||||
(setq b-list (cdr b-list)))
|
||||
(nreverse new-list)))
|
||||
|
||||
Reference in New Issue
Block a user