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

[Luc Teirlinck]

Index: emacs/lisp/fringe.el
diff -c emacs/lisp/fringe.el:1.15 emacs/lisp/fringe.el:1.16
*** emacs/lisp/fringe.el:1.15   Sun Nov 28 00:56:28 2004
--- emacs/lisp/fringe.el        Sun Nov 28 02:28:09 2004
***************
*** 1,6 ****
  ;;; fringe.el --- change fringes appearance in various ways
  
! ;; Copyright (C) 2002, 2003 Free Software Foundation, Inc.
  
  ;; Author: Simon Josefsson <address@hidden>
  ;; Maintainer: FSF
--- 1,6 ----
  ;;; fringe.el --- change fringes appearance in various ways
  
! ;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc.
  
  ;; Author: Simon Josefsson <address@hidden>
  ;; Maintainer: FSF
***************
*** 257,276 ****
               0)
             (float (frame-char-width))))
  
! 
! ;;;###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)
  
  (defun set-fringe-indicators-1 (ignore value)
    "Set fringe indicators according to VALUE.
--- 257,266 ----
               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.
***************
*** 290,295 ****
--- 280,299 ----
          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