[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp.el [emacs-unicode-2] |
Date: |
Thu, 14 Oct 2004 05:19:32 -0400 |
Index: emacs/lisp/emacs-lisp/lisp.el
diff -c emacs/lisp/emacs-lisp/lisp.el:1.48.4.4
emacs/lisp/emacs-lisp/lisp.el:1.48.4.5
*** emacs/lisp/emacs-lisp/lisp.el:1.48.4.4 Thu Sep 9 09:36:32 2004
--- emacs/lisp/emacs-lisp/lisp.el Thu Oct 14 08:50:01 2004
***************
*** 75,91 ****
move to with the same argument.
If this command is repeated, it marks the next ARG sexps after the ones
already marked."
! (interactive "p")
(cond ((and (eq last-command this-command) (mark t))
(set-mark
(save-excursion
(goto-char (mark))
! (forward-sexp (or arg 1))
(point))))
(t
(push-mark
(save-excursion
! (forward-sexp (or arg 1))
(point))
nil t))))
--- 75,93 ----
move to with the same argument.
If this command is repeated, it marks the next ARG sexps after the ones
already marked."
! (interactive "P")
(cond ((and (eq last-command this-command) (mark t))
+ (setq arg (if arg (prefix-numeric-value arg)
+ (if (> (mark) (point)) 1 -1)))
(set-mark
(save-excursion
(goto-char (mark))
! (forward-sexp arg)
(point))))
(t
(push-mark
(save-excursion
! (forward-sexp (prefix-numeric-value arg))
(point))
nil t))))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp.el [emacs-unicode-2],
Miles Bader <=