commit - 4fcb92ee43ab536003156c406ec907396cc65253
commit + 29b924fd43b15816a5a7d581a2c1973479536b3e
blob - 496f4a59b5b124b2fc43fa6432dae6c7f274f170
blob + e9458e104956d562b2a5f47f6ea8b10ea32b8284
--- a68-mode.el
+++ a68-mode.el
:type 'integer
:safe #'integerp)
+(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")))
+ :safe #'consp)
+
(defvar a68-mode-hook '()
"Hook run when entering Algol68 mode.")
: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 "#")
- (setq-local comment-end "#")
+ (setq-local comment-start (car a68-comment-style))
+ (setq-local comment-end (cdr a68-comment-style))
(setq-local syntax-propertize-function
(syntax-propertize-rules ((rx (group bow "COMMENT" eow)
(group (*? anychar))