[Emacs-diffs] Changes to emacs/lisp/emulation/cua-base.el

[Stefan Monnier]

Index: emacs/lisp/emulation/cua-base.el
diff -c emacs/lisp/emulation/cua-base.el:1.24 
emacs/lisp/emulation/cua-base.el:1.25
*** emacs/lisp/emulation/cua-base.el:1.24       Fri Apr 18 18:49:20 2003
--- emacs/lisp/emulation/cua-base.el    Mon Jun 16 13:24:45 2003
***************
*** 1,6 ****
  ;;; cua-base.el --- emulate CUA key bindings
  
! ;; Copyright (C) 1997-2002 Free Software Foundation, Inc.
  
  ;; Author: Kim F. Storm <address@hidden>
  ;; Keywords: keyboard emulation convenience cua
--- 1,6 ----
  ;;; cua-base.el --- emulate CUA key bindings
  
! ;; Copyright (C) 1997,98,99,200,01,02,03  Free Software Foundation, Inc.
  
  ;; Author: Kim F. Storm <address@hidden>
  ;; Keywords: keyboard emulation convenience cua
***************
*** 1204,1212 ****
           (and (boundp 'delete-selection-mode) delete-selection-mode)
           (and (boundp 'pc-selection-mode) pc-selection-mode)))
      (if (and (boundp 'delete-selection-mode) delete-selection-mode)
!       (delete-selection-mode))
      (if (and (boundp 'pc-selection-mode) pc-selection-mode)
!       (pc-selection-mode))
      (setq transient-mark-mode (and cua-mode
                                   (if cua-highlight-region-shift-only
                                       (not cua--explicit-region-start)
--- 1204,1212 ----
           (and (boundp 'delete-selection-mode) delete-selection-mode)
           (and (boundp 'pc-selection-mode) pc-selection-mode)))
      (if (and (boundp 'delete-selection-mode) delete-selection-mode)
!       (delete-selection-mode -1))
      (if (and (boundp 'pc-selection-mode) pc-selection-mode)
!       (pc-selection-mode -1))
      (setq transient-mark-mode (and cua-mode
                                   (if cua-highlight-region-shift-only
                                       (not cua--explicit-region-start)