Re: transient mark loss on Shift+PageUp/PageDown

[Stefan Monnier]

> I went to the beginning of the buffer, held down Shift, then pressed
> `next' (PageDown) several times until I got to the end of the buffer.
> Then I copied the selected text (which should have been the whole
> buffer, including the headers).  Instead, the region and the copied text
> began from the text "SM> If that doesn't explain what you see".

I see it.  I installed the patch below, which should fix it.


        Stefan


=== modified file 'lisp/emulation/cua-base.el'
*** lisp/emulation/cua-base.el  2014-01-27 21:26:48 +0000
--- lisp/emulation/cua-base.el  2014-02-12 14:36:54 +0000
***************
*** 1085,1091 ****
  A near full screen is `next-screen-context-lines' less than a full screen.
  Negative ARG means scroll downward.
  If ARG is the atom `-', scroll downward by nearly full screen."
!   (interactive "P")
    (cond
     ((eq arg '-) (cua-scroll-down nil))
     ((< (prefix-numeric-value arg) 0)
--- 1085,1091 ----
  A near full screen is `next-screen-context-lines' less than a full screen.
  Negative ARG means scroll downward.
  If ARG is the atom `-', scroll downward by nearly full screen."
!   (interactive "^P")
    (cond
     ((eq arg '-) (cua-scroll-down nil))
     ((< (prefix-numeric-value arg) 0)
***************
*** 1106,1112 ****
  A near full screen is `next-screen-context-lines' less than a full screen.
  Negative ARG means scroll upward.
  If ARG is the atom `-', scroll upward by nearly full screen."
!   (interactive "P")
    (cond
     ((eq arg '-) (cua-scroll-up nil))
     ((< (prefix-numeric-value arg) 0)
--- 1106,1112 ----
  A near full screen is `next-screen-context-lines' less than a full screen.
  Negative ARG means scroll upward.
  If ARG is the atom `-', scroll upward by nearly full screen."
!   (interactive "^P")
    (cond
     ((eq arg '-) (cua-scroll-up nil))
     ((< (prefix-numeric-value arg) 0)