Function: csv-set-comment-start
csv-set-comment-start is an interactive and natively compiled function
defined in csv-mode.el.
Signature
(csv-set-comment-start STRING)
Documentation
Set comment start for this CSV mode buffer to STRING.
It must be either a string or nil.
Key Bindings
csv-mode-map C-c C-c
Source Code
;; Defined in /nix/store/3gmjnyw9n226b7k7jamikx980vf8267p-emacs-packages-deps/share/emacs/site-lisp/elpa/csv-mode-1.27/csv-mode.el
(defun csv-set-comment-start (string)
"Set comment start for this CSV mode buffer to STRING.
It must be either a string or nil."
(interactive
(list (edit-and-eval-command
"Comment start (string or nil): " csv-comment-start)))
;; Paragraph means a group of contiguous records:
(set (make-local-variable 'paragraph-separate) "[[:space:]]*$") ; White space.
(set (make-local-variable 'paragraph-start) "\n");Must include \n explicitly!
;; Remove old comment-start/end if available
(with-syntax-table text-mode-syntax-table
(when comment-start
(modify-syntax-entry (string-to-char comment-start)
(string (char-syntax (string-to-char comment-start)))
csv-mode-syntax-table))
(modify-syntax-entry ?\n
(string (char-syntax ?\n))
csv-mode-syntax-table))
(when string
(setq paragraph-separate (concat paragraph-separate "\\|" string)
paragraph-start (concat paragraph-start "\\|" string))
(set (make-local-variable 'comment-start) string)
(modify-syntax-entry
(string-to-char string) "<" csv-mode-syntax-table)
(modify-syntax-entry ?\n ">" csv-mode-syntax-table))
(setq csv-comment-start string))