Mercurial > hg > xemacs-beta

comparison lisp/prim/simple.el @ 183:e121b013d1f0 r20-3b18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b18
author cvs
date Mon, 13 Aug 2007 09:54:23 +0200
parents bfd6434d15b3
children 489f57a838ef
comparison
equal deleted inserted replaced
182:f07455f06202 183:e121b013d1f0
2422 (skip-chars-backward " \t") 2422 (skip-chars-backward " \t")
2423 (= (point) fill-point)) 2423 (= (point) fill-point))
2424 ;; 97/3/14 jhod: Kinsoku processing 2424 ;; 97/3/14 jhod: Kinsoku processing
2425 ;(indent-new-comment-line) 2425 ;(indent-new-comment-line)
2426 (let ((spacep (memq (char-before (point)) '(?\ ?\t)))) 2426 (let ((spacep (memq (char-before (point)) '(?\ ?\t))))
2427 (indent-new-comment-line) 2427 (funcall comment-line-break-function)
2428 ;; if user type space explicitly, leave SPC 2428 ;; if user type space explicitly, leave SPC
2429 ;; even if there is no WAN. 2429 ;; even if there is no WAN.
2430 (if spacep 2430 (if spacep
2431 (save-excursion 2431 (save-excursion
2432 (goto-char fill-point) 2432 (goto-char fill-point)
2435 (or (memq (char-after (point)) '(?\ ?\t)) 2435 (or (memq (char-after (point)) '(?\ ?\t))
2436 (fill-end-of-sentence-p) 2436 (fill-end-of-sentence-p)
2437 (insert ?\ ))))) 2437 (insert ?\ )))))
2438 (save-excursion 2438 (save-excursion
2439 (goto-char fill-point) 2439 (goto-char fill-point)
2440 (indent-new-comment-line))) 2440 (funcall comment-line-break-function)))
2441 ;; If making the new line didn't reduce the hpos of 2441 ;; If making the new line didn't reduce the hpos of
2442 ;; the end of the line, then give up now; 2442 ;; the end of the line, then give up now;
2443 ;; trying again will not help. 2443 ;; trying again will not help.
2444 (if (>= (current-column) prev-column) 2444 (if (>= (current-column) prev-column)
2445 (setq give-up t))) 2445 (setq give-up t)))