# HG changeset patch
# User Kim F. Storm <storm@cua.dk>
# Date 1118698297 0
# Node ID cabaef9d110d39e82c8e66781c6418f6a1be5839
# Parent  5b9f98f257f8b10d0bc4a67000f39b8e6daf8b46
(cua-mode): Use add-to-ordered-list to
add cua--keymap-alist to emulation-mode-map-alists.

diff -r 5b9f98f257f8 -r cabaef9d110d lisp/emulation/cua-base.el
--- a/lisp/emulation/cua-base.el	Mon Jun 13 21:29:52 2005 +0000
+++ b/lisp/emulation/cua-base.el	Mon Jun 13 21:31:37 2005 +0000
@@ -1360,7 +1360,7 @@
 
   (if (not cua-mode)
       (setq emulation-mode-map-alists (delq 'cua--keymap-alist emulation-mode-map-alists))
-    (add-to-list 'emulation-mode-map-alists 'cua--keymap-alist)
+    (add-to-ordered-list 'emulation-mode-map-alists 'cua--keymap-alist 400)
     (cua--select-keymaps))
 
   (cond