procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add block-comment variables to cc-mode.

Browse source 
* lisp/progmodes/cc-cmds.el (c-indent-new-comment-line):
Add block-comment-start and block-comment-end
* lisp/progmodes/cc-mode.el (c-basic-common-init):
Declare block-comment-start and block-comment-end buffer-local.
* lisp/emacs-lisp/lisp-mode.el (lisp-mode-variables): Move
block-comment variables ...
(lisp-mode): ... to here.  (Bug#77424)
This commit is contained in:
Elías Gabriel Pérez 2025-04-13 12:26:08 -06:00 • committed by Eli Zaretskii
parent 788c9cfb62
commit 74842b4cb2
3 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/emacs-lisp/lisp-mode.el
View file

@ -701,8 +701,6 @@ font-lock keywords will not be case sensitive."
(setq-local add-log-current-defun-function #'lisp-current-defun-name)
(setq-local comment-start ";")
(setq-local comment-start-skip ";+ *")
(setq-local block-comment-start "#|")
(setq-local block-comment-end "|#")
(setq-local comment-add 1) ;default to `;;' in comment-region
(setq-local comment-column 40)
(setq-local comment-use-syntax t)
@ -830,6 +828,8 @@ or to switch back to an existing one."
"\\(\\(^\\|[^\\\n]\\)\\(\\\\\\\\\\)*\\)\\(;+\\|#|\\) *")
(setq-local comment-end-skip "[ \t]*\\(\\s>\\||#\\)")
(setq-local font-lock-comment-end-skip "|#")
(setq-local block-comment-start "#|")
(setq-local block-comment-end "|#")
(setq imenu-case-fold-search t))
(defun lisp-find-tag-default ()

1
lisp/progmodes/cc-cmds.el
View file

@ -5015,6 +5015,7 @@ If a fill prefix is specified, it overrides all the above."
(setq comment-start "/* " comment-end " */"))
(unless (string-match "[ \t]*//" comment-start)
(setq comment-start "// " comment-end "")))
(setq block-comment-start "/*" block-comment-end "*/")
(setq col (save-excursion
(back-to-indentation)
(current-column)))

2
lisp/progmodes/cc-mode.el
View file

@ -610,6 +610,8 @@ that requires a literal mode spec at compile time."
(make-local-variable 'comment-start)
(make-local-variable 'comment-end)
(make-local-variable 'comment-start-skip)
(make-local-variable 'block-comment-start)
(make-local-variable 'block-comment-end)
(make-local-variable 'paragraph-start)
(make-local-variable 'paragraph-separate)