summaryrefslogtreecommitdiff
path: root/cape.el
diff options
context:
space:
mode:
Diffstat (limited to 'cape.el')
-rw-r--r--cape.el17
1 files 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)