Mercurial > emacs
comparison lisp/menu-bar.el @ 89909:68c22ea6027c
Sync to HEAD
| author | Kenichi Handa <handa@m17n.org> |
|---|---|
| date | Fri, 16 Apr 2004 12:51:06 +0000 |
| parents | 375f2633d815 |
| children | 4c90ffeb71c5 |
comparison
equal
deleted
inserted
replaced
| 89908:ee1402f7b568 | 89909:68c22ea6027c |
|---|---|
| 524 'clipboard-kill-ring-save))) | 524 'clipboard-kill-ring-save))) |
| 525 (define-key menu-bar-edit-menu [cut] | 525 (define-key menu-bar-edit-menu [cut] |
| 526 (cons "Cut" (cons "Delete text in region and copy it to the clipboard" | 526 (cons "Cut" (cons "Delete text in region and copy it to the clipboard" |
| 527 'clipboard-kill-region))) | 527 'clipboard-kill-region))) |
| 528 | 528 |
| 529 ;; These are Sun server keysyms for the Cut, Copy and Paste keys | |
| 530 ;; (also for XFree86 on Sun keyboard): | |
| 529 (define-key global-map [f20] 'clipboard-kill-region) | 531 (define-key global-map [f20] 'clipboard-kill-region) |
| 530 (define-key global-map [f16] 'clipboard-kill-ring-save) | 532 (define-key global-map [f16] 'clipboard-kill-ring-save) |
| 531 (define-key global-map [f18] 'clipboard-yank) | 533 (define-key global-map [f18] 'clipboard-yank) |
| 532 ;; X11R6 versions | 534 ;; X11R6 versions: |
| 533 (define-key global-map [cut] 'clipboard-kill-region) | 535 (define-key global-map [cut] 'clipboard-kill-region) |
| 534 (define-key global-map [copy] 'clipboard-kill-ring-save) | 536 (define-key global-map [copy] 'clipboard-kill-ring-save) |
| 535 (define-key global-map [paste] 'clipboard-yank)) | 537 (define-key global-map [paste] 'clipboard-yank)) |
| 536 | 538 |
| 537 ;; The "Options" menu items | 539 ;; The "Options" menu items |
| 663 | 665 |
| 664 (defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide")) | 666 (defvar menu-bar-showhide-menu (make-sparse-keymap "Show/Hide")) |
| 665 | 667 |
| 666 (define-key menu-bar-showhide-menu [column-number-mode] | 668 (define-key menu-bar-showhide-menu [column-number-mode] |
| 667 (menu-bar-make-mm-toggle column-number-mode | 669 (menu-bar-make-mm-toggle column-number-mode |
| 668 "Show Column Numbers" | 670 "Column Numbers" |
| 669 "Show the current column number in the mode line")) | 671 "Show the current column number in the mode line")) |
| 670 | 672 |
| 671 (define-key menu-bar-showhide-menu [line-number-mode] | 673 (define-key menu-bar-showhide-menu [line-number-mode] |
| 672 (menu-bar-make-mm-toggle line-number-mode | 674 (menu-bar-make-mm-toggle line-number-mode |
| 673 "Show Line Numbers" | 675 "Line Numbers" |
| 674 "Show the current line number in the mode line")) | 676 "Show the current line number in the mode line")) |
| 675 | 677 |
| 676 (define-key menu-bar-showhide-menu [linecolumn-separator] | 678 (define-key menu-bar-showhide-menu [linecolumn-separator] |
| 677 '("--")) | 679 '("--")) |
| 678 | 680 |
| 683 (message "Display-time mode enabled.") | 685 (message "Display-time mode enabled.") |
| 684 (message "Display-time mode disabled.")) | 686 (message "Display-time mode disabled.")) |
| 685 (customize-mark-as-set 'display-time-mode)) | 687 (customize-mark-as-set 'display-time-mode)) |
| 686 | 688 |
| 687 (define-key menu-bar-showhide-menu [showhide-date-time] | 689 (define-key menu-bar-showhide-menu [showhide-date-time] |
| 688 '(menu-item "Date and Time" showhide-date-time | 690 '(menu-item "Date, Time and Mail" showhide-date-time |
| 689 :help "Display date and time in the mode line" | 691 :help "Display date, time, mail status in mode line" |
| 690 :button (:toggle . display-time-mode))) | 692 :button (:toggle . display-time-mode))) |
| 691 | 693 |
| 692 (define-key menu-bar-showhide-menu [datetime-separator] | 694 (define-key menu-bar-showhide-menu [datetime-separator] |
| 693 '("--")) | 695 '("--")) |
| 694 | 696 |
| 868 | 870 |
| 869 (define-key menu-bar-options-menu [save-place] | 871 (define-key menu-bar-options-menu [save-place] |
| 870 (menu-bar-make-toggle toggle-save-place-globally save-place | 872 (menu-bar-make-toggle toggle-save-place-globally save-place |
| 871 "Save Place in Files between Sessions" | 873 "Save Place in Files between Sessions" |
| 872 "Saving place in files %s" | 874 "Saving place in files %s" |
| 873 "Visit files of previous session when restarting Emacs")) | 875 "Visit files of previous session when restarting Emacs" |
| 876 (require 'saveplace) | |
| 877 ;; Do it by name, to avoid a free-variable | |
| 878 ;; warning during byte compilation. | |
| 879 (set-default | |
| 880 'save-place (not (symbol-value 'save-place))))) | |
| 874 | 881 |
| 875 (define-key menu-bar-options-menu [uniquify] | 882 (define-key menu-bar-options-menu [uniquify] |
| 876 (menu-bar-make-toggle toggle-uniquify-buffer-names uniquify-buffer-name-style | 883 (menu-bar-make-toggle toggle-uniquify-buffer-names uniquify-buffer-name-style |
| 877 "Use Directory Names in Buffer Names" | 884 "Use Directory Names in Buffer Names" |
| 878 "Directory name in buffer names (uniquify) %s" | 885 "Directory name in buffer names (uniquify) %s" |
| 1641 "Menu-bar mode disabled. Use M-x menu-bar-mode to make the menu bar appear.")) | 1648 "Menu-bar mode disabled. Use M-x menu-bar-mode to make the menu bar appear.")) |
| 1642 menu-bar-mode) | 1649 menu-bar-mode) |
| 1643 | 1650 |
| 1644 (provide 'menu-bar) | 1651 (provide 'menu-bar) |
| 1645 | 1652 |
| 1653 ;;; arch-tag: 6e6a3c22-4ec4-4d3d-8190-583f8ef94ced | |
| 1646 ;;; menu-bar.el ends here | 1654 ;;; menu-bar.el ends here |