diff options
| author | Tassilo Horn <tsdh@gnu.org> | 2022-09-14 08:19:31 +0200 |
|---|---|---|
| committer | Dirk-Jan C. Binnema <djcb@djcbsoftware.nl> | 2022-09-14 23:27:51 +0300 |
| commit | 3a32adc7ec5ab4f41d0575e73891a54dd2a529cf (patch) | |
| tree | e8873c73656b09080a3aae58ab47d1a416074071 | |
| parent | 243b862776c1f07431e8e449c5a98003ce4cc94c (diff) | |
Fix wrong cl-case usages where emacs 29 errors on byte-compilation now
| -rw-r--r-- | mu4e/mu4e-headers.el | 25 |
1 files changed, 14 insertions, 11 deletions
diff --git a/mu4e/mu4e-headers.el b/mu4e/mu4e-headers.el index 1ae0cd7..45a2afa 100644 --- a/mu4e/mu4e-headers.el +++ b/mu4e/mu4e-headers.el @@ -379,14 +379,14 @@ into a string." (lambda (cell) (if mu4e-use-fancy-chars (cdr cell) (car cell))))) (cl-case type - ('child (funcall get-prefix mu4e-headers-thread-child-prefix)) - ('first-child (funcall get-prefix mu4e-headers-thread-first-child-prefix)) - ('last-child (funcall get-prefix mu4e-headers-thread-last-child-prefix)) - ('connection (funcall get-prefix mu4e-headers-thread-connection-prefix)) - ('blank (funcall get-prefix mu4e-headers-thread-blank-prefix)) - ('orphan (funcall get-prefix mu4e-headers-thread-orphan-prefix)) - ('single-orphan (funcall get-prefix mu4e-headers-thread-single-orphan-prefix)) - ('duplicate (funcall get-prefix mu4e-headers-thread-duplicate-prefix)) + (child (funcall get-prefix mu4e-headers-thread-child-prefix)) + (first-child (funcall get-prefix mu4e-headers-thread-first-child-prefix)) + (last-child (funcall get-prefix mu4e-headers-thread-last-child-prefix)) + (connection (funcall get-prefix mu4e-headers-thread-connection-prefix)) + (blank (funcall get-prefix mu4e-headers-thread-blank-prefix)) + (orphan (funcall get-prefix mu4e-headers-thread-orphan-prefix)) + (single-orphan (funcall get-prefix mu4e-headers-thread-single-orphan-prefix)) + (duplicate (funcall get-prefix mu4e-headers-thread-duplicate-prefix)) (t "?")))) @@ -1555,9 +1555,12 @@ user)." (if (eq sortfield mu4e-headers-sort-field) (if (eq mu4e-headers-sort-direction 'ascending) 'descending 'ascending) - 'descending)) - (mu4e-read-option "Direction: " - '(("ascending" . 'ascending) ("descending" . 'descending)))))) + 'descending))) + ;; FIXME: This has been here for years but cl-case doesn't allow + ;; further clauses after t or otherwise. + ;; (mu4e-read-option "Direction: " '(("ascending" . 'ascending) + ;; ("descending" . 'descending))) + )) (setq mu4e-headers-sort-field sortfield mu4e-headers-sort-direction dir) |