mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-15 10:30:25 -08:00
Code Issues Projects Releases Wiki Activity

(c-mask-paragraph): Fix yesterday's buggy patch.

Browse source
This commit is contained in:
Alan Mackenzie 2007-01-03 20:19:29 +00:00
parent 23f74f538c
commit fd85cfb794
1 changed files with 7 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/progmodes/cc-cmds.el
View file

@ -3836,8 +3836,13 @@ command to conveniently insert and align the necessary backslashes."
(setq apply-outside-literal t))
((eq c-lit-type 'c) ; Block comment.
(when (and (>= end (cdr c-lit-limits))
(> (point-max) (cdr c-lit-limits)))
(when
(or (> end (cdr c-lit-limits))
(and (= end (cdr c-lit-limits))
(eq (char-before end) ?/)
(eq (char-before (1- end)) ?*)
;; disallow "/*/"
(> (- (cdr c-lit-limits) (car c-lit-limits)) 3)))
;; There is a comment ender, and the region includes it. If
;; it's on its own line, it stays on its own line. If it's got
;; company on the line, it keeps (at least one word of) it.