From fcb03f1200560aab458255f7767bb7ad4e98b171 Mon Sep 17 00:00:00 2001 From: Case Duckworth Date: Thu, 7 Oct 2021 18:34:13 -0500 Subject: [PATCH] Fix acdw/define-auto-insert --- lisp/acdw-autoinsert.el | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/lisp/acdw-autoinsert.el b/lisp/acdw-autoinsert.el index a89bc80..bc0810a 100644 --- a/lisp/acdw-autoinsert.el +++ b/lisp/acdw-autoinsert.el @@ -42,14 +42,17 @@ OPTIONS is a plist with three optional arguments: (declare (indent 1)) (let ((testfn (or (plist-get options :testfn) (lambda (a b) - (string= (cdr a) (cdar b))))) + (string= (cdr-safe a) (cdar b))))) (replace (or (plist-get options :replace) nil)) (after (or (plist-get options :after) nil))) - (when replace - (setq auto-insert-alist - (assoc-delete-all condition auto-insert-alist testfn))) - (unless (assoc (list condition) auto-insert-alist testfn) - (define-auto-insert condition action after)))) + (if replace + (progn (setq auto-insert-alist + (assoc-delete-all (list condition) + auto-insert-alist + testfn)) + (define-auto-insert condition action after)) + (unless (assoc (list condition) auto-insert-alist testfn) + (define-auto-insert condition action after))))) (provide 'acdw-autoinsert) ;;; acdw-autoinsert.el ends here