[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master e4f957f: Fix compilation warning in mh-*.el
From: |
Lars Ingebrigtsen |
Subject: |
[Emacs-diffs] master e4f957f: Fix compilation warning in mh-*.el |
Date: |
Mon, 29 Jul 2019 08:03:49 -0400 (EDT) |
branch: master
commit e4f957fb0794b5616deb0abf792e11132c06e3a9
Author: Lars Ingebrigtsen <address@hidden>
Commit: Lars Ingebrigtsen <address@hidden>
Fix compilation warning in mh-*.el
* 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.
---
lisp/mh-e/mh-search.el | 2 +-
lisp/mh-e/mh-speed.el | 2 +-
2 files changed, 2 insertions(+), 2 deletions(-)
diff --git a/lisp/mh-e/mh-search.el b/lisp/mh-e/mh-search.el
index c017bae..ca74b2e 100644
--- a/lisp/mh-e/mh-search.el
+++ b/lisp/mh-e/mh-search.el
@@ -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))
diff --git a/lisp/mh-e/mh-speed.el b/lisp/mh-e/mh-speed.el
index 3e89d1b..fc661c8 100644
--- a/lisp/mh-e/mh-speed.el
+++ b/lisp/mh-e/mh-speed.el
@@ -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)))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master e4f957f: Fix compilation warning in mh-*.el,
Lars Ingebrigtsen <=