Mercurial > hg > xemacs-beta

comparison lisp/menubar-items.el @ 373:6240c7796c7a r21-2b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2b2
author cvs
date Mon, 13 Aug 2007 11:04:06 +0200
parents cc15677e0335
children a300bb07d72d
comparison
equal deleted inserted replaced
372:49e1ed2d7ed8 373:6240c7796c7a
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 ["Update Packages" package-get-custom]) 236 ["Update Packages" package-get-custom])
236 ("Editing Options" 237 ("Editing Options"
237 ["Overstrike" 238 ["Overstrike"
238 (progn 239 (progn
239 (setq overwrite-mode (if overwrite-mode nil 'overwrite-mode-textual)) 240 (setq overwrite-mode (if overwrite-mode nil 'overwrite-mode-textual))
798 (eq browse-url-browser-function 'browse-url-grail)) 799 (eq browse-url-browser-function 'browse-url-grail))
799 :active (and (boundp 'browse-url-browser-function) 800 :active (and (boundp 'browse-url-browser-function)
800 (fboundp 'browse-url-grail))] 801 (fboundp 'browse-url-grail))]
801 ) 802 )
802 "-----" 803 "-----"
803 ["Browse Faces..." (customize-face nil)] 804 ["Edit Faces..." (customize-face nil)]
804 ("Font" :filter font-menu-family-constructor) 805 ("Font" :filter font-menu-family-constructor)
805 ("Size" :filter font-menu-size-constructor) 806 ("Size" :filter font-menu-size-constructor)
806 ("Weight" :filter font-menu-weight-constructor) 807 ; ("Weight" :filter font-menu-weight-constructor)
807 "-----" 808 "-----"
808 ["Save Options" customize-save-customized] 809 ["Save Options" customize-save-customized]
809 ) 810 )
810 811
811 ("Buffers" 812 ("Buffers"