comparison lisp/menubar-items.el @ 321:19dcec799385 r21-0-58

Import from CVS: tag r21-0-58
author cvs
date Mon, 13 Aug 2007 10:46:44 +0200
parents 341dac730539
children 4f79e16b1112
comparison
equal deleted inserted replaced
320:73c75c43c1f2 321:19dcec799385
229 ["Variable..." customize-variable] 229 ["Variable..." customize-variable]
230 ["Face..." customize-face] 230 ["Face..." customize-face]
231 ["Saved..." customize-saved] 231 ["Saved..." customize-saved]
232 ["Set..." customize-customized] 232 ["Set..." customize-customized]
233 ["Apropos..." customize-apropos] 233 ["Apropos..." customize-apropos]
234 ["Browse..." customize-browse] 234 ["Browse..." customize-browse])
235 ["List Packages" pui-list-packages] 235
236 ["Update Packages" package-get-custom]) 236 ("Manage Packages"
237 ("Add Download Site"
238 :filter (lambda (&rest junk)
239 (package-get-download-menu)))
240 ["Update Package Index" package-get-update-base]
241 ["List & Install" pui-list-packages]
242 ("Using Custom"
243 ("Select" :filter (lambda (&rest junk)
244 (cdr (custom-menu-create 'packages))))
245 ["Update" package-get-custom])
246 ["Help" (Info-goto-node "(xemacs)Packages")])
247
248 "---"
249
237 ("Editing Options" 250 ("Editing Options"
238 ["Overstrike" 251 ["Overstrike"
239 (progn 252 (progn
240 (setq overwrite-mode (if overwrite-mode nil 'overwrite-mode-textual)) 253 (setq overwrite-mode (if overwrite-mode nil 'overwrite-mode-textual))
241 (customize-set-variable 'overwrite-mode overwrite-mode)) 254 (customize-set-variable 'overwrite-mode overwrite-mode))