From 608d30f7bedb5ff889b0df623a8e70549e503645 Mon Sep 17 00:00:00 2001 From: Simon Josefsson Date: Sun, 26 May 2002 09:50:39 +0000 Subject: [PATCH] (set-fringe-mode): Work when updating `default-frame-alist'. --- lisp/ChangeLog | 5 +++++ lisp/fringe.el | 8 ++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) 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 + + * fringe.el (set-fringe-mode): Work when updating + `default-frame-alist'. + 2002-05-26 Kim F. Storm * 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) -- 2.39.5