Mercurial > emacs
comparison lisp/emulation/cua-base.el @ 83653:2a69b973fae2
Merge from emacs--devo--0
Patches applied:
* emacs--devo--0 (patch 852-856)
- Update from CVS
- Merge from emacs--rel--22
* emacs--rel--22 (patch 93-96)
- Update from CVS
- Merge from gnus--rel--5.10
* gnus--rel--5.10 (patch 245)
- Update from CVS
Revision: emacs@sv.gnu.org/emacs--multi-tty--0--patch-32
author | Miles Bader <miles@gnu.org> |
---|---|
date | Tue, 21 Aug 2007 04:55:30 +0000 |
parents | 65663fcd2caa 9bbef4c80f90 |
children | 27d11c1d4e46 |
comparison
equal
deleted
inserted
replaced
83652:5b644ae74c91 | 83653:2a69b973fae2 |
---|---|
1599 (defun cua-debug () | 1599 (defun cua-debug () |
1600 "Toggle CUA debugging." | 1600 "Toggle CUA debugging." |
1601 (interactive) | 1601 (interactive) |
1602 (setq cua--debug (not cua--debug))) | 1602 (setq cua--debug (not cua--debug))) |
1603 | 1603 |
1604 ;; Install run-time check for older versions of CUA-mode which does not | |
1605 ;; work with GNU Emacs version 22.1 and newer. | |
1606 ;; | |
1607 ;; Except for version 1.2, all of the 1.x and 2.x version of cua-mode | |
1608 ;; provided the `CUA-mode' feature. Since this is no longer true, | |
1609 ;; we can warn the user if the `CUA-mode' feature is ever provided. | |
1610 | |
1611 ;;;###autoload (eval-after-load 'CUA-mode | |
1612 ;;;###autoload '(error (concat "\n\n" | |
1613 ;;;###autoload "CUA-mode is now part of the standard GNU Emacs distribution, so you may\n" | |
1614 ;;;###autoload "now enable CUA via the Options menu or by customizing option `cua-mode'.\n\n" | |
1615 ;;;###autoload "You have loaded an older version of CUA-mode which does\n" | |
1616 ;;;###autoload "not work correctly with this version of GNU Emacs.\n\n" | |
1617 ;;;###autoload (if user-init-file (concat | |
1618 ;;;###autoload "To correct this, remove the loading and customization of the\n" | |
1619 ;;;###autoload "old version from the " user-init-file " file.\n\n"))))) | |
1620 | 1604 |
1621 (provide 'cua) | 1605 (provide 'cua) |
1622 | 1606 |
1623 ;;; arch-tag: 21fb6289-ba25-4fee-bfdc-f9fb351acf05 | 1607 ;;; arch-tag: 21fb6289-ba25-4fee-bfdc-f9fb351acf05 |
1624 ;;; cua-base.el ends here | 1608 ;;; cua-base.el ends here |