88 |
) |
) |
89 |
|
|
90 |
(defgroup delphi nil |
(defgroup delphi nil |
91 |
"Major mode for editing Delphi source in Emacs" |
"Major mode for editing Delphi source in Emacs." |
92 |
:version "21.1" |
:version "21.1" |
93 |
:group 'languages) |
:group 'languages) |
94 |
|
|
1510 |
(set-marker-insertion-type marked-point t) |
(set-marker-insertion-type marked-point t) |
1511 |
(when (/= old-indent new-indent) |
(when (/= old-indent new-indent) |
1512 |
(delete-region line-start (point)) |
(delete-region line-start (point)) |
1513 |
(insert (make-string new-indent ?\ ))) |
(insert (make-string new-indent ?\s))) |
1514 |
(goto-char marked-point) |
(goto-char marked-point) |
1515 |
(set-marker marked-point nil)))) |
(set-marker marked-point nil)))) |
1516 |
|
|
1775 |
(comment-end (delphi-token-end end-comment)) |
(comment-end (delphi-token-end end-comment)) |
1776 |
(content-start (delphi-comment-content-start start-comment)) |
(content-start (delphi-comment-content-start start-comment)) |
1777 |
(content-indent (delphi-column-of content-start)) |
(content-indent (delphi-column-of content-start)) |
1778 |
(content-prefix (make-string content-indent ?\ )) |
(content-prefix (make-string content-indent ?\s)) |
1779 |
(content-prefix-re delphi-leading-spaces-re) |
(content-prefix-re delphi-leading-spaces-re) |
1780 |
(p nil) |
(p nil) |
1781 |
(marked-point (point-marker))) ; Maintain our position reliably. |
(marked-point (point-marker))) ; Maintain our position reliably. |
1783 |
;; // style comments need more work. |
;; // style comments need more work. |
1784 |
(setq content-prefix |
(setq content-prefix |
1785 |
(let ((comment-indent (delphi-column-of comment-start))) |
(let ((comment-indent (delphi-column-of comment-start))) |
1786 |
(concat (make-string comment-indent ?\ ) "//" |
(concat (make-string comment-indent ?\s) "//" |
1787 |
(make-string (- content-indent comment-indent 2) |
(make-string (- content-indent comment-indent 2) |
1788 |
?\ ))) |
?\s))) |
1789 |
content-prefix-re (concat delphi-leading-spaces-re |
content-prefix-re (concat delphi-leading-spaces-re |
1790 |
"//" |
"//" |
1791 |
delphi-spaces-re) |
delphi-spaces-re) |
1857 |
(comment-start (delphi-token-start start-comment)) |
(comment-start (delphi-token-start start-comment)) |
1858 |
(content-start (delphi-comment-content-start start-comment)) |
(content-start (delphi-comment-content-start start-comment)) |
1859 |
(prefix |
(prefix |
1860 |
(concat (make-string (delphi-column-of comment-start) ?\ ) "//" |
(concat (make-string (delphi-column-of comment-start) ?\s) "//" |
1861 |
(make-string (- content-start comment-start 2) ?\ )))) |
(make-string (- content-start comment-start 2) ?\s)))) |
1862 |
(delete-horizontal-space) |
(delete-horizontal-space) |
1863 |
(newline) |
(newline) |
1864 |
(insert prefix))))) |
(insert prefix))))) |