Mercurial > hg > xemacs-beta

comparison lisp/menubar-items.el @ 454:d7a9135ec789 r21-2-42

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-42
author cvs
date Mon, 13 Aug 2007 11:40:54 +0200
parents 576fb035e263
children 0784d089fdc9
comparison
equal deleted inserted replaced
453:270b05afd845 454:d7a9135ec789
399 ["%_List and Install" pui-list-packages] 399 ["%_List and Install" pui-list-packages]
400 ["U%_pdate Installed Packages" package-get-update-all] 400 ["U%_pdate Installed Packages" package-get-update-all]
401 ;; hack-o-matic, we can't force a load of package-base here 401 ;; hack-o-matic, we can't force a load of package-base here
402 ;; since it triggers dialog box interactions which we can't 402 ;; since it triggers dialog box interactions which we can't
403 ;; deal with while using a menu 403 ;; deal with while using a menu
404 ("Using %_Custom" 404 ("Using %_Custom"
405 :filter (lambda (&rest junk) 405 :filter (lambda (&rest junk)
406 (if package-get-base 406 (if package-get-base
407 (submenu-generate-accelerator-spec 407 (submenu-generate-accelerator-spec
408 (cdr (custom-menu-create 'packages))) 408 (cdr (custom-menu-create 'packages)))
409 '("Please load Package Index")))) 409 '("Please load Package Index"))))
410 410
411 ["%_Help" (Info-goto-node "(xemacs)Packages")]) 411 ["%_Help" (Info-goto-node "(xemacs)Packages")])
412 ("%_Internet" 412 ("%_Internet"
413 ["Read Mail %_1 (VM)..." vm 413 ["Read Mail %_1 (VM)..." vm
414 :active (fboundp 'vm)] 414 :active (fboundp 'vm)]
415 ["Read Mail %_2 (MH)..." (mh-rmail t) 415 ["Read Mail %_2 (MH)..." (mh-rmail t)
930 :style radio 930 :style radio
931 :selected (and (boundp 'browse-url-browser-function) 931 :selected (and (boundp 'browse-url-browser-function)
932 (eq browse-url-browser-function 'browse-url-grail)) 932 (eq browse-url-browser-function 'browse-url-grail))
933 :active (and (boundp 'browse-url-browser-function) 933 :active (and (boundp 'browse-url-browser-function)
934 (fboundp 'browse-url-grail))] 934 (fboundp 'browse-url-grail))]
935 ["%_Kfm" 935 ["%_Kfm"
936 (customize-set-variable 'browse-url-browser-function 936 (customize-set-variable 'browse-url-browser-function
937 'browse-url-kfm) 937 'browse-url-kfm)
938 :style radio 938 :style radio
939 :selected (and (boundp 'browse-url-browser-function) 939 :selected (and (boundp 'browse-url-browser-function)
940 (eq browse-url-browser-function 'browse-url-kfm)) 940 (eq browse-url-browser-function 'browse-url-kfm))
941 :active (and (boundp 'browse-url-browser-function) 941 :active (and (boundp 'browse-url-browser-function)
942 (fboundp 'browse-url-kfm))] 942 (fboundp 'browse-url-kfm))]
943 )) 943 ))
944 ("%_Troubleshooting" 944 ("%_Troubleshooting"
945 ["%_Debug on Error" 945 ["%_Debug on Error"
946 (customize-set-variable 'debug-on-error (not debug-on-error)) 946 (customize-set-variable 'debug-on-error (not debug-on-error))
947 :style toggle :selected debug-on-error] 947 :style toggle :selected debug-on-error]
948 ["Debug on %_Quit" 948 ["Debug on %_Quit"
966 '(["%_Scrollbars" 966 '(["%_Scrollbars"
967 (customize-set-variable 'scrollbars-visible-p 967 (customize-set-variable 'scrollbars-visible-p
968 (not scrollbars-visible-p)) 968 (not scrollbars-visible-p))
969 :style toggle 969 :style toggle
970 :selected scrollbars-visible-p])) 970 :selected scrollbars-visible-p]))
971 ["%_3D Modeline"
972 (customize-set-variable 'modeline-3d-p
973 (not modeline-3d-p))
974 :style toggle
975 :selected modeline-3d-p]
976 ["%_Wrap Long Lines" 971 ["%_Wrap Long Lines"
977 (progn;; becomes buffer-local 972 (progn;; becomes buffer-local
978 (setq truncate-lines (not truncate-lines)) 973 (setq truncate-lines (not truncate-lines))
979 (customize-set-variable 'truncate-lines truncate-lines)) 974 (customize-set-variable 'truncate-lines truncate-lines))
980 :style toggle 975 :style toggle
981 :selected (not truncate-lines)] 976 :selected (not truncate-lines)]
977 "----"
978 ["%_3D Modeline"
979 (customize-set-variable 'modeline-3d-p
980 (not modeline-3d-p))
981 :style toggle
982 :selected modeline-3d-p]
983 ("Modeline %_Horizontal Scrolling"
984 ["%_None"
985 (customize-set-variable 'modeline-scrolling-method nil)
986 :style radio
987 :selected (not modeline-scrolling-method)]
988 ["As %_Text"
989 (customize-set-variable 'modeline-scrolling-method t)
990 :style radio
991 :selected (eq modeline-scrolling-method t)]
992 ["As %_Scrollbar"
993 (customize-set-variable 'modeline-scrolling-method 'scrollbar)
994 :style radio
995 :selected (eq modeline-scrolling-method 'scrollbar)]
996 )
982 ,@(if (featurep 'toolbar) 997 ,@(if (featurep 'toolbar)
983 '("---" 998 '("---"
984 ["%_Toolbars Visible" 999 ["%_Toolbars Visible"
985 (customize-set-variable 'toolbar-visible-p 1000 (customize-set-variable 'toolbar-visible-p
986 (not toolbar-visible-p)) 1001 (not toolbar-visible-p))
1103 (progn 1118 (progn
1104 (customize-set-variable 'column-number-mode 1119 (customize-set-variable 'column-number-mode
1105 (not column-number-mode)) 1120 (not column-number-mode))
1106 (redraw-modeline)) 1121 (redraw-modeline))
1107 :style toggle :selected column-number-mode] 1122 :style toggle :selected column-number-mode]
1108 1123
1109 ("\"Other %_Window\" Location" 1124 ("\"Other %_Window\" Location"
1110 ["%_Always in Same Frame" 1125 ["%_Always in Same Frame"
1111 (customize-set-variable 1126 (customize-set-variable
1112 'get-frame-for-buffer-default-instance-limit nil) 1127 'get-frame-for-buffer-default-instance-limit nil)
1113 :style radio 1128 :style radio
1154 t)) 1169 t))
1155 :style toggle 1170 :style toggle
1156 :selected (and (boundp 'gnuserv-frame) (eq gnuserv-frame t)) 1171 :selected (and (boundp 'gnuserv-frame) (eq gnuserv-frame t))
1157 :active (boundp 'gnuserv-frame)] 1172 :active (boundp 'gnuserv-frame)]
1158 ) 1173 )
1159 ) 1174 )
1160 ("%_Menubars" 1175 ("%_Menubars"
1161 ["%_Frame-Local Font Menu" 1176 ["%_Frame-Local Font Menu"
1162 (customize-set-variable 'font-menu-this-frame-only-p 1177 (customize-set-variable 'font-menu-this-frame-only-p
1163 (not font-menu-this-frame-only-p)) 1178 (not font-menu-this-frame-only-p))
1164 :style toggle 1179 :style toggle