aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1995-04-10 21:01:12 +0000
committerRichard M. Stallman1995-04-10 21:01:12 +0000
commit3954fff9cffdd54ee237cf7b05b290111a320a8a (patch)
tree51aafb7f6ec2871a4c02383c0e52eb718da1bb5e
parentfbe0154abee92fee7359ca13c8cab8e422635867 (diff)
downloademacs-3954fff9cffdd54ee237cf7b05b290111a320a8a.tar.gz
emacs-3954fff9cffdd54ee237cf7b05b290111a320a8a.zip
(newline): Don't auto-fill if flag is on; it was filling wrong line.
-rw-r--r--lisp/simple.el4
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/simple.el b/lisp/simple.el
index 943155cfab4..bdac6be2a37 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -47,7 +47,9 @@ In Auto Fill mode, if no numeric arg, break the preceding line if it's long."
47 ;; Set last-command-char to tell self-insert what to insert. 47 ;; Set last-command-char to tell self-insert what to insert.
48 (let ((last-command-char ?\n) 48 (let ((last-command-char ?\n)
49 ;; Don't auto-fill if we have a numeric argument. 49 ;; Don't auto-fill if we have a numeric argument.
50 (auto-fill-function (if arg nil auto-fill-function))) 50 ;; Also not if flag is true (it would fill wrong line);
51 ;; there is no need to since we're at BOL.
52 (auto-fill-function (if (or arg flag) nil auto-fill-function)))
51 (self-insert-command (prefix-numeric-value arg))) 53 (self-insert-command (prefix-numeric-value arg)))
52 ;; Mark the newline(s) `hard'. 54 ;; Mark the newline(s) `hard'.
53 (if use-hard-newlines 55 (if use-hard-newlines