emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] Changes to emacs/lisp/indent.el


From: Juanma Barranquero
Subject: [Emacs-diffs] Changes to emacs/lisp/indent.el
Date: Tue, 04 Feb 2003 06:30:07 -0500

Index: emacs/lisp/indent.el
diff -c emacs/lisp/indent.el:1.52 emacs/lisp/indent.el:1.53
*** emacs/lisp/indent.el:1.52   Fri Nov 29 10:06:59 2002
--- emacs/lisp/indent.el        Tue Feb  4 06:30:05 2003
***************
*** 303,318 ****
  With optional argument, move forward N-1 lines first.
  From the beginning of the line, moves past the left-margin indentation, the
  fill-prefix, and any indentation used for centering or right-justifying the
! line, but does not move past any whitespace that was explicitly inserted 
  \(such as a tab used to indent the first line of a paragraph)."
    (interactive "p")
    (beginning-of-line n)
    (skip-chars-forward " \t")
    ;; Skip over fill-prefix.
!   (if (and fill-prefix 
           (not (string-equal fill-prefix "")))
        (if (equal fill-prefix
!                (buffer-substring 
                  (point) (min (point-max) (+ (length fill-prefix) (point)))))
          (forward-char (length fill-prefix)))
      (if (and adaptive-fill-mode adaptive-fill-regexp
--- 303,318 ----
  With optional argument, move forward N-1 lines first.
  From the beginning of the line, moves past the left-margin indentation, the
  fill-prefix, and any indentation used for centering or right-justifying the
! line, but does not move past any whitespace that was explicitly inserted
  \(such as a tab used to indent the first line of a paragraph)."
    (interactive "p")
    (beginning-of-line n)
    (skip-chars-forward " \t")
    ;; Skip over fill-prefix.
!   (if (and fill-prefix
           (not (string-equal fill-prefix "")))
        (if (equal fill-prefix
!                (buffer-substring
                  (point) (min (point-max) (+ (length fill-prefix) (point)))))
          (forward-char (length fill-prefix)))
      (if (and adaptive-fill-mode adaptive-fill-regexp




reply via email to

[Prev in Thread] Current Thread [Next in Thread]