[Emacs-diffs] Changes to emacs/lisp/emacs-lisp/lisp.el [emacs-unicode-2]

[Miles Bader]

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))))