diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-05-13 19:13:13 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2003-05-13 19:13:13 +0000 |
| commit | c960446b52b72e5e9df6bfd0918b8160367ebe02 (patch) | |
| tree | 618a09895df73433f5cf6486bc8f83d673ee790d /lisp/menu-bar.el | |
| parent | 00f9fb8b3604bf0f54a1ca71a47593ab6d37efef (diff) | |
| download | emacs-c960446b52b72e5e9df6bfd0918b8160367ebe02.tar.gz | |
(menu-bar-options-menu) <cua-mode>: Use menu-bar-make-mm-toggle.
Diffstat (limited to 'lisp/menu-bar.el')
| -rw-r--r-- | lisp/menu-bar.el | 21 |
1 files changed, 4 insertions, 17 deletions
diff --git a/lisp/menu-bar.el b/lisp/menu-bar.el index 596241c08b6..dda1a3f6b0c 100644 --- a/lisp/menu-bar.el +++ b/lisp/menu-bar.el @@ -1,6 +1,6 @@ ;;; menu-bar.el --- define a default menu bar -;; Copyright (C) 1993, 1994, 1995, 2000, 2001, 2002 Free Software Foundation, Inc. +;; Copyright (C) 1993,94,1995,2000,01,02,2003 Free Software Foundation, Inc. ;; Author: RMS ;; Maintainer: FSF @@ -882,22 +882,9 @@ PROPS are additional properties." (define-key menu-bar-options-menu [edit-options-separator] '("--")) (define-key menu-bar-options-menu [cua-mode] - '(menu-item "CUA-style cut and paste" - menu-bar-toggle-cua-mode - :help "Use C-z/C-x/C-c/C-v keys for undo/cut/copy/paste" - :button (:toggle . cua-mode))) - -(defun menu-bar-toggle-cua-mode () - "Toggle CUA key-binding mode. -When enabled, using shifted movement keys will activate the region (and -highlight the region using `transient-mark-mode'), and typed text replaces -the active selection. C-z, C-x, C-c, and C-v will undo, cut, copy, and -paste (in addition to the normal Emacs bindings)." - (interactive) - (cua-mode nil) - (customize-mark-as-set 'cua-mode) - (message "CUA-style cut and paste %s" - (if cua-mode "enabled" "disabled"))) + (menu-bar-make-mm-toggle cua-mode + "CUA-style cut and paste" + "Use C-z/C-x/C-c/C-v keys for undo/cut/copy/paste")) (define-key menu-bar-options-menu [case-fold-search] (menu-bar-make-toggle toggle-case-fold-search case-fold-search |