/[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.1 by handa, Fri Apr 16 12:49:50 2004 UTC revision 1.5.4.2 by miles, Wed Sep 29 07:22:18 2004 UTC
# Line 37  Line 37 
37    
38  ;; Standard fringe bitmaps  ;; Standard fringe bitmaps
39    
40  (defconst no-fringe-bitmap 0)  (defmacro fringe-bitmap-p (symbol)
41  (defconst undef-fringe-bitmap 1)    "Return non-nil if SYMBOL is a fringe bitmap."
42  (defconst left-truncation-fringe-bitmap 2)    `(get ,symbol 'fringe))
43  (defconst right-truncation-fringe-bitmap 3)  
44  (defconst up-arrow-fringe-bitmap 4)  (defvar fringe-bitmaps)
45  (defconst down-arrow-fringe-bitmap 5)  
46  (defconst continued-line-fringe-bitmap 6)  (unless (get 'left-truncation 'fringe)
47  (defconst continuation-line-fringe-bitmap 7)    (let ((bitmaps '(left-truncation right-truncation
48  (defconst overlay-arrow-fringe-bitmap 8)                     up-arrow down-arrow
49  (defconst top-left-angle-fringe-bitmap 9)                     continued-line continuation-line
50  (defconst top-right-angle-fringe-bitmap 10)                     overlay-arrow
51  (defconst bottom-left-angle-fringe-bitmap 11)                     top-left-angle top-right-angle
52  (defconst bottom-right-angle-fringe-bitmap 12)                     bottom-left-angle bottom-right-angle
53  (defconst left-bracket-fringe-bitmap 13)                     left-bracket right-bracket
54  (defconst right-bracket-fringe-bitmap 14)                     filled-box-cursor hollow-box-cursor hollow-square
55  (defconst filled-box-cursor-fringe-bitmap 15)                     bar-cursor hbar-cursor
56  (defconst hollow-box-cursor-fringe-bitmap 16)                     empty-line))
57  (defconst hollow-square-fringe-bitmap 17)          (bn 2))
58  (defconst bar-cursor-fringe-bitmap 18)      (while bitmaps
59  (defconst hbar-cursor-fringe-bitmap 19)        (push (car bitmaps) fringe-bitmaps)
60  (defconst empty-line-fringe-bitmap 20)        (put (car bitmaps) 'fringe bn)
61          (setq bitmaps (cdr bitmaps)
62                bn (1+ bn)))))
63    
64    
65  ;; Control presence of fringes  ;; Control presence of fringes
# Line 228  SIDE must be the symbol `left' or `right Line 230  SIDE must be the symbol `left' or `right
230                          (window-fringes))                          (window-fringes))
231                 0)                 0)
232             (float (frame-char-width))))             (float (frame-char-width))))
233      
234  (provide 'fringe)  (provide 'fringe)
235    
236  ;;; arch-tag: 6611ef60-0869-47ed-8b93-587ee7d3ff5d  ;;; arch-tag: 6611ef60-0869-47ed-8b93-587ee7d3ff5d

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

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