Function: generic-set-comment-vars

generic-set-comment-vars is a byte-compiled function defined in generic.el.gz.

Signature

(generic-set-comment-vars COMMENT-LIST)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/generic.el.gz
(defun generic-set-comment-vars (comment-list)
  (when comment-list
    (setq-local comment-start (caar comment-list))
    (setq-local comment-end
                (let ((end (cdar comment-list)))
                  (if (string-equal end "\n") "" end)))
    (setq-local comment-start-skip
                (concat (regexp-opt (mapcar #'car comment-list))
                        "+[ \t]*"))
    (setq-local comment-end-skip
                (concat "[ \t]*" (regexp-opt (mapcar #'cdr comment-list))))))