484 |
(message "Selecting a region with the mouse does `copy' automatically") |
(message "Selecting a region with the mouse does `copy' automatically") |
485 |
(kill-ring-save beg end))) |
(kill-ring-save beg end))) |
486 |
|
|
|
(autoload 'ispell-menu-map "ispell" nil t 'keymap) |
|
|
|
|
487 |
;; These are alternative definitions for the cut, paste and copy |
;; These are alternative definitions for the cut, paste and copy |
488 |
;; menu items. Use them if your system expects these to use the clipboard. |
;; menu items. Use them if your system expects these to use the clipboard. |
489 |
|
|
1035 |
|
|
1036 |
(defvar vc-menu-map (make-sparse-keymap "Version Control")) |
(defvar vc-menu-map (make-sparse-keymap "Version Control")) |
1037 |
(define-key menu-bar-tools-menu [pcl-cvs] |
(define-key menu-bar-tools-menu [pcl-cvs] |
1038 |
`(menu-item "PCL-CVS" ,cvs-global-menu |
'(menu-item "PCL-CVS" cvs-global-menu |
1039 |
:help "Module-level interface to CVS")) |
:help "Module-level interface to CVS")) |
1040 |
(define-key menu-bar-tools-menu [vc] |
(define-key menu-bar-tools-menu [vc] |
1041 |
(list 'menu-item "Version Control" vc-menu-map |
(list 'menu-item "Version Control" vc-menu-map |
1042 |
:help "Interface to RCS, CVS, SCCS")) |
:help "Interface to RCS, CVS, SCCS")) |