289 |
|
|
290 |
;; Go through all the comments |
;; Go through all the comments |
291 |
(dolist (start comment-list) |
(dolist (start comment-list) |
292 |
(let ((end ?\n) (comstyle "")) |
(let ((end nil) (comstyle "")) |
293 |
;; Normalize |
;; Normalize |
294 |
(when (consp start) |
(when (consp start) |
295 |
(setq end (or (cdr start) end)) |
(setq end (or (cdr start) end)) |
296 |
(setq start (car start))) |
(setq start (car start))) |
297 |
(when (char-valid-p start) (setq start (char-to-string start))) |
(when (char-valid-p start) (setq start (char-to-string start))) |
298 |
(when (char-valid-p end) (setq end (char-to-string end))) |
(cond |
299 |
|
((char-valid-p end) (setq end (char-to-string end))) |
300 |
|
((zerop (length end)) (setq end "\n"))) |
301 |
|
|
302 |
;; Setup the vars for `comment-region' |
;; Setup the vars for `comment-region' |
303 |
(if comment-start |
(if comment-start |
416 |
|
|
417 |
(provide 'generic) |
(provide 'generic) |
418 |
|
|
419 |
;;; arch-tag: 239c1fc4-1303-48d9-9ac0-657d655669ea |
;; arch-tag: 239c1fc4-1303-48d9-9ac0-657d655669ea |
420 |
;;; generic.el ends here |
;;; generic.el ends here |