Mark ;#@ as :safe for asm-comment-char

* lisp/progmodes/asm-mode.el (asm--safe-comment-char-p): New function
that returns true for characters #, @, and ;.
(asm-comment-char): Use new function as :safe predicate.
This commit is contained in:
Stefan Kangas 2023-12-10 22:06:54 +01:00
parent c3b41c123a
commit 9ee911ce31

View file

@ -1,6 +1,6 @@
;;; asm-mode.el --- mode for editing assembler code -*- lexical-binding: t; -*-
;; Copyright (C) 1991, 2001-2023 Free Software Foundation, Inc.
;; Copyright (C) 1991-2023 Free Software Foundation, Inc.
;; Author: Eric S. Raymond <esr@thyrsus.com>
;; Maintainer: emacs-devel@gnu.org
@ -52,9 +52,13 @@
:link '(custom-group-link :tag "Font Lock Faces group" font-lock-faces)
:group 'languages)
(defun asm--safe-comment-char-p (char)
(memq char '(?\; ?# ?@)))
(defcustom asm-comment-char ?\;
"The `comment-start' character assumed by Asm mode."
:type 'character)
:type 'character
:safe #'asm--safe-comment-char-p)
(defvar asm-mode-syntax-table
(let ((st (make-syntax-table)))