[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/fringe.el [emacs-unicode-2]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/fringe.el [emacs-unicode-2] |
Date: |
Wed, 08 Dec 2004 01:48:46 -0500 |
Index: emacs/lisp/fringe.el
diff -c emacs/lisp/fringe.el:1.5.4.3 emacs/lisp/fringe.el:1.5.4.4
*** emacs/lisp/fringe.el:1.5.4.3 Fri Oct 22 10:13:29 2004
--- emacs/lisp/fringe.el Wed Dec 8 05:02:15 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
***************
*** 35,40 ****
--- 35,45 ----
;;; Code:
+ (defgroup fringe nil
+ "Window fringes."
+ :version "21.4"
+ :group 'frames)
+
;; Standard fringe bitmaps
(defmacro fringe-bitmap-p (symbol)
***************
*** 156,162 ****
(cons :tag "Different left/right sizes"
(integer :tag "Left width")
(integer :tag "Right width")))
! :group 'frames
:require 'fringe
:initialize 'fringe-mode-initialize
:set 'set-fringe-mode-1)
--- 161,167 ----
(cons :tag "Different left/right sizes"
(integer :tag "Left width")
(integer :tag "Right width")))
! :group 'fringe
:require 'fringe
:initialize 'fringe-mode-initialize
:set 'set-fringe-mode-1)
***************
*** 252,257 ****
--- 257,299 ----
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] Changes to emacs/lisp/fringe.el [emacs-unicode-2],
Miles Bader <=