Mercurial > emacs
diff lisp/fringe.el @ 58599:119590228e9a
(fringe-indicators): Add fake defvar to avoid compiler warning. Delay
real definition, which uses `set-fringe-indicators-1' till after the
definition of that function.
| author | Luc Teirlinck <teirllm@auburn.edu> |
|---|---|
| date | Sun, 28 Nov 2004 02:28:09 +0000 |
| parents | fa269b651143 |
| children | aac0a33f5772 f2ebccfa87d4 |
line wrap: on
line diff
--- a/lisp/fringe.el Sun Nov 28 00:56:43 2004 +0000 +++ b/lisp/fringe.el Sun Nov 28 02:28:09 2004 +0000 @@ -1,6 +1,6 @@ ;;; fringe.el --- change fringes appearance in various ways -;; Copyright (C) 2002, 2003 Free Software Foundation, Inc. +;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc. ;; Author: Simon Josefsson <simon@josefsson.org> ;; Maintainer: FSF @@ -257,20 +257,10 @@ 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) +;; 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,6 +280,20 @@ 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