mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-02-02 20:16:25 +00:00
Code Issues Releases Activity

(crisp-mark-line): Greatly simplified.

Browse Source
This commit is contained in:
Richard M. Stallman 1998-07-29 22:44:56 +00:00
parent 929a672696
commit 79b65a085d
1 changed files with 5 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lisp/emulation/crisp.el
View File

@ -270,19 +270,13 @@ If ARG, insert results at point."
(message foo))))
(defun crisp-mark-line (arg)
"Put mark at the end of line. Arg works as in `end-of-line'."
"Set mark at the end of the line. Arg works as in `end-of-line'."
(interactive "p")
(save-excursion
(if (and (eq last-command 'crisp-mark-line) (mark))
;; Extend the previous state in the same direction:
(progn
(if (< (mark) (point)) (setq arg (- arg)))
(goto-char (mark))
(end-of-line arg)
;; Do not mess with the mark stack, but merely adjust the previous state:
(set-mark (point)))
(let (newmark)
(save-excursion
(end-of-line arg)
(push-mark (point) nil t))))
(setq newmark (point)))
(push-mark newmark nil t)))
(defun crisp-kill-line (arg)
"Mark and kill line(s).