481 |
;; Some comment-indent-function insist on not moving comments that |
;; Some comment-indent-function insist on not moving comments that |
482 |
;; are in column 0, so we first go to the likely target column. |
;; are in column 0, so we first go to the likely target column. |
483 |
(indent-to comment-column) |
(indent-to comment-column) |
|
(setq begpos (point)) |
|
484 |
;; Ensure there's a space before the comment for things |
;; Ensure there's a space before the comment for things |
485 |
;; like sh where it matters (as well as being neater). |
;; like sh where it matters (as well as being neater). |
486 |
(unless (eq ?\ (char-syntax (char-before))) |
(unless (memq (char-before) '(nil ?\n ?\t ?\ )) |
487 |
(insert ?\ )) |
(insert ?\ )) |
488 |
|
(setq begpos (point)) |
489 |
(insert starter) |
(insert starter) |
490 |
(setq cpos (point-marker)) |
(setq cpos (point-marker)) |
491 |
(insert ender))) |
(insert ender))) |