Mercurial > emacs

comparison lisp/fringe.el @ 91040:14c4a6aac623

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Merge from emacs--devo--0 Patches applied: * emacs--devo--0 (patch 866-879) - Merge multi-tty branch - Update from CVS - Merge from emacs--rel--22 Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-257
author Miles Bader <miles@gnu.org>
date Thu, 11 Oct 2007 16:14:00 +0000
parents f55f9811f5d7 65663fcd2caa
children 606f2d163a64
comparison
equal deleted inserted replaced
91039:eefadc1e1d5e 91040:14c4a6aac623
102 (defun set-fringe-mode (value) 102 (defun set-fringe-mode (value)
103 "Set `fringe-mode' to VALUE and put the new value into effect. 103 "Set `fringe-mode' to VALUE and put the new value into effect.
104 See `fringe-mode' for possible values and their effect." 104 See `fringe-mode' for possible values and their effect."
105 (setq fringe-mode value) 105 (setq fringe-mode value)
106 106
107 ;; Apply it to default-frame-alist. 107 (modify-all-frames-parameters
108 (let ((parameter (assq 'left-fringe default-frame-alist))) 108 (list (cons 'left-fringe (if (consp fringe-mode)
109 (if (consp parameter) 109 (car fringe-mode)
110 (setcdr parameter (if (consp fringe-mode) 110 fringe-mode))
111 (car fringe-mode) 111 (cons 'right-fringe (if (consp fringe-mode)
112 fringe-mode)) 112 (cdr fringe-mode)
113 (setq default-frame-alist 113 fringe-mode)))))
114 (cons (cons 'left-fringe (if (consp fringe-mode)
115 (car fringe-mode)
116 fringe-mode))
117 default-frame-alist))))
118 (let ((parameter (assq 'right-fringe default-frame-alist)))
119 (if (consp parameter)
120 (setcdr parameter (if (consp fringe-mode)
121 (cdr fringe-mode)
122 fringe-mode))
123 (setq default-frame-alist
124 (cons (cons 'right-fringe (if (consp fringe-mode)
125 (cdr fringe-mode)
126 fringe-mode))
127 default-frame-alist))))
128
129 ;; Apply it to existing frames.
130 (let ((frames (frame-list)))
131 (while frames
132 (modify-frame-parameters
133 (car frames)
134 (list (cons 'left-fringe (if (consp fringe-mode)
135 (car fringe-mode)
136 fringe-mode))
137 (cons 'right-fringe (if (consp fringe-mode)
138 (cdr fringe-mode)
139 fringe-mode))))
140 (setq frames (cdr frames)))))
141 114
142 ;; For initialization of fringe-mode, take account of changes 115 ;; For initialization of fringe-mode, take account of changes
143 ;; made explicitly to default-frame-alist. 116 ;; made explicitly to default-frame-alist.
144 (defun fringe-mode-initialize (symbol value) 117 (defun fringe-mode-initialize (symbol value)
145 (let* ((left-pair (assq 'left-fringe default-frame-alist)) 118 (let* ((left-pair (assq 'left-fringe default-frame-alist))