Mercurial > emacs

changeset 64761:e72e59c66778

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(set-fringe-indicators-1, fringe-indicators): Delete.
author Luc Teirlinck <teirllm@auburn.edu>
date Sat, 06 Aug 2005 21:59:02 +0000
parents 4f6b04b42ad4
children 41bb365f41c4
files lisp/fringe.el
diffstat 1 files changed, 0 insertions(+), 37 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/fringe.el	Sat Aug 06 21:51:38 2005 +0000
+++ b/lisp/fringe.el	Sat Aug 06 21:59:02 2005 +0000
@@ -260,43 +260,6 @@
 	       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