[Emacs-diffs] Changes to emacs/lisp/longlines.el,v

[Chong Yidong]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Chong Yidong <cyd>      07/06/04 20:33:00

Index: longlines.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/longlines.el,v
retrieving revision 1.34
retrieving revision 1.35
diff -u -b -r1.34 -r1.35
--- longlines.el        12 May 2007 23:19:08 -0000      1.34
+++ longlines.el        4 Jun 2007 20:33:00 -0000       1.35
@@ -368,10 +368,10 @@
 With optional argument ARG, turn on line wrapping if and only if ARG is 
positive.
 If automatic line wrapping is turned on, wrap the entire buffer."
   (interactive "P")
-  (and (null arg)
-       (null longlines-auto-wrap)
-       (setq arg 1))
-  (if (> (prefix-numeric-value arg) 0)
+  (setq arg (if arg
+               (> (prefix-numeric-value arg) 0)
+             (not longlines-auto-wrap)))
+  (if arg
       (let ((mod (buffer-modified-p)))
        (setq longlines-auto-wrap t)
        (longlines-wrap-region (point-min) (point-max))