commit - 16bb79908e6f7bb51fc0deb405823813c46263c4
commit + 18be0e1315988338e68f9ff5df9e8184ea1b77b6
blob - 16295bcc36ecded84511e1b532c839b622eabd7b
blob + 8dae6ad55be7a655071467da291e4ba26e741059
--- a68-mode.el
+++ a68-mode.el
: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 '()
: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))