Mercurial > hg > xemacs-beta

comparison lisp/menubar-items.el @ 422:95016f13131a r21-2-19

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-19
author cvs
date Mon, 13 Aug 2007 11:25:01 +0200
parents 41dbb7a9d5f2
children 11054d720c21
comparison
equal deleted inserted replaced
421:fff06e11db74 422:95016f13131a
141 '(("Mule" 141 '(("Mule"
142 ("Describe language support") 142 ("Describe language support")
143 ("Set language environment") 143 ("Set language environment")
144 "--" 144 "--"
145 ["Toggle input method" toggle-input-method] 145 ["Toggle input method" toggle-input-method]
146 ["Select input method" select-input-method] 146 ["Select input method" set-input-method]
147 ["Describe input method" describe-input-method] 147 ["Describe input method" describe-input-method]
148 "--" 148 "--"
149 ["Describe current coding systems" 149 ["Describe current coding systems"
150 describe-current-coding-system] 150 describe-current-coding-system]
151 ["Set coding system of buffer file" 151 ["Set coding system of buffer file"
735 (customize-set-variable 'default-toolbar-position 'right) 735 (customize-set-variable 'default-toolbar-position 'right)
736 :style radio 736 :style radio
737 :selected (eq default-toolbar-position 'right)] 737 :selected (eq default-toolbar-position 'right)]
738 ) 738 )
739 ))) 739 )))
740 ,@(if (featurep 'gutter)
741 '(("Gutter Appearance"
742 ["Visible"
743 (customize-set-variable 'gutter-visible-p
744 (not gutter-visible-p))
745 :style toggle
746 :selected gutter-visible-p]
747 ("Default Location"
748 ["Top"
749 (customize-set-variable 'default-gutter-position 'top)
750 :style radio
751 :selected (eq default-gutter-position 'top)]
752 ["Bottom"
753 (customize-set-variable 'default-gutter-position 'bottom)
754 :style radio
755 :selected (eq default-gutter-position 'bottom)]
756 ["Left"
757 (customize-set-variable 'default-gutter-position 'left)
758 :style radio
759 :selected (eq default-gutter-position 'left)]
760 ["Right"
761 (customize-set-variable 'default-gutter-position 'right)
762 :style radio
763 :selected (eq default-gutter-position 'right)]
764 )
765 )))
740 ("Mouse" 766 ("Mouse"
741 ["Avoid Text..." 767 ["Avoid Text..."
742 (customize-set-variable 'mouse-avoidance-mode 768 (customize-set-variable 'mouse-avoidance-mode
743 (if mouse-avoidance-mode nil 'banish)) 769 (if mouse-avoidance-mode nil 'banish))
744 :style toggle 770 :style toggle