From c8c0a9f9a6910fa99202b859090d49535da869d1 Mon Sep 17 00:00:00 2001 From: Daniel Mendler Date: Sun, 12 Dec 2021 23:55:52 +0100 Subject: Simplify --- cape.el | 17 ++++++++--------- 1 file changed, 8 insertions(+), 9 deletions(-) diff --git a/cape.el b/cape.el index 368522e..7965234 100644 --- a/cape.el +++ b/cape.el @@ -1017,17 +1017,16 @@ case sensitive instead." ;;;###autoload (defun cape-repair-misbehaving-capf (capf) "Repair a misbehaving CAPF." - (catch 'cape--misbehaving-capf + (catch 'cape--capf-result (save-mark-and-excursion (atomic-change-group - (pcase (funcall capf) - ((and res `(,beg ,end ,_table . ,_plist) - (guard (integer-or-marker-p beg)) - (guard (integer-or-marker-p end))) - (ignore beg end) - res) - (_ - (throw 'cape--misbehaving-capf nil))))))) + (throw 'cape--capf-result + (pcase (funcall capf) + ((and res `(,beg ,end ,_table . ,_plist) + (guard (integer-or-marker-p beg)) + (guard (integer-or-marker-p end))) + (ignore beg end) + res))))))) ;;;###autoload (defun cape-interactive-capf (capf) -- cgit v1.0