Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 18:37:33 +00:00
Code Issues Projects Releases Packages Wiki Activity

* simple.el (kill-visual-line): Obey kill-whole-line (Bug#3695).

Browse source
This commit is contained in:
Chong Yidong 2009-07-15 02:05:32 +00:00
parent b40c84b07f
commit 2066b4fe21
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/ChangeLog
View file

@ -1,3 +1,7 @@
2009-07-15 Chong Yidong <cyd@stupidchicken.com>
* simple.el (kill-visual-line): Obey kill-whole-line (Bug#3695).
2009-07-15 Chong Yidong <cyd@stupidchicken.com>
* simple.el (deactivate-mark): Optional argument FORCE.

7
lisp/simple.el
View file

@ -4533,7 +4533,8 @@ even beep.)"
(interactive "P")
;; Like in `kill-line', it's better to move point to the other end
;; of the kill before killing.
(let ((opoint (point)))
(let ((opoint (point))
(kill-whole-line (and kill-whole-line (bolp))))
(if arg
(vertical-motion (prefix-numeric-value arg))
(end-of-visual-line 1)
@ -4545,7 +4546,9 @@ even beep.)"
;; whether the trailing whitespace is highlighted. But, it's
;; OK to just do this unconditionally.
(skip-chars-forward " \t")))
(kill-region opoint (point))))
(kill-region opoint (if (and kill-whole-line (looking-at "\n"))
(1+ (point))
(point)))))
(defun next-logical-line (&optional arg try-vscroll)
"Move cursor vertically down ARG lines.