mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-04 11:40:22 +00:00
Code Issues Releases Activity

(indent-new-comment-line): Obey the convention

Browse Source 
about \(...\) pairs in comment-start-skip.
This commit is contained in:
Richard M. Stallman 1995-01-30 07:46:16 +00:00
parent 51566783f0
commit c52e9f0b08
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/simple.el
View File

@ -2316,8 +2316,13 @@ unless optional argument SOFT is non-nil."
(setq win (match-beginning 0)))
;; Indent this line like what we found.
(goto-char win)
;; If comment-start-skip contains a \(...\) pair,
;; the real comment delimiter starts at the end of that pair.
(if (match-end 1)
(goto-char (match-end 1)))
(setq comcol (current-column))
(setq comstart (buffer-substring (point) (match-end 0)))))))
(setq comstart
(buffer-substring (point) (match-end 0)))))))
(if comcol
(let ((comment-column comcol)
(comment-start comstart)