Copy & Paste in CUA with whole buffer

[David Reitter]

Copying & Pasting of the whole buffer in CUA mode will paste the  
wrong clipboard contents.

- Enter CUA mode
- Select complete buffer
- Copy
- Select complete buffer
- Paste

The result is an old clipboard entry being copied into the buffer,  
but not the text copied when "Copy" was selected.
The desired result in this case should be that the buffer contents  
don't change at all.

The reproduce:

(progn
  (cua-mode 1)
  (call-interactively' mark-whole-buffer) ;; C-x h
  (call-interactively 'clipboard-kill-ring-save) ;; click on copy icon
  (call-interactively 'mark-whole-buffer) ;; C-x h
  (call-interactively 'cua-paste))  ;; click on paste icon



In GNU Emacs 22.0.93.1 (powerpc-apple-darwin7.9.0, Carbon Version 1.6.0)
 of 2007-02-14 on rodrigues.inf.ed.ac.uk
X server distributor `Apple Computers', version 10.4.8
configured using `configure  '--without-x' '--prefix=/usr/local''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: nil
  locale-coding-system: iso-8859-1
  default-enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  cua-mode: t
  encoded-kbd-mode: t
  tooltip-mode: t
  tool-bar-mode: t
  mouse-wheel-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  unify-8859-on-encoding-mode: t
  utf-translate-cjk-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
C-e <help-echo> <down-mouse-1> <mouse-1> M-w <help-echo>
<down-mouse-1> <mouse-1> <down-mouse-1> <mouse-1> C-h
f <return> <down-mouse-1> <mouse-1> ( c a l l - i n
t e r a c t i v e k l y <backspace> <backspace> <backspace>
l y SPC ' <right> <backspace> <down-mouse-1> <mouse-1>
C-x C-e <help-echo> <down-mouse-1> <mouse-movement>
<mouse-1> <down-mouse-1> <mouse-1> <right> <down-mouse-1>
<mouse-1> <double-down-mouse-1> <double-mouse-1> <down-mouse-1>
<mouse-1> C-y ' SPC <down-mouse-1> <mouse-1> C-y SPC
' <down-mouse-1> <mouse-movement> <mouse-1> C-y SPC
' <down-mouse-1> <mouse-1> C-x C-e C-_ <down-mouse-1>
<mouse-1> <down-mouse-1> <mouse-1> C-x 0 <down-mouse-1>
<mouse-1> <double-down-mouse-1> <mouse-movement> <double-mouse-1>
<down-mouse-1> <mouse-movement> <mouse-movement> <drag-mouse-1>
<help-echo> <help-echo> <menu-bar> <help-menu> <re
port-emacs-bug>

Recent messages:
recursive-edit: The mark is not set now, so there is no region
Type C-x 4 C-o RET to restore the other window.
Mark set [4 times]
Entering debugger...
Mark set [8 times]
nil
Undo!
Loading emacsbug...
Loading regexp-opt...done
Loading emacsbug...done