From: Kim F. Storm <storm@cua.dk>
Date: Mon, 13 Jun 2005 21:31:37 +0000 (+0000)
Subject: (cua-mode): Use add-to-ordered-list to
X-Git-Tag: emacs-pretest-22.0.90~8988
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=1a2f4b9fc01e480fb3c1d6cfb5258880e9eb5c9d;p=emacs.git

(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 ecd75773648..c6d479b173f 100644
--- 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