Function: generic--normalize-comments

generic--normalize-comments is a byte-compiled function defined in generic.el.gz.

Signature

(generic--normalize-comments COMMENT-LIST)

Source Code

;; Defined in /usr/src/emacs/lisp/emacs-lisp/generic.el.gz
;;; Comment Functionality

(defun generic--normalize-comments (comment-list)
  (let ((normalized '()))
    (dolist (start comment-list)
      (let (end)
	;; Normalize
	(when (consp start)
	  (setq end (cdr start))
	  (setq start (car start)))
	(when (characterp start) (setq start (char-to-string start)))
	(cond
	 ((characterp end)   (setq end (char-to-string end)))
	 ((zerop (length end)) (setq end "\n")))
        (push (cons start end) normalized)))
    (nreverse normalized)))