[Emacs-diffs] Changes to emacs/lisp/progmodes/make-mode.el

[Richard M. Stallman]

Index: emacs/lisp/progmodes/make-mode.el
diff -c emacs/lisp/progmodes/make-mode.el:1.71 
emacs/lisp/progmodes/make-mode.el:1.72
*** emacs/lisp/progmodes/make-mode.el:1.71      Wed Nov 28 15:41:49 2001
--- emacs/lisp/progmodes/make-mode.el   Wed Sep 18 12:00:29 2002
***************
*** 1,6 ****
  ;;; make-mode.el --- makefile editing commands for Emacs
  
! ;; Copyright (C) 1992,94,99,2000,2001  Free Software Foundation, Inc.
  
  ;; Author: Thomas Neumann <address@hidden>
  ;;    Eric S. Raymond <address@hidden>
--- 1,6 ----
  ;;; make-mode.el --- makefile editing commands for Emacs
  
! ;; Copyright (C) 1992,94,99,2000,2001, 2002  Free Software Foundation, Inc.
  
  ;; Author: Thomas Neumann <address@hidden>
  ;;    Eric S. Raymond <address@hidden>
***************
*** 1011,1022 ****
      (beginning-of-line)
      (cond
       ((looking-at "^#+ ")
!       ;; Found a comment.  Set the fill prefix and then fill.
        (let ((fill-prefix (buffer-substring-no-properties (match-beginning 0)
                                                         (match-end 0)))
            (fill-paragraph-function nil))
!       (fill-paragraph nil)
!       t))
  
       ;; Must look for backslashed-region before looking for variable
       ;; assignment.
--- 1011,1040 ----
      (beginning-of-line)
      (cond
       ((looking-at "^#+ ")
!       ;; Found a comment.  Set the fill prefix, and find the paragraph
!       ;; boundaries by searching for lines that look like comment-only
!       ;; lines.
        (let ((fill-prefix (buffer-substring-no-properties (match-beginning 0)
                                                         (match-end 0)))
            (fill-paragraph-function nil))
!       (save-excursion
!         (save-restriction
!           (narrow-to-region
!            ;; Search backwards.
!            (save-excursion
!              (while (and (zerop (forward-line -1))
!                          (looking-at "^#")))
!              ;; We may have gone too far.  Go forward again.
!              (or (looking-at "^#")
!                  (forward-line 1))
!              (point))
!            ;; Search forwards.
!            (save-excursion
!              (while (looking-at "^#")
!                (forward-line))
!              (point)))
!           (fill-paragraph nil)
!           t))))
  
       ;; Must look for backslashed-region before looking for variable
       ;; assignment.