Commit efa0a47a authored by Richard M. Stallman's avatar Richard M. Stallman
Browse files

(fringe-mode-initialize): New function.

(fringe-mode): Use fringe-mode-initialize as :initialize.
parent f9c237ea
......@@ -113,6 +113,25 @@ See `fringe-mode' for possible values and their effect."
(setq frames (cdr frames)))))
;; For initialization of fringe-mode, take account of changes
;; made explicitly to default-frame-alist.
(defun fringe-mode-initialize (symbol value)
(let* ((left-pair (assq 'left-fringe default-frame-alist))
(right-pair (assq 'right-fringe default-frame-alist))
(left (cdr left-pair))
(right (cdr right-pair)))
(if (or left-pair right-pair)
;; If there's something in default-frame-alist for fringes,
;; don't change it, but reflect that into the value of fringe-mode.
(setq fringe-mode (cons left right))
(if (equal fringe-mode '(nil . nil))
(setq fringe-mode nil))
(if (equal fringe-mode '(0 . 0))
(setq fringe-mode 0)))
;; Otherwise impose the user-specified value of fringe-mode.
(custom-initialize-reset symbol value))))
(defcustom fringe-mode nil
"*Specify appearance of fringes on all frames.
......@@ -139,6 +158,7 @@ you can use the interactive function `toggle-fringe'"
(integer :tag "Right width")))
:group 'frames
:require 'fringe
:initialize 'fringe-mode-initialize
:set 'set-fringe-mode-1)
(defun fringe-query-style (&optional all-frames)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment