acdw/emacs
acdw
/
emacs
1
2
Fork 0
Code Issues 4 Pull Requests Releases Activity

Fix acdw/define-auto-insert

This commit is contained in:
Case Duckworth 2021-10-07 18:34:13 -05:00
parent bb5d048df6
commit fcb03f1200
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/acdw-autoinsert.el
View File

@ -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