# HG changeset patch
# User Simon Josefsson <jas@extundo.com>
# Date 1022406618 0
# Node ID f48a8ed9d03a712c25241a31624390d70473a0d5
# Parent  7b343e11e4a334e269bee56484c4ae7c074f45d7
(set-fringe-mode): Work when updating
`default-frame-alist'.

diff -r 7b343e11e4a3 -r f48a8ed9d03a lisp/fringe.el
--- a/lisp/fringe.el	Sun May 26 07:36:40 2002 +0000
+++ b/lisp/fringe.el	Sun May 26 09:50:18 2002 +0000
@@ -51,7 +51,9 @@
   ;; 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 @@
 		  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)