commit 18be0e1315988338e68f9ff5df9e8184ea1b77b6
from: Omar Polo <op@omarpolo.com>
date: Sun Nov 07 18:47:11 2021 UTC

simplify the a68-comment-style defcustom

It doesn't really make sense to ask for both the initial and closing
comment delimiter when they are always the same, just ask for one of

    o  #
    o  CO
    o  COMMENT

commit - 16bb79908e6f7bb51fc0deb405823813c46263c4
commit + 18be0e1315988338e68f9ff5df9e8184ea1b77b6
blob - 16295bcc36ecded84511e1b532c839b622eabd7b
blob + 8dae6ad55be7a655071467da291e4ba26e741059
--- a68-mode.el
+++ a68-mode.el
@@ -57,11 +57,11 @@
   :type 'integer
   :safe #'integerp)
 
-(defcustom a68-comment-style '("#" . "#")
+(defcustom a68-comment-style "#"
   "Default comment style used by e.g. `comment-dwim'."
-  :type '(choice (const :tag "#" ("#" . "#"))
-                 (const :tag "CO" ("CO" . "CO"))
-                 (const :tag "COMMENT" ("COMMENT" . "COMMENT")))
+  :type '(choice (const "#")
+                 (const "CO")
+                 (const "COMMENT"))
   :safe #'consp)
 
 (defvar a68-mode-hook '()
@@ -224,8 +224,8 @@
   :abbrev-table a68-mode-abbrev-table
   (setq-local font-lock-defaults '(a68-font-lock-keywords))
   (setq-local indent-line-function #'a68-indent-line)
-  (setq-local comment-start (car a68-comment-style))
-  (setq-local comment-end (cdr a68-comment-style))
+  (setq-local comment-start a68-comment-style)
+  (setq-local comment-end a68-comment-style)
   (setq-local syntax-propertize-function
               (syntax-propertize-rules ((rx (group bow "COMMENT" eow)
                                             (group (*? anychar))