/[emacs]/emacs/lisp/fringe.el
ViewVC logotype

Diff of /emacs/lisp/fringe.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.5.4.2 by miles, Wed Sep 29 07:22:18 2004 UTC revision 1.5.4.3 by miles, Fri Oct 22 10:13:29 2004 UTC
# Line 43  Line 43 
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
# Line 112  See `fringe-mode' for possible values an Line 113  See `fringe-mode' for possible values an
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.
# Line 138  you can use the interactive function `to Line 158  you can use the interactive function `to
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)

Legend:
Removed from v.1.5.4.2  
changed lines
  Added in v.1.5.4.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26