Mercurial > emacs

comparison lisp/simple.el @ 10597:b357342180c2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(indent-new-comment-line): Obey the convention about \(...\) pairs in comment-start-skip.
author Richard M. Stallman <rms@gnu.org>
date Mon, 30 Jan 1995 07:46:16 +0000
parents 8c7043925702
children 8ba6f9709cff
comparison
equal deleted inserted replaced
10596:3cda29fdf5f6 10597:b357342180c2
2314 (forward-line -1) 2314 (forward-line -1)
2315 (re-search-forward comment-start-skip opoint t))) 2315 (re-search-forward comment-start-skip opoint t)))
2316 (setq win (match-beginning 0))) 2316 (setq win (match-beginning 0)))
2317 ;; Indent this line like what we found. 2317 ;; Indent this line like what we found.
2318 (goto-char win) 2318 (goto-char win)
2319 ;; If comment-start-skip contains a \(...\) pair,
2320 ;; the real comment delimiter starts at the end of that pair.
2321 (if (match-end 1)
2322 (goto-char (match-end 1)))
2319 (setq comcol (current-column)) 2323 (setq comcol (current-column))
2320 (setq comstart (buffer-substring (point) (match-end 0))))))) 2324 (setq comstart
2325 (buffer-substring (point) (match-end 0)))))))
2321 (if comcol 2326 (if comcol
2322 (let ((comment-column comcol) 2327 (let ((comment-column comcol)
2323 (comment-start comstart) 2328 (comment-start comstart)
2324 (comment-end comment-end)) 2329 (comment-end comment-end))
2325 (and comment-end (not (equal comment-end "")) 2330 (and comment-end (not (equal comment-end ""))