*** lisp-mode.el.~1.209.~	Tue Oct  9 11:52:54 2007
--- lisp-mode.el	Sat Dec 22 09:55:52 2007
***************
*** 821,827 ****
        (if (> (- (point-max) pos) (point))
  	  (goto-char (- (point-max) pos)))
        ;; If desired, shift remaining lines of expression the same amount.
!       (and whole-exp (not (zerop shift-amt))
  	   (save-excursion
  	     (goto-char beg)
  	     (forward-sexp 1)
--- 821,831 ----
        (if (> (- (point-max) pos) (point))
  	  (goto-char (- (point-max) pos)))
        ;; If desired, shift remaining lines of expression the same amount.
!       (and (or whole-exp
! 	       (and current-prefix-arg
! 		    (or (not transient-mark-mode)
! 			(not mark-active))))
! 	   (not (zerop shift-amt))
  	   (save-excursion
  	     (goto-char beg)
  	     (forward-sexp 1)