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

[Richard M. Stallman]

Index: emacs/lisp/simple.el
diff -c emacs/lisp/simple.el:1.561 emacs/lisp/simple.el:1.562
*** emacs/lisp/simple.el:1.561  Fri Aug  9 10:14:06 2002
--- emacs/lisp/simple.el        Mon Aug 12 21:48:42 2002
***************
*** 3195,3206 ****
  
  (defun toggle-truncate-lines (arg)
    "Toggle whether to fold or truncate long lines on the screen.
! With arg, truncate long lines iff arg is positive."
    (interactive "P")
    (setq truncate-lines
        (if (null arg)
            (not truncate-lines)
!         (> (prefix-numeric-value arg) 0))))
  
  (defvar overwrite-mode-textual " Ovwrt"
    "The string displayed in the mode line when in overwrite mode.")
--- 3195,3210 ----
  
  (defun toggle-truncate-lines (arg)
    "Toggle whether to fold or truncate long lines on the screen.
! With arg, truncate long lines iff arg is positive.
! Note that in side-by-side windows, truncation is always enabled."
    (interactive "P")
    (setq truncate-lines
        (if (null arg)
            (not truncate-lines)
!         (> (prefix-numeric-value arg) 0)))
!   (force-mode-line-update)
!   (message "Truncate long lines %s"
!          (if truncate-lines "enabled" "disabled")))
  
  (defvar overwrite-mode-textual " Ovwrt"
    "The string displayed in the mode line when in overwrite mode.")