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

[Luc Teirlinck]

Index: emacs/lisp/fringe.el
diff -c emacs/lisp/fringe.el:1.20 emacs/lisp/fringe.el:1.21
*** emacs/lisp/fringe.el:1.20   Sat Jul  9 20:43:32 2005
--- emacs/lisp/fringe.el        Sat Aug  6 21:59:02 2005
***************
*** 260,302 ****
               0)
             (float (frame-char-width))))
  
- ;; Fake defvar.  Real definition using defcustom is below.  The fake
- ;; defvar is necessary because `fringe-indicators' and
- ;; `set-fringe-indicators-1' mutually use each other.
- (defvar fringe-indicators)
- 
- (defun set-fringe-indicators-1 (ignore value)
-   "Set fringe indicators according to VALUE.
- This is usually invoked when setting `fringe-indicators' via customize."
-   (setq fringe-indicators value)
-   (setq default-indicate-empty-lines nil)
-   (setq default-indicate-buffer-boundaries
-       (cond
-        ((memq value '(left right t))
-         value)
-        ((eq value 'box)
-         '((top . left) (bottom . right)))
-        ((eq value 'mixed)
-         '((top . left) (t . right)))
-        ((eq value 'empty)
-         (setq default-indicate-empty-lines t)
-         nil)
-        (t nil))))
- 
- ;;;###autoload
- (defcustom fringe-indicators nil
-   "Visually indicate buffer boundaries and scrolling.
- Setting this variable, changes `default-indicate-buffer-boundaries'."
-   :type '(choice (const :tag "No indicators" nil)
-                (const :tag "On left" left)
-                (const :tag "On right" right)
-                (const :tag "Opposite, no arrows" box)
-                (const :tag "Opposite, arrows right" mixed)
-                (const :tag "Empty lines" empty))
-   :group 'fringe
-   :require 'fringe
-   :set 'set-fringe-indicators-1)
- 
  (provide 'fringe)
  
  ;;; arch-tag: 6611ef60-0869-47ed-8b93-587ee7d3ff5d
--- 260,265 ----