diff options
| author | Kim F. Storm | 2005-06-13 21:31:37 +0000 |
|---|---|---|
| committer | Kim F. Storm | 2005-06-13 21:31:37 +0000 |
| commit | 1a2f4b9fc01e480fb3c1d6cfb5258880e9eb5c9d (patch) | |
| tree | 9026ba7d42095ea41c905596e6941e40687b4009 | |
| parent | cbbd0b5a94d8b76f353a188490db6afe62e82538 (diff) | |
| download | emacs-1a2f4b9fc01e480fb3c1d6cfb5258880e9eb5c9d.tar.gz emacs-1a2f4b9fc01e480fb3c1d6cfb5258880e9eb5c9d.zip | |
(cua-mode): Use add-to-ordered-list to
add cua--keymap-alist to emulation-mode-map-alists.
| -rw-r--r-- | lisp/emulation/cua-base.el | 2 |
1 files changed, 1 insertions, 1 deletions
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)." | |||
| 1360 | 1360 | ||
| 1361 | (if (not cua-mode) | 1361 | (if (not cua-mode) |
| 1362 | (setq emulation-mode-map-alists (delq 'cua--keymap-alist emulation-mode-map-alists)) | 1362 | (setq emulation-mode-map-alists (delq 'cua--keymap-alist emulation-mode-map-alists)) |
| 1363 | (add-to-list 'emulation-mode-map-alists 'cua--keymap-alist) | 1363 | (add-to-ordered-list 'emulation-mode-map-alists 'cua--keymap-alist 400) |
| 1364 | (cua--select-keymaps)) | 1364 | (cua--select-keymaps)) |
| 1365 | 1365 | ||
| 1366 | (cond | 1366 | (cond |