865 |
(>= (point) beg)) |
(>= (point) beg)) |
866 |
(progn (goto-char end) (end-of-line) (skip-syntax-backward " ") |
(progn (goto-char end) (end-of-line) (skip-syntax-backward " ") |
867 |
(<= (point) end)) |
(<= (point) end)) |
868 |
(or (not (string= "" comment-end)) block) |
(or block (not (string= "" comment-end))) |
869 |
(progn (goto-char beg) (search-forward "\n" end t))))) |
(or block (progn (goto-char beg) (search-forward "\n" end t)))))) |
870 |
|
|
871 |
;; don't add end-markers just because the user asked for `block' |
;; don't add end-markers just because the user asked for `block' |
872 |
(unless (or lines (string= "" comment-end)) (setq block nil)) |
(unless (or lines (string= "" comment-end)) (setq block nil)) |