andros/emacs-gpu
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(delphi): Finish `defgroup' description with period.

Browse source 
(delphi-indent-line, delphi-fill-comment, delphi-new-comment-line):
"?\ " -> "?\s".
This commit is contained in:
Juanma Barranquero 2005-07-04 02:58:48 +00:00
parent 7a5c82539d
commit 759570c036
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
lisp/progmodes/delphi.el
View file

@ -88,7 +88,7 @@
)
(defgroup delphi nil
"Major mode for editing Delphi source in Emacs"
"Major mode for editing Delphi source in Emacs."
:version "21.1"
:group 'languages)
@ -1510,7 +1510,7 @@ before the indent, the point is moved to the indent."
(set-marker-insertion-type marked-point t)
(when (/= old-indent new-indent)
(delete-region line-start (point))
(insert (make-string new-indent ?\ )))
(insert (make-string new-indent ?\s)))
(goto-char marked-point)
(set-marker marked-point nil))))
@ -1775,7 +1775,7 @@ An error is raised if not in a comment."
(comment-end (delphi-token-end end-comment))
(content-start (delphi-comment-content-start start-comment))
(content-indent (delphi-column-of content-start))
(content-prefix (make-string content-indent ?\ ))
(content-prefix (make-string content-indent ?\s))
(content-prefix-re delphi-leading-spaces-re)
(p nil)
(marked-point (point-marker))) ; Maintain our position reliably.
@ -1783,9 +1783,9 @@ An error is raised if not in a comment."
;; // style comments need more work.
(setq content-prefix
(let ((comment-indent (delphi-column-of comment-start)))
(concat (make-string comment-indent ?\ ) "//"
(concat (make-string comment-indent ?\s) "//"
(make-string (- content-indent comment-indent 2)
?\ )))
?\s)))
content-prefix-re (concat delphi-leading-spaces-re
"//"
delphi-spaces-re)
@ -1857,8 +1857,8 @@ comment block. If not in a // comment, just does a normal newline."
(comment-start (delphi-token-start start-comment))
(content-start (delphi-comment-content-start start-comment))
(prefix
(concat (make-string (delphi-column-of comment-start) ?\ ) "//"
(make-string (- content-start comment-start 2) ?\ ))))
(concat (make-string (delphi-column-of comment-start) ?\s) "//"
(make-string (- content-start comment-start 2) ?\s))))
(delete-horizontal-space)
(newline)
(insert prefix)))))