diff options
| author | Glenn Morris | 2007-08-14 08:42:11 +0000 |
|---|---|---|
| committer | Glenn Morris | 2007-08-14 08:42:11 +0000 |
| commit | 290e2424e609c0105ec7db7458eb9eb795ff57cf (patch) | |
| tree | 6c6bc2bf3c7f977f7d15d56e5d88bb52360a131d /lisp/emulation | |
| parent | 9000171fa9407a734902b9dfc1a0165e5be8341a (diff) | |
| download | emacs-290e2424e609c0105ec7db7458eb9eb795ff57cf.tar.gz emacs-290e2424e609c0105ec7db7458eb9eb795ff57cf.zip | |
Move CUA-mode check to `bad-packages-alist'.
Diffstat (limited to 'lisp/emulation')
| -rw-r--r-- | lisp/emulation/cua-base.el | 17 |
1 files changed, 0 insertions, 17 deletions
diff --git a/lisp/emulation/cua-base.el b/lisp/emulation/cua-base.el index 9b18bb69d2e..e5410c272ff 100644 --- a/lisp/emulation/cua-base.el +++ b/lisp/emulation/cua-base.el | |||
| @@ -1596,23 +1596,6 @@ shifted movement key, set `cua-highlight-region-shift-only'." | |||
| 1596 | (interactive) | 1596 | (interactive) |
| 1597 | (setq cua--debug (not cua--debug))) | 1597 | (setq cua--debug (not cua--debug))) |
| 1598 | 1598 | ||
| 1599 | ;; Install run-time check for older versions of CUA-mode which does not | ||
| 1600 | ;; work with GNU Emacs version 22.1 and newer. | ||
| 1601 | ;; | ||
| 1602 | ;; Except for version 1.2, all of the 1.x and 2.x version of cua-mode | ||
| 1603 | ;; provided the `CUA-mode' feature. Since this is no longer true, | ||
| 1604 | ;; we can warn the user if the `CUA-mode' feature is ever provided. | ||
| 1605 | |||
| 1606 | ;;;###autoload (eval-after-load 'CUA-mode | ||
| 1607 | ;;;###autoload '(error (concat "\n\n" | ||
| 1608 | ;;;###autoload "CUA-mode is now part of the standard GNU Emacs distribution, so you may\n" | ||
| 1609 | ;;;###autoload "now enable CUA via the Options menu or by customizing option `cua-mode'.\n\n" | ||
| 1610 | ;;;###autoload "You have loaded an older version of CUA-mode which does\n" | ||
| 1611 | ;;;###autoload "not work correctly with this version of GNU Emacs.\n\n" | ||
| 1612 | ;;;###autoload (if user-init-file (concat | ||
| 1613 | ;;;###autoload "To correct this, remove the loading and customization of the\n" | ||
| 1614 | ;;;###autoload "old version from the " user-init-file " file.\n\n"))))) | ||
| 1615 | |||
| 1616 | (provide 'cua) | 1599 | (provide 'cua) |
| 1617 | 1600 | ||
| 1618 | ;;; arch-tag: 21fb6289-ba25-4fee-bfdc-f9fb351acf05 | 1601 | ;;; arch-tag: 21fb6289-ba25-4fee-bfdc-f9fb351acf05 |