mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-23 10:34:07 +00:00
Code Issues Releases Activity

(set-fringe-mode): Work when updating

Browse Source 
`default-frame-alist'.
This commit is contained in:
Simon Josefsson 2002-05-26 09:50:39 +00:00
parent 9e8abde7d3
commit 608d30f7be
2 changed files with 11 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lisp/ChangeLog
View File

@ -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> 2002-05-26 Kim F. Storm <storm@cua.dk>
* emulation/cua-base.el (cua--repeat-replace-text): New variable. * emulation/cua-base.el (cua--repeat-replace-text): New variable.

8
lisp/fringe.el
View File

@ -51,7 +51,9 @@ See `fringe-mode' for possible values and their effect."
;; Apply it to default-frame-alist. ;; Apply it to default-frame-alist.
(let ((parameter (assq 'left-fringe default-frame-alist))) (let ((parameter (assq 'left-fringe default-frame-alist)))
(if (consp parameter) (if (consp parameter)
(setcdr parameter fringe-mode) (setcdr parameter (if (consp fringe-mode)
(car fringe-mode)
fringe-mode))
(setq default-frame-alist (setq default-frame-alist
(cons (cons 'left-fringe (if (consp fringe-mode) (cons (cons 'left-fringe (if (consp fringe-mode)
(car fringe-mode) (car fringe-mode)
@ -59,7 +61,9 @@ See `fringe-mode' for possible values and their effect."
default-frame-alist)))) default-frame-alist))))
(let ((parameter (assq 'right-fringe default-frame-alist))) (let ((parameter (assq 'right-fringe default-frame-alist)))
(if (consp parameter) (if (consp parameter)
(setcdr parameter fringe-mode) (setcdr parameter (if (consp fringe-mode)
(cdr fringe-mode)
fringe-mode))
(setq default-frame-alist (setq default-frame-alist
(cons (cons 'right-fringe (if (consp fringe-mode) (cons (cons 'right-fringe (if (consp fringe-mode)
(cdr fringe-mode) (cdr fringe-mode)