diff options
author | Chong Yidong <[email protected]> | 2007-06-04 20:33:00 +0000 |
---|---|---|
committer | Chong Yidong <[email protected]> | 2007-06-04 20:33:00 +0000 |
commit | cf738203dce94f905406f9def4a2213c462229b7 (patch) | |
tree | 8967635e63e9c1ead2116db7cf5b9d99cfac8adb /lisp | |
parent | 1adf71a48e71e155b20779fb366b7e91b5dd24d5 (diff) |
(longlines-auto-wrap): Handle argument correctly.
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/longlines.el | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/lisp/longlines.el b/lisp/longlines.el index f39d31e69f..149f69c9f2 100644 --- a/lisp/longlines.el +++ b/lisp/longlines.el @@ -368,10 +368,10 @@ Hard newlines are left intact." 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)) |