Mercurial > hg > xemacs-beta

comparison lisp/x11/x-menubar.el @ 16:0293115a14e9 r19-15b91

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r19-15b91
author cvs
date Mon, 13 Aug 2007 08:49:20 +0200
parents 9ee227acff29
children d95e72db5c07
comparison
equal deleted inserted replaced
15:ad457d5f7d04 16:0293115a14e9
182 ["Pretty-Print With Color" 182 ["Pretty-Print With Color"
183 (setq ps-print-color-p (not ps-print-color-p)) 183 (setq ps-print-color-p (not ps-print-color-p))
184 :style toggle :selected ps-print-color-p] 184 :style toggle :selected ps-print-color-p]
185 ("Pretty-Print Paper Size" 185 ("Pretty-Print Paper Size"
186 ["Letter" 186 ["Letter"
187 (setq ps-paper-type 'ps-letter) 187 (setq ps-paper-type 'letter)
188 :style radio 188 :style radio
189 :selected (eq ps-paper-type 'ps-letter)] 189 :selected (eq ps-paper-type 'letter)]
190 ["Letter-small"
191 (setq ps-paper-type 'letter-small)
192 :style radio
193 :selected (eq ps-paper-type 'letter-small)]
190 ["Legal" 194 ["Legal"
191 (setq ps-paper-type 'ps-legal) 195 (setq ps-paper-type 'legal)
192 :style radio 196 :style radio
193 :selected (eq ps-paper-type 'ps-legal)] 197 :selected (eq ps-paper-type 'legal)]
198 ["Statement"
199 (setq ps-paper-type 'statement)
200 :style radio
201 :selected (eq ps-paper-type 'statement)]
202 ["Executive"
203 (setq ps-paper-type 'executive)
204 :style radio
205 :selected (eq ps-paper-type 'executive)]
206 ["Tabloid"
207 (setq ps-paper-type 'tabloid)
208 :style radio
209 :selected (eq ps-paper-type 'tabloid)]
210 ["Ledger"
211 (setq ps-paper-type 'ledger)
212 :style radio
213 :selected (eq ps-paper-type 'ledger)]
214 ["A3"
215 (setq ps-paper-type 'a3)
216 :style radio
217 :selected (eq ps-paper-type 'a3)]
194 ["A4" 218 ["A4"
195 (setq ps-paper-type 'ps-a4) 219 (setq ps-paper-type 'a4)
196 :style radio 220 :style radio
197 :selected (eq ps-paper-type 'ps-a4)] 221 :selected (eq ps-paper-type 'a4)]
222 ["A4small"
223 (setq ps-paper-type 'a4small)
224 :style radio
225 :selected (eq ps-paper-type 'a4small)]
226 ["B4"
227 (setq ps-paper-type 'b4)
228 :style radio
229 :selected (eq ps-paper-type 'b4)]
230 ["B5"
231 (setq ps-paper-type 'b5)
232 :style radio
233 :selected (eq ps-paper-type 'b5)]
198 ) 234 )
199 ) 235 )
200 ("\"Other Window\" Location" 236 ("\"Other Window\" Location"
201 ["Always in Same Frame" 237 ["Always in Same Frame"
202 (setq get-frame-for-buffer-default-instance-limit nil) 238 (setq get-frame-for-buffer-default-instance-limit nil)
550 nil ; the partition: menus after this are flushright 586 nil ; the partition: menus after this are flushright
551 587
552 ("Help" 588 ("Help"
553 ["About XEmacs..." about-xemacs t] 589 ["About XEmacs..." about-xemacs t]
554 ("Basics" 590 ("Basics"
555 ["XEmacs Tutorial" help-with-tutorial t] 591 ["Tutorial" help-with-tutorial t]
556 ["XEmacs News" view-emacs-news t] 592 ["News" view-emacs-news t]
557 ["Package Browser" finder-by-keyword t] 593 ["Packages" finder-by-keyword t]
558 ["Splash Screen" xemacs-splash-buffer t]) 594 ["Splash" xemacs-splash-buffer t])
559 "-----" 595 "-----"
560 ("XEmacs FAQ & Web Page" 596 ("XEmacs FAQ"
561 ["XEmacs WWW Page" xemacs-www-page t] 597 ["FAQ)" xemacs-local-faq t]
562 ["Newest XEmacs FAQ via WWW" xemacs-www-faq t] 598 ["FAQ via WWW" xemacs-www-faq t]
563 ["XEmacs FAQ (local)" xemacs-local-faq t]) 599 ["Home Page" xemacs-www-page t])
564 ("Samples" 600 ("Samples"
565 ["Sample .emacs" (find-file 601 ["Sample .emacs" (find-file
566 (expand-file-name "sample.emacs" 602 (expand-file-name "sample.emacs"
567 data-directory)) 603 data-directory))
568 t] 604 t]
574 (expand-file-name "enriched.doc" 610 (expand-file-name "enriched.doc"
575 data-directory)) 611 data-directory))
576 t]) 612 t])
577 "-----" 613 "-----"
578 ("Lookup in Info" 614 ("Lookup in Info"
579 ["Key/Mouse Binding..." Info-goto-emacs-key-command-node t] 615 ["Key Binding..." Info-goto-emacs-key-command-node t]
580 ["Command..." Info-goto-emacs-command-node t] 616 ["Command..." Info-goto-emacs-command-node t]
581 ["Elisp Function..." Info-elisp-ref t] 617 ["Function..." Info-elisp-ref t]
582 ["Topic..." Info-query t]) 618 ["Topic..." Info-query t])
583 ("Manuals" 619 ("Manuals"
584 ["Info (Detailed Docs)" info t] 620 ["Info" info t]
585 ["Unix Manual..." manual-entry t]) 621 ["Unix Manual..." manual-entry t])
586 ("Commands & Keys" 622 ("Commands & Keys"
587 ["Describe Mode" describe-mode t] 623 ["Mode" describe-mode t]
588 ["Apropos..." hyper-apropos t] 624 ["Apropos..." hyper-apropos t]
589 ["Apropos Documentation..." apropos-documentation t] 625 ["Apropos Docs..." apropos-documentation t]
590 "-----" 626 "-----"
591 ["Describe Key/Mouse..." describe-key t] 627 ["Key..." describe-key t]
592 ["List Key Bindings" describe-bindings t] 628 ["Bindings" describe-bindings t]
593 ["List Mouse Bindings" describe-pointer t] 629 ["Mouse Bindings" describe-pointer t]
630 ["Recent Keys" view-lossage t]
594 "-----" 631 "-----"
595 ["Describe Function..." describe-function t] 632 ["Function..." describe-function t]
596 ["Describe Variable..." describe-variable t] 633 ["Variable..." describe-variable t]
597 ["Where Is Command..." where-is t]) 634 ["Locate Command..." where-is t])
598 "-----" 635 "-----"
599 ["Recent Keystrokes/Messages" view-lossage t] 636 ["Recent Messages" view-lossage t]
600 ("Misc" 637 ("Misc"
601 ["Describe No Warranty" describe-no-warranty t] 638 ["No Warranty" describe-no-warranty t]
602 ["Describe XEmacs License" describe-copying t] 639 ["XEmacs License" describe-copying t]
603 ["Getting the Latest Version" describe-distribution t]) 640 ["The Latest Version" describe-distribution t])
604 ) 641 )
605 ))) 642 )))
606 643
607 644
608 (defun maybe-add-init-button () 645 (defun maybe-add-init-button ()