From: Simon Josefsson <jas@extundo.com>
Date: Sun, 26 May 2002 09:50:39 +0000 (+0000)
Subject: (set-fringe-mode): Work when updating
X-Git-Tag: ttn-vms-21-2-B4~14868
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=608d30f7bedb5ff889b0df623a8e70549e503645;p=emacs.git

(set-fringe-mode): Work when updating
`default-frame-alist'.
---

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 57b7b229048..1d3bf6d479e 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+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.
diff --git a/lisp/fringe.el b/lisp/fringe.el
index c7be27b061f..8ec6d142077 100644
--- a/lisp/fringe.el
+++ b/lisp/fringe.el
@@ -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)