diff options
| author | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-29 14:03:37 +0200 |
|---|---|---|
| committer | Lars Ingebrigtsen <larsi@gnus.org> | 2019-07-29 14:03:43 +0200 |
| commit | e4f957fb0794b5616deb0abf792e11132c06e3a9 (patch) | |
| tree | ad2da518ed7e474853516fbe36e2eff4967c66c3 /lisp/mh-e | |
| parent | 72b054c945111f385575cfd4e678adf016b191d4 (diff) | |
| download | emacs-e4f957fb0794b5616deb0abf792e11132c06e3a9.tar.gz | |
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.
Diffstat (limited to 'lisp/mh-e')
| -rw-r--r-- | lisp/mh-e/mh-search.el | 2 | ||||
| -rw-r--r-- | 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 c017baec66b..ca74b2e936e 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 3e89d1b65e9..fc661c882ee 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))) |