mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-05 20:43:08 +00:00
Code Issues Releases Activity

Fix compilation warning in mh-*.el

Browse Source 
* lisp/mh-e/mh-speed.el (mh-speed-parse-flists-output):
* lisp/mh-e/mh-search.el (mh-index-parse-search-regexp): Avoid
warning about `values-list' by using `cl-values-list' insead.
This commit is contained in:
Lars Ingebrigtsen 2019-07-29 14:03:37 +02:00
parent 72b054c945
commit e4f957fb07
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lisp/mh-e/mh-search.el
View File

@ -717,7 +717,7 @@ parsed."
((equal token "and") (push 'and op-stack))
((equal token ")")
(multiple-value-setq (op-stack operand-stack)
(values-list (mh-index-evaluate op-stack operand-stack)))
(cl-values-list (mh-index-evaluate op-stack operand-stack)))
(when (eq (car op-stack) 'not)
(setq op-stack (cdr op-stack))
(push `(not ,(pop operand-stack)) operand-stack))

2
lisp/mh-e/mh-speed.el
View File

@ -452,7 +452,7 @@ be handled next."
(substring output position line-end))
mh-speed-partial-line "")
(multiple-value-setq (folder unseen total)
(values-list
(cl-values-list
(mh-parse-flist-output-line line mh-speed-current-folder)))
(when (and folder unseen total
(let ((old-pair (gethash folder mh-speed-flists-cache)))