comparison lisp/emacs-lisp/lisp-mode.el @ 14379:ea15aa9bae36

(lisp-fill-paragraph): Use fill-paragraph once again for filling a comment.

14378:2110ae3ef540

	(narrow-to-region
	 ;; Find the first line we should include in the region to fill.
	 (save-excursion
	   (while (and (zerop (forward-line -1))
		       (looking-at "^[ \t]*;")))
	   ;; We may have gone to far.  Go forward again.
	   (or (looking-at ".*;")
	       (forward-line 1))
	   (point))
	 ;; Find the beginning of the first line past the region to fill.
	 (save-excursion

	;; Lines with only semicolons on them can be paragraph boundaries.
	(let ((paragraph-start (concat paragraph-start "\\|[ \t;]*$"))
	      (paragraph-separate (concat paragraph-start "\\|[ \t;]*$"))
	      (fill-prefix comment-fill-prefix))
	  (fill-region (point-min) (point-max) justify t))))
    t))


(defun indent-code-rigidly (start end arg &optional nochange-regexp)
  "Indent all lines of code, starting in the region, sideways by ARG columns.

14379:ea15aa9bae36

	(narrow-to-region
	 ;; Find the first line we should include in the region to fill.
	 (save-excursion
	   (while (and (zerop (forward-line -1))
		       (looking-at "^[ \t]*;")))
	   ;; We may have gone too far.  Go forward again.
	   (or (looking-at ".*;")
	       (forward-line 1))
	   (point))
	 ;; Find the beginning of the first line past the region to fill.
	 (save-excursion

	;; Lines with only semicolons on them can be paragraph boundaries.
	(let ((paragraph-start (concat paragraph-start "\\|[ \t;]*$"))
	      (paragraph-separate (concat paragraph-start "\\|[ \t;]*$"))
	      (fill-prefix comment-fill-prefix))
	  (fill-paragraph justify))))
    t))


(defun indent-code-rigidly (start end arg &optional nochange-regexp)
  "Indent all lines of code, starting in the region, sideways by ARG columns.