Mercurial > hg > xemacs-beta

comparison lisp/simple.el @ 424:11054d720c21 r21-2-20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-20
author cvs
date Mon, 13 Aug 2007 11:26:11 +0200
parents 95016f13131a
children
comparison
equal deleted inserted replaced
423:28d9c139be4c 424:11054d720c21
2654 ;; Otherwise, if a comment prefix or fill-prefix is inserted, 2654 ;; Otherwise, if a comment prefix or fill-prefix is inserted,
2655 ;; point will end up before it rather than after it. 2655 ;; point will end up before it rather than after it.
2656 (if (save-excursion 2656 (if (save-excursion
2657 (skip-chars-backward " \t") 2657 (skip-chars-backward " \t")
2658 (= (point) fill-point)) 2658 (= (point) fill-point))
2659 ;; 1999-09-17 hniksic: turn off Kinsoku until
2660 ;; it's debugged.
2661 (indent-new-comment-line)
2659 ;; 97/3/14 jhod: Kinsoku processing 2662 ;; 97/3/14 jhod: Kinsoku processing
2660 ;(indent-new-comment-line) 2663 ; ;(indent-new-comment-line)
2661 (let ((spacep (memq (char-before (point)) '(?\ ?\t)))) 2664 ; (let ((spacep (memq (char-before (point)) '(?\ ?\t))))
2662 (funcall comment-line-break-function) 2665 ; (funcall comment-line-break-function)
2663 ;; if user type space explicitly, leave SPC 2666 ; ;; if user type space explicitly, leave SPC
2664 ;; even if there is no WAN. 2667 ; ;; even if there is no WAN.
2665 (if spacep 2668 ; (if spacep
2666 (save-excursion 2669 ; (save-excursion
2667 (goto-char fill-point) 2670 ; (goto-char fill-point)
2668 ;; put SPC except that there is SPC 2671 ; ;; put SPC except that there is SPC
2669 ;; already or there is sentence end. 2672 ; ;; already or there is sentence end.
2670 (or (memq (char-after (point)) '(?\ ?\t)) 2673 ; (or (memq (char-after (point)) '(?\ ?\t))
2671 (fill-end-of-sentence-p) 2674 ; (fill-end-of-sentence-p)
2672 (insert ?\ ))))) 2675 ; (insert ?\ )))))
2673 (save-excursion 2676 (save-excursion
2674 (goto-char fill-point) 2677 (goto-char fill-point)
2675 (funcall comment-line-break-function))) 2678 (funcall comment-line-break-function)))
2676 ;; If making the new line didn't reduce the hpos of 2679 ;; If making the new line didn't reduce the hpos of
2677 ;; the end of the line, then give up now; 2680 ;; the end of the line, then give up now;