mirror of https://github.com/djcb/mu.git
Fix wrong cl-case usages where emacs 29 errors on byte-compilation now
This commit is contained in:
parent
243b862776
commit
3a32adc7ec
|
@ -379,14 +379,14 @@ into a string."
|
||||||
(lambda (cell)
|
(lambda (cell)
|
||||||
(if mu4e-use-fancy-chars (cdr cell) (car cell)))))
|
(if mu4e-use-fancy-chars (cdr cell) (car cell)))))
|
||||||
(cl-case type
|
(cl-case type
|
||||||
('child (funcall get-prefix mu4e-headers-thread-child-prefix))
|
(child (funcall get-prefix mu4e-headers-thread-child-prefix))
|
||||||
('first-child (funcall get-prefix mu4e-headers-thread-first-child-prefix))
|
(first-child (funcall get-prefix mu4e-headers-thread-first-child-prefix))
|
||||||
('last-child (funcall get-prefix mu4e-headers-thread-last-child-prefix))
|
(last-child (funcall get-prefix mu4e-headers-thread-last-child-prefix))
|
||||||
('connection (funcall get-prefix mu4e-headers-thread-connection-prefix))
|
(connection (funcall get-prefix mu4e-headers-thread-connection-prefix))
|
||||||
('blank (funcall get-prefix mu4e-headers-thread-blank-prefix))
|
(blank (funcall get-prefix mu4e-headers-thread-blank-prefix))
|
||||||
('orphan (funcall get-prefix mu4e-headers-thread-orphan-prefix))
|
(orphan (funcall get-prefix mu4e-headers-thread-orphan-prefix))
|
||||||
('single-orphan (funcall get-prefix mu4e-headers-thread-single-orphan-prefix))
|
(single-orphan (funcall get-prefix mu4e-headers-thread-single-orphan-prefix))
|
||||||
('duplicate (funcall get-prefix mu4e-headers-thread-duplicate-prefix))
|
(duplicate (funcall get-prefix mu4e-headers-thread-duplicate-prefix))
|
||||||
(t "?"))))
|
(t "?"))))
|
||||||
|
|
||||||
|
|
||||||
|
@ -1555,9 +1555,12 @@ user)."
|
||||||
(if (eq sortfield mu4e-headers-sort-field)
|
(if (eq sortfield mu4e-headers-sort-field)
|
||||||
(if (eq mu4e-headers-sort-direction 'ascending)
|
(if (eq mu4e-headers-sort-direction 'ascending)
|
||||||
'descending 'ascending)
|
'descending 'ascending)
|
||||||
'descending))
|
'descending)))
|
||||||
(mu4e-read-option "Direction: "
|
;; FIXME: This has been here for years but cl-case doesn't allow
|
||||||
'(("ascending" . 'ascending) ("descending" . 'descending))))))
|
;; further clauses after t or otherwise.
|
||||||
|
;; (mu4e-read-option "Direction: " '(("ascending" . 'ascending)
|
||||||
|
;; ("descending" . 'descending)))
|
||||||
|
))
|
||||||
(setq
|
(setq
|
||||||
mu4e-headers-sort-field sortfield
|
mu4e-headers-sort-field sortfield
|
||||||
mu4e-headers-sort-direction dir)
|
mu4e-headers-sort-direction dir)
|
||||||
|
|
Loading…
Reference in New Issue