lukelee pushed a commit to branch master
in repository elpa.
commit 0470576ce94ad2e4670055a9a85e75c10017dc72
Author: Richard M. Stallman <r...@gnu.org>
Date: Wed Jul 29 22:44:56 1998 +0000
(crisp-mark-line): Greatly simplified.
---
lisp/emulation/crisp.el | 16 +++++-----------
1 files changed, 5 insertions(+), 11 deletions(-)
diff --git a/lisp/emulation/crisp.el b/lisp/emulation/crisp.el
index 59bf29f..615bb92 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).
