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)) (declare (indent 1))
(let ((testfn (or (plist-get options :testfn) (let ((testfn (or (plist-get options :testfn)
(lambda (a b) (lambda (a b)
(string= (cdr a) (cdar b))))) (string= (cdr-safe a) (cdar b)))))
(replace (or (plist-get options :replace) nil)) (replace (or (plist-get options :replace) nil))
(after (or (plist-get options :after) nil))) (after (or (plist-get options :after) nil)))
(when replace (if replace
(setq auto-insert-alist (progn (setq auto-insert-alist
(assoc-delete-all condition auto-insert-alist testfn))) (assoc-delete-all (list condition)
(unless (assoc (list condition) auto-insert-alist testfn) auto-insert-alist
(define-auto-insert condition action after)))) testfn))
(define-auto-insert condition action after))
(unless (assoc (list condition) auto-insert-alist testfn)
(define-auto-insert condition action after)))))
(provide 'acdw-autoinsert) (provide 'acdw-autoinsert)
;;; acdw-autoinsert.el ends here ;;; acdw-autoinsert.el ends here