[Emacs-diffs] Changes to emacs/lisp/fringe.el

[Simon Josefsson]

Index: emacs/lisp/fringe.el
diff -c emacs/lisp/fringe.el:1.3 emacs/lisp/fringe.el:1.4
*** emacs/lisp/fringe.el:1.3    Sat May 25 19:16:00 2002
--- emacs/lisp/fringe.el        Sun May 26 05:50:18 2002
***************
*** 51,57 ****
    ;; Apply it to default-frame-alist.
    (let ((parameter (assq 'left-fringe default-frame-alist)))
      (if (consp parameter)
!       (setcdr parameter fringe-mode)
        (setq default-frame-alist
            (cons (cons 'left-fringe (if (consp fringe-mode)
                                         (car fringe-mode)
--- 51,59 ----
    ;; Apply it to default-frame-alist.
    (let ((parameter (assq 'left-fringe default-frame-alist)))
      (if (consp parameter)
!       (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,65 ****
                  default-frame-alist))))
    (let ((parameter (assq 'right-fringe default-frame-alist)))
      (if (consp parameter)
!       (setcdr parameter fringe-mode)
        (setq default-frame-alist
            (cons (cons 'right-fringe (if (consp fringe-mode)
                                          (cdr fringe-mode)
--- 61,69 ----
                  default-frame-alist))))
    (let ((parameter (assq 'right-fringe default-frame-alist)))
      (if (consp parameter)
!       (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)