Mercurial > emacs

changeset 45524:f48a8ed9d03a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-fringe-mode): Work when updating `default-frame-alist'.
author Simon Josefsson <jas@extundo.com>
date Sun, 26 May 2002 09:50:18 +0000
parents 7b343e11e4a3
children b7e5e5b2e920
files lisp/fringe.el
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- 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)