branch: externals/a68-mode
commit 18be0e1315988338e68f9ff5df9e8184ea1b77b6
Author: Omar Polo <o...@omarpolo.com>
Commit: Omar Polo <o...@omarpolo.com>
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
---
a68-mode.el | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/a68-mode.el b/a68-mode.el
index 16295bcc36..8dae6ad55b 100644
--- a/a68-mode.el
+++ b/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))
