Commit 608d30f7 authored by Simon Josefsson's avatar Simon Josefsson
Browse files

(set-fringe-mode): Work when updating

`default-frame-alist'.
parent 9e8abde7
2002-05-26 Simon Josefsson <jas@extundo.com>
* fringe.el (set-fringe-mode): Work when updating
`default-frame-alist'.
2002-05-26 Kim F. Storm <storm@cua.dk>
* emulation/cua-base.el (cua--repeat-replace-text): New variable.
......
......@@ -51,7 +51,9 @@ See `fringe-mode' for possible values and their effect."
;; Apply it to default-frame-alist.
(let ((parameter (assq 'left-fringe default-frame-alist)))
(if (consp parameter)
(setcdr parameter fringe-mode)
(setcdr parameter (if (consp fringe-mode)
(car fringe-mode)
fringe-mode))
(setq default-frame-alist
(cons (cons 'left-fringe (if (consp fringe-mode)
(car fringe-mode)
......@@ -59,7 +61,9 @@ See `fringe-mode' for possible values and their effect."
default-frame-alist))))
(let ((parameter (assq 'right-fringe default-frame-alist)))
(if (consp parameter)
(setcdr parameter fringe-mode)
(setcdr parameter (if (consp fringe-mode)
(cdr fringe-mode)
fringe-mode))
(setq default-frame-alist
(cons (cons 'right-fringe (if (consp fringe-mode)
(cdr fringe-mode)
......
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