43 |
|
|
44 |
(defvar fringe-bitmaps) |
(defvar fringe-bitmaps) |
45 |
|
|
46 |
(unless (get 'left-truncation 'fringe) |
(unless (or (not (boundp 'fringe-bitmaps)) |
47 |
|
(get 'left-truncation 'fringe)) |
48 |
(let ((bitmaps '(left-truncation right-truncation |
(let ((bitmaps '(left-truncation right-truncation |
49 |
up-arrow down-arrow |
up-arrow down-arrow |
50 |
continued-line continuation-line |
continued-line continuation-line |
113 |
fringe-mode)))) |
fringe-mode)))) |
114 |
(setq frames (cdr frames))))) |
(setq frames (cdr frames))))) |
115 |
|
|
116 |
|
;; For initialization of fringe-mode, take account of changes |
117 |
|
;; made explicitly to default-frame-alist. |
118 |
|
(defun fringe-mode-initialize (symbol value) |
119 |
|
(let* ((left-pair (assq 'left-fringe default-frame-alist)) |
120 |
|
(right-pair (assq 'right-fringe default-frame-alist)) |
121 |
|
(left (cdr left-pair)) |
122 |
|
(right (cdr right-pair))) |
123 |
|
(if (or left-pair right-pair) |
124 |
|
;; If there's something in default-frame-alist for fringes, |
125 |
|
;; don't change it, but reflect that into the value of fringe-mode. |
126 |
|
(progn |
127 |
|
(setq fringe-mode (cons left right)) |
128 |
|
(if (equal fringe-mode '(nil . nil)) |
129 |
|
(setq fringe-mode nil)) |
130 |
|
(if (equal fringe-mode '(0 . 0)) |
131 |
|
(setq fringe-mode 0))) |
132 |
|
;; Otherwise impose the user-specified value of fringe-mode. |
133 |
|
(custom-initialize-reset symbol value)))) |
134 |
|
|
135 |
;;;###autoload |
;;;###autoload |
136 |
(defcustom fringe-mode nil |
(defcustom fringe-mode nil |
137 |
"*Specify appearance of fringes on all frames. |
"*Specify appearance of fringes on all frames. |
158 |
(integer :tag "Right width"))) |
(integer :tag "Right width"))) |
159 |
:group 'frames |
:group 'frames |
160 |
:require 'fringe |
:require 'fringe |
161 |
|
:initialize 'fringe-mode-initialize |
162 |
:set 'set-fringe-mode-1) |
:set 'set-fringe-mode-1) |
163 |
|
|
164 |
(defun fringe-query-style (&optional all-frames) |
(defun fringe-query-style (&optional all-frames) |