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

[Dave Love]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.513 emacs/lisp/simple.el:1.514
*** emacs/lisp/simple.el:1.513  Thu Dec 13 02:42:53 2001
--- emacs/lisp/simple.el        Tue Dec 18 10:52:15 2001
***************
*** 52,60 ****
  
  (defun newline (&optional arg)
    "Insert a newline, and move to left margin of the new line if it's blank.
! The newline is marked with the text-property `hard'.
  With ARG, insert that many newlines.
! In Auto Fill mode, if no numeric arg, break the preceding line if it's long."
    (interactive "*P")
    (barf-if-buffer-read-only)
    ;; Inserting a newline at the end of a line produces better redisplay in
--- 52,62 ----
  
  (defun newline (&optional arg)
    "Insert a newline, and move to left margin of the new line if it's blank.
! If `use-hard-newlines' is non-nil, the newline is marked with the
! text-property `hard'.
  With ARG, insert that many newlines.
! Call `auto-fill-function' if the current column number is greater
! than the value of `fill-column' and ARG is `nil'."
    (interactive "*P")
    (barf-if-buffer-read-only)
    ;; Inserting a newline at the end of a line produces better redisplay in
***************
*** 568,582 ****
  (defvar read-expression-history nil)
  
  (defcustom eval-expression-print-level 4
!   "*Value to use for `print-level' when printing value in `eval-expression'."
    :group 'lisp
!   :type '(choice (const nil) integer)
    :version "21.1")
  
  (defcustom eval-expression-print-length 12
!   "*Value to use for `print-length' when printing value in `eval-expression'."
    :group 'lisp
!   :type '(choice (const nil) integer)
    :version "21.1")
  
  (defcustom eval-expression-debug-on-error t
--- 570,586 ----
  (defvar read-expression-history nil)
  
  (defcustom eval-expression-print-level 4
!   "*Value to use for `print-level' when printing value in `eval-expression'.
! Nil means no limit."
    :group 'lisp
!   :type '(choice (const :tag "No Limit" nil) integer)
    :version "21.1")
  
  (defcustom eval-expression-print-length 12
!   "*Value to use for `print-length' when printing value in `eval-expression'.
! Nil means no limit."
    :group 'lisp
!   :type '(choice (const :tag "No Limit" nil) integer)
    :version "21.1")
  
  (defcustom eval-expression-debug-on-error t
***************
*** 2439,2445 ****
    :version "21.1"
    :group 'editing-basics)
  
! (defun next-line (arg)
    "Move cursor vertically down ARG lines.
  If there is no character in the target line exactly under the current column,
  the cursor is positioned after the character in that line which spans this
--- 2443,2449 ----
    :version "21.1"
    :group 'editing-basics)
  
! (defun next-line (&optional arg)
    "Move cursor vertically down ARG lines.
  If there is no character in the target line exactly under the current column,
  the cursor is positioned after the character in that line which spans this
***************
*** 2460,2465 ****
--- 2464,2470 ----
  using `forward-line' instead.  It is usually easier to use
  and more reliable (no dependence on goal column, etc.)."
    (interactive "p")
+   (unless arg (setq arg 1))
    (if (and next-line-add-newlines (= arg 1))
        (if (save-excursion (end-of-line) (eobp))
          ;; When adding a newline, don't expand an abbrev.
***************
*** 2474,2480 ****
        (line-move arg)))
    nil)
  
! (defun previous-line (arg)
    "Move cursor vertically up ARG lines.
  If there is no character in the target line exactly over the current column,
  the cursor is positioned after the character in that line which spans this
--- 2479,2485 ----
        (line-move arg)))
    nil)
  
! (defun previous-line (&optional arg)
    "Move cursor vertically up ARG lines.
  If there is no character in the target line exactly over the current column,
  the cursor is positioned after the character in that line which spans this
***************
*** 2491,2496 ****
--- 2496,2502 ----
  `forward-line' with a negative argument instead.  It is usually easier
  to use and more reliable (no dependence on goal column, etc.)."
    (interactive "p")
+   (unless arg (setq arg 1))
    (if (interactive-p)
        (condition-case nil
          (line-move (- arg))