aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog8
-rw-r--r--lisp/simple.el1
2 files changed, 9 insertions, 0 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 362ceb5b202..76b55d3c4aa 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,11 @@
12009-02-06 Glenn Morris <rgm@gnu.org>
2
3 * simple.el (kill-whole-line): Provide a default argument of 1.
4
5 * mail/undigest.el (rmail-mail-separator): Delete.
6 (undigestify-rmail-message, unforward-rmail-message): Update for
7 mbox Rmail.
8
12009-02-05 Kenichi Handa <handa@m17n.org> 92009-02-05 Kenichi Handa <handa@m17n.org>
2 10
3 * international/fontset.el (script-representative-chars): Remove 11 * international/fontset.el (script-representative-chars): Remove
diff --git a/lisp/simple.el b/lisp/simple.el
index c19addef48a..8410d625fc3 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -3219,6 +3219,7 @@ If ARG is negative, kill backward. Also kill the preceding newline.
3219\(This is meant to make \\[repeat] work well with negative arguments.\) 3219\(This is meant to make \\[repeat] work well with negative arguments.\)
3220If ARG is zero, kill current line but exclude the trailing newline." 3220If ARG is zero, kill current line but exclude the trailing newline."
3221 (interactive "p") 3221 (interactive "p")
3222 (or arg (setq arg 1))
3222 (if (and (> arg 0) (eobp) (save-excursion (forward-visible-line 0) (eobp))) 3223 (if (and (> arg 0) (eobp) (save-excursion (forward-visible-line 0) (eobp)))
3223 (signal 'end-of-buffer nil)) 3224 (signal 'end-of-buffer nil))
3224 (if (and (< arg 0) (bobp) (save-excursion (end-of-visible-line) (bobp))) 3225 (if (and (< arg 0) (bobp) (save-excursion (end-of-visible-line) (bobp)))