Mercurial > hg > xemacs-beta

comparison lisp/menubar-items.el @ 462:0784d089fdc9 r21-2-46

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-46
author cvs
date Mon, 13 Aug 2007 11:44:37 +0200
parents d7a9135ec789
children 5aa1854ad537
comparison
equal deleted inserted replaced
461:120ed4009e51 462:0784d089fdc9
224 ) 224 )
225 ) 225 )
226 226
227 ("%_View" 227 ("%_View"
228 ["%_New Frame" make-frame] 228 ["%_New Frame" make-frame]
229 ["Frame on Other Displa%_y..." make-frame-on-display] 229 ["Frame on Other Displa%_y..." make-frame-on-display
230 :active (fboundp 'make-frame-on-display)]
230 ["%_Delete Frame" delete-frame 231 ["%_Delete Frame" delete-frame
231 :active (not (eq (next-frame (selected-frame) 'nomini 'window-system) 232 :active (not (eq (next-frame (selected-frame) 'nomini 'window-system)
232 (selected-frame)))] 233 (selected-frame)))]
233 "-----" 234 "-----"
234 ["%_Split Window" split-window-vertically] 235 ["%_Split Window" split-window-vertically]
701 ["%_Delete Key Deletes Selection" 702 ["%_Delete Key Deletes Selection"
702 (customize-set-variable 'pending-delete-mode (not pending-delete-mode)) 703 (customize-set-variable 'pending-delete-mode (not pending-delete-mode))
703 :style toggle 704 :style toggle
704 :selected (and (boundp 'pending-delete-mode) pending-delete-mode) 705 :selected (and (boundp 'pending-delete-mode) pending-delete-mode)
705 :active (boundp 'pending-delete-mode)] 706 :active (boundp 'pending-delete-mode)]
706 ("`%_kill-line' Behavior..." 707 ["`%_kill-line' Kills Whole Line at %_Beg"
707 ["Kill %_Whole Line" 708 (customize-set-variable 'kill-whole-line (not kill-whole-line))
708 (customize-set-variable 'kill-whole-line 'always) 709 :style toggle
709 :style radio :selected (eq kill-whole-line 'always)] 710 :selected kill-whole-line]
710 ["Kill to %_End of Line"
711 (customize-set-variable 'kill-whole-line nil)
712 :style radio :selected (eq kill-whole-line nil)]
713 ["Kill Whole Line at %_Beg, Otherwise to End"
714 (customize-set-variable 'kill-whole-line t)
715 :style radio :selected (eq kill-whole-line t)])
716 ["Size for %_Block-Movement Commands..." 711 ["Size for %_Block-Movement Commands..."
717 (customize-set-variable 'block-movement-size 712 (customize-set-variable 'block-movement-size
718 (read-number "Block Movement Size: " 713 (read-number "Block Movement Size: "
719 t block-movement-size))] 714 t block-movement-size))]
720 ["%_VI Emulation" 715 ["%_VI Emulation"
721 (progn 716 (progn
722 (toggle-viper-mode) 717 (toggle-viper-mode)
723 (customize-set-variable 'viper-mode viper-mode)) 718 (customize-set-variable 'viper-mode viper-mode))
724 :style toggle :selected (and (boundp 'viper-mode) viper-mode) 719 :style toggle :selected (and (boundp 'viper-mode) viper-mode)
725 :active (fboundp 'toggle-viper-mode)] 720 :active (fboundp 'toggle-viper-mode)]
721 "----"
722 ["S%_hifted Motion Keys Select Region"
723 (customize-set-variable 'shifted-motion-keys-select-region
724 (not shifted-motion-keys-select-region))
725 :style toggle
726 :selected shifted-motion-keys-select-region]
727 ["%_After Shifted Motion, Unshifted Motion Keys Deselect"
728 (customize-set-variable 'unshifted-motion-keys-deselect-region
729 (not unshifted-motion-keys-deselect-region))
730 :style toggle
731 :selected unshifted-motion-keys-deselect-region]
726 "----" 732 "----"
727 ["%_Set Key..." global-set-key] 733 ["%_Set Key..." global-set-key]
728 ["%_Unset Key..." global-unset-key] 734 ["%_Unset Key..." global-unset-key]
729 "---" 735 "---"
730 ["%_Mouse Paste at Text Cursor (not Clicked Location)" 736 ["%_Mouse Paste at Text Cursor (not Clicked Location)"
1433 ["%_Home Page" xemacs-www-page 1439 ["%_Home Page" xemacs-www-page
1434 :active (fboundp 'browse-url)]) 1440 :active (fboundp 'browse-url)])
1435 ("%_Tutorials" 1441 ("%_Tutorials"
1436 :filter tutorials-menu-filter) 1442 :filter tutorials-menu-filter)
1437 ("%_Samples" 1443 ("%_Samples"
1438 ["Sample .%_emacs" 1444 ["Sample %_init.el"
1439 (find-file (locate-data-file "sample.emacs")) 1445 (find-file (locate-data-file "sample.init.el"))
1440 :active (locate-data-file "sample.emacs")] 1446 :active (locate-data-file "sample.init.el")]
1447 ["Sample .%_gtkrc"
1448 (find-file (locate-data-file "sample.gtkrc"))
1449 :included (featurep 'gtk)
1450 :active (locate-data-file "sample.gtkrc")]
1441 ["Sample .%_Xdefaults" 1451 ["Sample .%_Xdefaults"
1442 (find-file (locate-data-file "sample.Xdefaults")) 1452 (find-file (locate-data-file "sample.Xdefaults"))
1453 :included (featurep 'x)
1443 :active (locate-data-file "sample.Xdefaults")] 1454 :active (locate-data-file "sample.Xdefaults")]
1444 ["Sample e%_nriched" 1455 ["Sample %_enriched"
1445 (find-file (locate-data-file "enriched.doc")) 1456 (find-file (locate-data-file "enriched.doc"))
1446 :active (locate-data-file "enriched.doc")]) 1457 :active (locate-data-file "enriched.doc")])
1447 ("%_Commands & Keys" 1458 ("%_Commands & Keys"
1448 ["%_Mode" describe-mode] 1459 ["%_Mode" describe-mode]
1449 ["%_Apropos..." hyper-apropos] 1460 ["%_Apropos..." hyper-apropos]