Mercurial > hg > xemacs-beta

comparison lisp/menubar-items.el @ 298:70ad99077275 r21-0b47

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b47
author cvs
date Mon, 13 Aug 2007 10:39:40 +0200
parents c9fe270a4101
children c6de09ad3017
comparison
equal deleted inserted replaced
297:deca3c1083ac 298:70ad99077275
574 (customize-set-variable 'scrollbars-visible-p 574 (customize-set-variable 'scrollbars-visible-p
575 (not scrollbars-visible-p)) 575 (not scrollbars-visible-p))
576 :style toggle 576 :style toggle
577 :selected scrollbars-visible-p])) 577 :selected scrollbars-visible-p]))
578 ;; I don't think this is of any interest. - dverna apr. 98 578 ;; I don't think this is of any interest. - dverna apr. 98
579 ;; #### I beg to differ! Many FSFmacs converts hate the 3D
580 ;; modeline, and it was perfectly fine to be able to turn them
581 ;; off through the Options menu. I would have uncommented this
582 ;; source, but the code for saving options would not save the
583 ;; modeline 3D-ness. Grrr. --hniksic
579 ;; ["3D Modeline" 584 ;; ["3D Modeline"
580 ;; (progn 585 ;; (progn
581 ;; (if (zerop (specifier-instance modeline-shadow-thickness)) 586 ;; (if (zerop (specifier-instance modeline-shadow-thickness))
582 ;; (set-specifier modeline-shadow-thickness 2) 587 ;; (set-specifier modeline-shadow-thickness 2)
583 ;; (set-specifier modeline-shadow-thickness 0)) 588 ;; (set-specifier modeline-shadow-thickness 0))
925 ["Recent Messages" view-lossage] 930 ["Recent Messages" view-lossage]
926 ("Misc" 931 ("Misc"
927 ["No Warranty" describe-no-warranty] 932 ["No Warranty" describe-no-warranty]
928 ["XEmacs License" describe-copying] 933 ["XEmacs License" describe-copying]
929 ["The Latest Version" describe-distribution]) 934 ["The Latest Version" describe-distribution])
930 ["Submit Bug Report" send-pr 935 ["Send Bug Report..." report-emacs-bug]))))
931 :active (fboundp 'send-pr)]))))
932 936
933 937
934 (defun maybe-add-init-button () 938 (defun maybe-add-init-button ()
935 "Don't call this. 939 "Don't call this.
936 Adds `Load .emacs' button to menubar when starting up with -q." 940 Adds `Load .emacs' button to menubar when starting up with -q."
937 ;; by Stig@hackvan.com 941 ;; by Stig@hackvan.com
938 (cond 942 (cond
939 (init-file-user nil) 943 (init-file-user nil)
940 ((file-exists-p (cond 944 ((file-exists-p (expand-file-name ".emacs" "~"))
941 ((eq system-type 'ms-dos)
942 (concat "~" (user-login-name) "/_emacs"))
943 ((eq system-type 'vax-vms)
944 "sys$login:.emacs")
945 (t
946 (concat "~" (user-login-name) "/.emacs"))))
947 (add-menu-button nil 945 (add-menu-button nil
948 ["Load .emacs" 946 ["Load .emacs"
949 (progn (delete-menu-item '("Load .emacs")) 947 (progn (delete-menu-item '("Load .emacs"))
950 (load-user-init-file (user-login-name))) 948 (load-user-init-file (user-login-name)))
951 ] 949 ]