[nongnu] elpa/sweeprolog 2d1a7bbb39 1/5: Use define-auto-insert instead of manual add-to-list

[ELPA Syncer]

branch: elpa/sweeprolog
commit 2d1a7bbb3932784444704f73e721a6d8b93b7cc8
Author: Eshel Yaron <me@eshelyaron.com>
Commit: Eshel Yaron <me@eshelyaron.com>

    Use define-auto-insert instead of manual add-to-list
---
 sweeprolog.el | 44 ++++++++++++++++++++++++++------------------
 1 file changed, 26 insertions(+), 18 deletions(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index 56f7277bbd..36523e56c6 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -3348,24 +3348,32 @@ certain contexts to maintain conventional Prolog 
layout."
               #'sweeprolog-analyze-fragment-variable nil t)
     (cursor-sensor-mode 1)))
 
-(add-to-list 'auto-insert-alist
-             '((sweeprolog-mode . "SWI-Prolog module header")
-               (or (and (buffer-file-name)
-                        (file-name-sans-extension (file-name-base 
(buffer-file-name))))
-                   (read-string "Module name: "))
-               "/*"
-               "\n    Author:        "
-               (progn user-full-name)
-               "\n    Email:         "
-               (progn user-mail-address)
-               (progn sweeprolog-module-header-comment-skeleton)
-               "\n*/"
-               "\n\n:- module("
-               str
-               ", [])."
-               "\n\n/** <module> "
-               -
-               "\n\n*/\n\n"))
+
+;;;; Auto-insert Prolog module header
+
+(defconst sweeprolog-module-header-skeleton
+  '((or (and (buffer-file-name)
+             (file-name-sans-extension
+              (file-name-base (buffer-file-name))))
+        (read-string "Module name: "))
+    "/*"
+    "\n    Author:        "
+    (progn user-full-name)
+    "\n    Email:         "
+    (progn user-mail-address)
+    (progn sweeprolog-module-header-comment-skeleton)
+    "\n*/"
+    "\n\n:- module("
+    str
+    ", [])."
+    "\n\n/** <module> "
+    -
+    "\n\n*/\n\n")
+  "Prolog module header skeleton inserted by \\[auto-insert].")
+
+(define-auto-insert
+  '(sweeprolog-mode . "SWI-Prolog module header")
+  sweeprolog-module-header-skeleton)
 
 
 ;;;; Indentation