(cua-mode): Use add-to-ordered-list to

add cua--keymap-alist to emulation-mode-map-alists.

diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el
index ecd75773648fc73b0e0cc5cceb7faebb1b2dc078..c6d479b173f8bfbca756a7cc3d3cca6f1155465e 100644 (file)
--- a/lisp/emulation/cua-base.el
+++ b/lisp/emulation/cua-base.el
@@ -1360,7 +1360,7 @@ paste (in addition to the normal emacs bindings)."
 
   (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