diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-11-02 01:38:03 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2002-11-02 01:38:03 +0000 |
| commit | 2df609391621fd9a935c3f278692fca89b55b0ec (patch) | |
| tree | b1a124a48e839d3c8715c003ab334441311918c7 /lisp/emacs-lisp | |
| parent | 5f812a3c6897f0b148224cc9152e3720651912a3 (diff) | |
| download | emacs-2df609391621fd9a935c3f278692fca89b55b0ec.tar.gz emacs-2df609391621fd9a935c3f278692fca89b55b0ec.tar.bz2 emacs-2df609391621fd9a935c3f278692fca89b55b0ec.zip | |
(lisp-fill-paragraph): Use match-string and line-beginning-position.
Don't bother making paragraph-start a superset of paragraph-separate.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/lisp-mode.el | 14 |
1 files changed, 5 insertions, 9 deletions
diff --git a/lisp/emacs-lisp/lisp-mode.el b/lisp/emacs-lisp/lisp-mode.el index 8b04fd6dffc..6bdb92dd284 100644 --- a/lisp/emacs-lisp/lisp-mode.el +++ b/lisp/emacs-lisp/lisp-mode.el @@ -1079,8 +1079,7 @@ and initial semicolons." ;; A line with nothing but a comment on it? ((looking-at "[ \t]*;[; \t]*") (setq has-comment t - comment-fill-prefix (buffer-substring (match-beginning 0) - (match-end 0)))) + comment-fill-prefix (match-string 0))) ;; A line with some code, followed by a comment? Remember that the ;; semi which starts the comment shouldn't be part of a string or @@ -1093,7 +1092,7 @@ and initial semicolons." (setq comment-fill-prefix (concat (make-string (/ (current-column) tab-width) ?\t) (make-string (% (current-column) tab-width) ?\ ) - (buffer-substring (match-beginning 0) (match-end 0))))))) + (match-string 0)))))) (if (not has-comment) ;; `paragraph-start' is set here (not in the buffer-local @@ -1131,13 +1130,11 @@ and initial semicolons." (point))) ;; Lines with only semicolons on them can be paragraph boundaries. - (let* ((paragraph-start (concat paragraph-start "\\|[ \t;]*$")) - (paragraph-separate (concat paragraph-start "\\|[ \t;]*$")) + (let* ((paragraph-separate (concat paragraph-separate "\\|[ \t;]*$")) (paragraph-ignore-fill-prefix nil) (fill-prefix comment-fill-prefix) (after-line (if has-code-and-comment - (save-excursion - (forward-line 1) (point)))) + (line-beginning-position 2))) (end (progn (forward-paragraph) (or (bolp) (newline 1)) @@ -1154,8 +1151,7 @@ and initial semicolons." (goto-char beg) (if (looking-at fill-prefix) nil - (re-search-forward comment-start-skip) - (point)))))))) + (re-search-forward comment-start-skip)))))))) t)) (defun indent-code-rigidly (start end arg &optional nochange-regexp) |