- ("Frame Appearance"
- ["Frame-Local Font Menu"
- (customize-set-variable 'font-menu-this-frame-only-p
- (not font-menu-this-frame-only-p))
- :style toggle
- :selected (and (boundp 'font-menu-this-frame-only-p)
- font-menu-this-frame-only-p)]
- ,@(if (featurep 'scrollbar)
- '(["Scrollbars"
- (customize-set-variable 'scrollbars-visible-p
- (not scrollbars-visible-p))
- :style toggle
- :selected scrollbars-visible-p]))
- ;; I don't think this is of any interest. - dverna apr. 98
- ;; #### I beg to differ! Many FSFmacs converts hate the 3D
- ;; modeline, and it was perfectly fine to be able to turn them
- ;; off through the Options menu. I would have uncommented this
- ;; source, but the code for saving options would not save the
- ;; modeline 3D-ness. Grrr. --hniksic
-;; ["3D Modeline"
-;; (progn
-;; (if (zerop (specifier-instance modeline-shadow-thickness))
-;; (set-specifier modeline-shadow-thickness 2)
-;; (set-specifier modeline-shadow-thickness 0))
-;; (redraw-modeline t))
-;; :style toggle
-;; :selected (let ((thickness
-;; (specifier-instance modeline-shadow-thickness)))
-;; (and (integerp thickness)
-;; (> thickness 0)))]
- ["Truncate Lines"
- (progn ;; becomes buffer-local
- (setq truncate-lines (not truncate-lines))
- (customize-set-variable 'truncate-lines truncate-lines))
- :style toggle
- :selected truncate-lines]
- ["Blinking Cursor"
- (customize-set-variable 'blink-cursor-mode (not blink-cursor-mode))
- :style toggle
- :selected (and (boundp 'blink-cursor-mode) blink-cursor-mode)
- :active (boundp 'blink-cursor-mode)]
- "-----"
- ["Block cursor"
- (progn
- (customize-set-variable 'bar-cursor nil)
- (force-cursor-redisplay))
- :style radio
- :selected (null bar-cursor)]
- ["Bar cursor (1 pixel)"
- (progn
- (customize-set-variable 'bar-cursor t)
- (force-cursor-redisplay))
- :style radio
- :selected (eq bar-cursor t)]
- ["Bar cursor (2 pixels)"
- (progn
- (customize-set-variable 'bar-cursor 2)
- (force-cursor-redisplay))
- :style radio
- :selected (and bar-cursor (not (eq bar-cursor t)))]
- "------"
- ["Line Numbers"
- (progn
- (customize-set-variable 'line-number-mode (not line-number-mode))
- (redraw-modeline))
- :style toggle :selected line-number-mode]
- ["Column Numbers"
- (progn
- (customize-set-variable 'column-number-mode
- (not column-number-mode))
- (redraw-modeline))
- :style toggle :selected column-number-mode]
- )
- ("Menubar Appearance"
- ["Buffers Menu Length..."
- (customize-set-variable
- 'buffers-menu-max-size
- ;; would it be better to open a customization buffer ?
- (let ((val
- (read-number
- "Enter number of buffers to display (or 0 for unlimited): ")))
- (if (eq val 0) nil val)))]
- ["Multi-Operation Buffers Sub-Menus"
- (customize-set-variable 'complex-buffers-menu-p
- (not complex-buffers-menu-p))
- :style toggle
- :selected complex-buffers-menu-p]
- ("Buffers Menu Sorting"
- ["Most Recently Used"
- (progn
- (customize-set-variable 'buffers-menu-sort-function nil)
- (customize-set-variable 'buffers-menu-grouping-function nil))
- :style radio
- :selected (null buffers-menu-sort-function)]
- ["Alphabetically"
- (progn
- (customize-set-variable 'buffers-menu-sort-function
- 'sort-buffers-menu-alphabetically)
- (customize-set-variable 'buffers-menu-grouping-function nil))
- :style radio
- :selected (eq 'sort-buffers-menu-alphabetically
- buffers-menu-sort-function)]
- ["By Major Mode, Then Alphabetically"
- (progn
- (customize-set-variable
- 'buffers-menu-sort-function
- 'sort-buffers-menu-by-mode-then-alphabetically)
- (customize-set-variable
- 'buffers-menu-grouping-function
- 'group-buffers-menu-by-mode-then-alphabetically))
- :style radio
- :selected (eq 'sort-buffers-menu-by-mode-then-alphabetically
- buffers-menu-sort-function)])
- ["Submenus for Buffer Groups"
- (customize-set-variable 'buffers-menu-submenus-for-groups-p
- (not buffers-menu-submenus-for-groups-p))
- :style toggle
- :selected buffers-menu-submenus-for-groups-p]
- "---"
- ["Ignore Scaled Fonts"
- (customize-set-variable 'font-menu-ignore-scaled-fonts
- (not font-menu-ignore-scaled-fonts))
- :style toggle
- :selected (and (boundp 'font-menu-ignore-scaled-fonts)
- font-menu-ignore-scaled-fonts)]
- )
- ,@(if (featurep 'toolbar)
- '(("Toolbar Appearance"
- ["Visible"
- (customize-set-variable 'toolbar-visible-p
- (not toolbar-visible-p))
- :style toggle
- :selected toolbar-visible-p]
- ["Captioned"
- (customize-set-variable 'toolbar-captioned-p
- (not toolbar-captioned-p))
- :style toggle
- :selected toolbar-captioned-p]
- ("Default Location"
- ["Top"
- (customize-set-variable 'default-toolbar-position 'top)
- :style radio
- :selected (eq default-toolbar-position 'top)]
- ["Bottom"
- (customize-set-variable 'default-toolbar-position 'bottom)
- :style radio
- :selected (eq default-toolbar-position 'bottom)]
- ["Left"
- (customize-set-variable 'default-toolbar-position 'left)
- :style radio
- :selected (eq default-toolbar-position 'left)]
- ["Right"
- (customize-set-variable 'default-toolbar-position 'right)
- :style radio
- :selected (eq default-toolbar-position 'right)]
- )
- )))
- ("Mouse"
- ["Avoid Text..."
- (customize-set-variable 'mouse-avoidance-mode
- (if mouse-avoidance-mode nil 'banish))
- :style toggle
- :selected (and (boundp 'mouse-avoidance-mode) mouse-avoidance-mode)
- :active (and (boundp 'mouse-avoidance-mode)
- (device-on-window-system-p))]
- ["strokes-mode"
- (customize-set-variable 'strokes-mode (not strokes-mode))
- :style toggle
- :selected (and (boundp 'strokes-mode) strokes-mode)
- :active (and (boundp 'strokes-mode)
- (device-on-window-system-p))]
- )
- ("Open URLs With"
- ["Emacs-W3"
- (customize-set-variable 'browse-url-browser-function 'browse-url-w3)
- :style radio
- :selected (and (boundp 'browse-url-browser-function)
- (eq browse-url-browser-function 'browse-url-w3))
- :active (and (boundp 'browse-url-browser-function)
- (fboundp 'browse-url-w3)
- (fboundp 'w3-fetch))]
- ["Netscape"
- (customize-set-variable 'browse-url-browser-function
- 'browse-url-netscape)
- :style radio
- :selected (and (boundp 'browse-url-browser-function)
- (eq browse-url-browser-function 'browse-url-netscape))
- :active (and (boundp 'browse-url-browser-function)
- (fboundp 'browse-url-netscape))]
- ["Mosaic"
- (customize-set-variable 'browse-url-browser-function
- 'browse-url-mosaic)
- :style radio
- :selected (and (boundp 'browse-url-browser-function)
- (eq browse-url-browser-function 'browse-url-mosaic))
- :active (and (boundp 'browse-url-browser-function)
- (fboundp 'browse-url-mosaic))]
- ["Mosaic (CCI)"
- (customize-set-variable 'browse-url-browser-function 'browse-url-cci)
- :style radio
- :selected (and (boundp 'browse-url-browser-function)
- (eq browse-url-browser-function 'browse-url-cci))
- :active (and (boundp 'browse-url-browser-function)
- (fboundp 'browse-url-cci))]
- ["IXI Mosaic"
- (customize-set-variable 'browse-url-browser-function
- 'browse-url-iximosaic)
- :style radio
- :selected (and (boundp 'browse-url-browser-function)
- (eq browse-url-browser-function 'browse-url-iximosaic))
- :active (and (boundp 'browse-url-browser-function)
- (fboundp 'browse-url-iximosaic))]
- ["Lynx (xterm)"
- (customize-set-variable 'browse-url-browser-function
- 'browse-url-lynx-xterm)
- :style radio
- :selected (and (boundp 'browse-url-browser-function)
- (eq browse-url-browser-function 'browse-url-lynx-xterm))
- :active (and (boundp 'browse-url-browser-function)
- (fboundp 'browse-url-lynx-xterm))]
- ["Lynx (xemacs)"
- (customize-set-variable 'browse-url-browser-function
- 'browse-url-lynx-emacs)
- :style radio
- :selected (and (boundp 'browse-url-browser-function)
- (eq browse-url-browser-function 'browse-url-lynx-emacs))
- :active (and (boundp 'browse-url-browser-function)
- (fboundp 'browse-url-lynx-emacs))]
- ["Grail"
- (customize-set-variable 'browse-url-browser-function
- 'browse-url-grail)
- :style radio
- :selected (and (boundp 'browse-url-browser-function)
- (eq browse-url-browser-function 'browse-url-grail))
- :active (and (boundp 'browse-url-browser-function)
- (fboundp 'browse-url-grail))]
- )
- "-----"
- ["Edit Faces..." (customize-face nil)]
- ("Font" :filter font-menu-family-constructor)
- ("Size" :filter font-menu-size-constructor)
-; ("Weight" :filter font-menu-weight-constructor)
- "-----"
- ["Save Options" customize-save-customized]