Mercurial > emacs
comparison lisp/menu-bar.el @ 46925:9ce7894d4af8
(fringe-mode): Set to nil.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 17 Aug 2002 04:59:14 +0000 |
| parents | 70c39fa2253e |
| children | 58ccd45ac06b |
comparison
equal
deleted
inserted
replaced
| 46924:2d6894cca50a | 46925:9ce7894d4af8 |
|---|---|
| 677 (defun menu-bar-showhide-fringe-menu-customize-reset () | 677 (defun menu-bar-showhide-fringe-menu-customize-reset () |
| 678 "Reset the fringe mode: display fringes on both sides of a window." | 678 "Reset the fringe mode: display fringes on both sides of a window." |
| 679 (interactive) | 679 (interactive) |
| 680 (customize-set-variable 'fringe-mode nil)) | 680 (customize-set-variable 'fringe-mode nil)) |
| 681 | 681 |
| 682 ;; The real definition is in fringe.el. | |
| 683 ;; This is to prevent errors in the :radio conditions below. | |
| 684 (setq fringe-mode nil) | |
| 685 | |
| 682 (define-key menu-bar-showhide-fringe-menu [default] | 686 (define-key menu-bar-showhide-fringe-menu [default] |
| 683 '(menu-item "Default" menu-bar-showhide-fringe-menu-customize-reset | 687 '(menu-item "Default" menu-bar-showhide-fringe-menu-customize-reset |
| 684 :help "Default width fringe on both left and right side" | 688 :help "Default width fringe on both left and right side" |
| 685 :visible (display-graphic-p) | 689 :visible (display-graphic-p) |
| 686 :button (:radio . (eq fringe-mode nil)))) | 690 :button (:radio . (eq fringe-mode nil)))) |