diff options
| author | Simon Josefsson <jas@extundo.com> | 2002-05-26 09:50:39 +0000 |
|---|---|---|
| committer | Simon Josefsson <jas@extundo.com> | 2002-05-26 09:50:39 +0000 |
| commit | 608d30f7bedb5ff889b0df623a8e70549e503645 (patch) | |
| tree | a5b9a11896885019163af4cc6c819368c455d138 /lisp | |
| parent | 9e8abde7d3a35ec43cd4e66daf281f7d4598c901 (diff) | |
| download | emacs-608d30f7bedb5ff889b0df623a8e70549e503645.tar.gz | |
(set-fringe-mode): Work when updating
`default-frame-alist'.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <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) |