Mercurial > hg > xemacs-beta

comparison lisp/simple.el @ 355:182f72e8cd0d r21-1-7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-1-7
author cvs
date Mon, 13 Aug 2007 10:56:21 +0200
parents 8429d81ab209
children a4f53d9b3154
comparison
equal deleted inserted replaced
354:3729bef672e0 355:182f72e8cd0d
2606 ;; Otherwise, if a comment prefix or fill-prefix is inserted, 2606 ;; Otherwise, if a comment prefix or fill-prefix is inserted,
2607 ;; point will end up before it rather than after it. 2607 ;; point will end up before it rather than after it.
2608 (if (save-excursion 2608 (if (save-excursion
2609 (skip-chars-backward " \t") 2609 (skip-chars-backward " \t")
2610 (= (point) fill-point)) 2610 (= (point) fill-point))
2611 ;; 1999-09-17 hniksic: turn off Kinsoku until
2612 ;; it's debugged.
2613 (indent-new-comment-line)
2611 ;; 97/3/14 jhod: Kinsoku processing 2614 ;; 97/3/14 jhod: Kinsoku processing
2612 ;(indent-new-comment-line) 2615 ; ;(indent-new-comment-line)
2613 (let ((spacep (memq (char-before (point)) '(?\ ?\t)))) 2616 ; (let ((spacep (memq (char-before (point)) '(?\ ?\t))))
2614 (funcall comment-line-break-function) 2617 ; (funcall comment-line-break-function)
2615 ;; if user type space explicitly, leave SPC 2618 ; ;; if user type space explicitly, leave SPC
2616 ;; even if there is no WAN. 2619 ; ;; even if there is no WAN.
2617 (if spacep 2620 ; (if spacep
2618 (save-excursion 2621 ; (save-excursion
2619 (goto-char fill-point) 2622 ; (goto-char fill-point)
2620 ;; put SPC except that there is SPC 2623 ; ;; put SPC except that there is SPC
2621 ;; already or there is sentence end. 2624 ; ;; already or there is sentence end.
2622 (or (memq (char-after (point)) '(?\ ?\t)) 2625 ; (or (memq (char-after (point)) '(?\ ?\t))
2623 (fill-end-of-sentence-p) 2626 ; (fill-end-of-sentence-p)
2624 (insert ?\ ))))) 2627 ; (insert ?\ )))))
2625 (save-excursion 2628 (save-excursion
2626 (goto-char fill-point) 2629 (goto-char fill-point)
2627 (funcall comment-line-break-function))) 2630 (funcall comment-line-break-function)))
2628 ;; If making the new line didn't reduce the hpos of 2631 ;; If making the new line didn't reduce the hpos of
2629 ;; the end of the line, then give up now; 2632 ;; the end of the line, then give up now;