comparison lisp/progmodes/cc-cmds.el @ 44755:52388a234829

(c-mask-comment): Fixed bug where point was moved to the following line when it was at the first line of a block comment where comment-start-skip matched to eol.
author Martin Stjernholm <mast@lysator.liu.se>
date Mon, 22 Apr 2002 22:35:45 +0000
parents 7a3ac6c387fe
children 4c09bfb5fbbf
comparison
equal deleted inserted replaced
44754:628a697e2315 44755:52388a234829
2898 )))) 2898 ))))
2899 (when (<= beg (car c-lit-limits)) 2899 (when (<= beg (car c-lit-limits))
2900 ;; The region includes the comment starter. 2900 ;; The region includes the comment starter.
2901 (save-excursion 2901 (save-excursion
2902 (goto-char (car c-lit-limits)) 2902 (goto-char (car c-lit-limits))
2903 (if (looking-at (concat "\\(" comment-start-skip "\\)$")) 2903 (if (and (looking-at (concat "\\(" comment-start-skip "\\)$"))
2904 (> here (match-end 0)))
2904 ;; Begin with the next line. 2905 ;; Begin with the next line.
2905 (setq beg (c-point 'bonl)) 2906 (setq beg (c-point 'bonl))
2906 ;; Fake the fill prefix in the first line. 2907 ;; Fake the fill prefix in the first line.
2907 (setq tmp-pre t))))) 2908 (setq tmp-pre t)))))
2908 ((eq c-lit-type 'string) ; String. 2909 ((eq c-lit-type 'string) ; String.