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)))) |