[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/fringe.el
From: |
Luc Teirlinck |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/fringe.el |
Date: |
Sat, 27 Nov 2004 21:34:14 -0500 |
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