Mercurial > hg > xemacs-beta

comparison lisp/x11/x-menubar.el @ 10:49a24b4fd526 r19-15b6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b6
author cvs
date Mon, 13 Aug 2007 08:47:52 +0200
parents 27bc7f280385
children bcdc7deadc19
comparison
equal deleted inserted replaced
9:6f2bbbbbe05a 10:49a24b4fd526
378 (force-cursor-redisplay)) 378 (force-cursor-redisplay))
379 :style toggle :selected bar-cursor] 379 :style toggle :selected bar-cursor]
380 ["Blinking Cursor" (blink-cursor-mode) 380 ["Blinking Cursor" (blink-cursor-mode)
381 :style toggle 381 :style toggle
382 :selected (and (boundp 'blink-cursor-mode) blink-cursor-mode)] 382 :selected (and (boundp 'blink-cursor-mode) blink-cursor-mode)]
383 ["Frame-Local Font Menu" (setq font-menu-this-frame-only-p
384 (not font-menu-this-frame-only-p))
385 :style toggle :selected font-menu-this-frame-only-p]
383 ; ["Line Numbers" (line-number-mode nil) 386 ; ["Line Numbers" (line-number-mode nil)
384 ; :style toggle :selected line-number-mode] 387 ; :style toggle :selected line-number-mode]
385 ) 388 )
386 ("Menubar Appearance" 389 ("Menubar Appearance"
387 ["Buffers Menu Length..." 390 ["Buffers Menu Length..."
424 (not buffers-menu-submenus-for-groups-p)) 427 (not buffers-menu-submenus-for-groups-p))
425 :style toggle 428 :style toggle
426 :selected buffers-menu-submenus-for-groups-p 429 :selected buffers-menu-submenus-for-groups-p
427 :active (not (null buffers-menu-grouping-function))] 430 :active (not (null buffers-menu-grouping-function))]
428 "---" 431 "---"
429 ["Frame-Local Font Menu" (setq font-menu-this-frame-only-p
430 (not font-menu-this-frame-only-p))
431 :style toggle :selected font-menu-this-frame-only-p]
432 ["Ignore Scaled Fonts" (setq font-menu-ignore-scaled-fonts 432 ["Ignore Scaled Fonts" (setq font-menu-ignore-scaled-fonts
433 (not font-menu-ignore-scaled-fonts)) 433 (not font-menu-ignore-scaled-fonts))
434 :style toggle :selected font-menu-ignore-scaled-fonts] 434 :style toggle :selected font-menu-ignore-scaled-fonts]
435 ) 435 )
436 ,@(if (featurep 'toolbar) 436 ,@(if (featurep 'toolbar)
521 521
522 nil ; the partition: menus after this are flushright 522 nil ; the partition: menus after this are flushright
523 523
524 ("Help" 524 ("Help"
525 ["About XEmacs..." about-xemacs t] 525 ["About XEmacs..." about-xemacs t]
526 ("Basics"
527 ["XEmacs Tutorial" help-with-tutorial t]
528 ["XEmacs News" view-emacs-news t]
529 ["Package Browser" finder-by-keyword t]
530 ["Splash Screen" xemacs-splash-buffer t])
526 "-----" 531 "-----"
527 ["XEmacs WWW Page" xemacs-www-page t] 532 ("XEmacs FAQ & Web Page"
528 ["Newest XEmacs FAQ via WWW" xemacs-www-faq t] 533 ["XEmacs WWW Page" xemacs-www-page t]
529 ["XEmacs FAQ (local)" xemacs-local-faq t] 534 ["Newest XEmacs FAQ via WWW" xemacs-www-faq t]
530 ["XEmacs Tutorial" help-with-tutorial t] 535 ["XEmacs FAQ (local)" xemacs-local-faq t])
531 ["XEmacs News" view-emacs-news t] 536 ("Samples"
532 ["Sample .emacs" (find-file 537 ["Sample .emacs" (find-file
533 (expand-file-name "sample.emacs" 538 (expand-file-name "sample.emacs"
534 data-directory)) 539 data-directory))
535 t] 540 t]
536 ["Sample .Xdefaults" (find-file 541 ["Sample .Xdefaults" (find-file
537 (expand-file-name "sample.Xdefaults" 542 (expand-file-name "sample.Xdefaults"
538 data-directory)) 543 data-directory))
539 t] 544 t])
540 "-----" 545 "-----"
541 ["Info (Detailed Docs)" info t]
542 ("Lookup in Info" 546 ("Lookup in Info"
543 ["Key/Mouse Binding..." Info-goto-emacs-key-command-node t] 547 ["Key/Mouse Binding..." Info-goto-emacs-key-command-node t]
544 ["Command..." Info-goto-emacs-command-node t] 548 ["Command..." Info-goto-emacs-command-node t]
545 ["Elisp Function..." Info-elisp-ref t] 549 ["Elisp Function..." Info-elisp-ref t]
546 ["Topic..." Info-query t]) 550 ["Topic..." Info-query t])
547 ["Package Browser" finder-by-keyword t] 551 ("Manuals"
548 ["Describe Mode" describe-mode t] 552 ["Info (Detailed Docs)" info t]
549 ["Apropos..." hyper-apropos t] 553 ["Unix Manual..." manual-entry t])
550 ["Apropos Documentation..." apropos-documentation t] 554 ("Commands & Keys"
555 ["Describe Mode" describe-mode t]
556 ["Apropos..." hyper-apropos t]
557 ["Apropos Documentation..." apropos-documentation t]
558 "-----"
559 ["Describe Key/Mouse..." describe-key t]
560 ["List Key Bindings" describe-bindings t]
561 ["List Mouse Bindings" describe-pointer t]
562 "-----"
563 ["Describe Function..." describe-function t]
564 ["Describe Variable..." describe-variable t]
565 ["Where Is Command..." where-is t])
551 "-----" 566 "-----"
552 ["Recent Keystrokes/Messages" view-lossage t] 567 ["Recent Keystrokes/Messages" view-lossage t]
553 ["Describe Key/Mouse..." describe-key t]
554 ["List Key Bindings" describe-bindings t]
555 ["List Mouse Bindings" describe-pointer t]
556 "-----"
557 ["Describe Function..." describe-function t]
558 ["Describe Variable..." describe-variable t]
559 ["Where Is Command..." where-is t]
560 "-----"
561 ["Unix Manual..." manual-entry t]
562 ("Misc" 568 ("Misc"
563 ["Describe No Warranty" describe-no-warranty t] 569 ["Describe No Warranty" describe-no-warranty t]
564 ["Describe XEmacs License" describe-copying t] 570 ["Describe XEmacs License" describe-copying t]
565 ["Getting the Latest Version" describe-distribution t]) 571 ["Getting the Latest Version" describe-distribution t])
566 ) 572 )
1382 ; "shadowDoubleEtchedInDash" 1388 ; "shadowDoubleEtchedInDash"
1383 ; "--:shadowDoubleEtchedOutDash" 1389 ; "--:shadowDoubleEtchedOutDash"
1384 ; "shadowDoubleEtchedOutDash" 1390 ; "shadowDoubleEtchedOutDash"
1385 ; )) 1391 ; ))
1386 1392
1393 (defun xemacs-splash-buffer ()
1394 "Redisplay XEmacs splash screen in a buffer."
1395 (interactive)
1396 (let ((buffer (get-buffer-create "*Splash*")))
1397 (set-buffer buffer)
1398 (erase-buffer buffer)
1399 (startup-splash-frame)
1400 (pop-to-buffer buffer)
1401 (delete-other-windows)))
1387 1402
1388 (provide 'x-menubar) 1403 (provide 'x-menubar)
1389 1404
1390 ;;; x-menubar.el ends here. 1405 ;;; x-menubar.el ends here.