From 12097c1eba02a86b7bf9ef849b517d2d3d6ae326 Mon Sep 17 00:00:00 2001 From: nik gaffney Date: Sun, 5 Jan 2020 10:12:31 +1030 Subject: [PATCH] Kulundu, 220 Stephania, Bharosa, Ekka (carriage) & Cheng Shiqing. --- litanize.el | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/litanize.el b/litanize.el index 42027df..d138a2e 100644 --- a/litanize.el +++ b/litanize.el @@ -32,7 +32,7 @@ ;; from random wikipedia titles as an exercise in ontography, metaphorism, ;; and carpentry ;; -;; Currently uses random wikipedia titles as elements. Might be extended to +;; Currently uses random wikipedia titles as elements. Might be extended to ;; use other lists in other futures. ;; ;; 'M-x litanize' will generate a litany in a new buffer @@ -85,7 +85,7 @@ (litanize-litany 5)) ;;;###autoload -(defun insert-litany () +(defun litanize-at-point () "Create a Latour Litany at the current point." (interactive) (dotimes (i 5) @@ -94,6 +94,10 @@ ((= i 3) (insert " & ")) ((= i 4) (insert "."))))) +;; provide an alias to 'insert-litany' avoid potential name collisions +(when (not (fboundp 'insert-litany)) + (fset 'insert-litany #'litanize-at-point)) + (provide 'litanize) ;;; litanize.el ends here