From 79b65a085d5ac8928bfc0e9f1f5a8c4025630496 Mon Sep 17 00:00:00 2001 From: "Richard M. Stallman" Date: Wed, 29 Jul 1998 22:44:56 +0000 Subject: [PATCH] (crisp-mark-line): Greatly simplified. --- lisp/emulation/crisp.el | 16 +++++----------- 1 file changed, 5 insertions(+), 11 deletions(-) diff --git a/lisp/emulation/crisp.el b/lisp/emulation/crisp.el index 4f7d9766745..6f3071f2035 100644 --- a/lisp/emulation/crisp.el +++ b/lisp/emulation/crisp.el @@ -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). -- 2.39.2