1 |
;;; fringe.el --- change fringes appearance in various ways |
;;; fringe.el --- change fringes appearance in various ways |
2 |
|
|
3 |
;; Copyright (C) 2002, 2003 Free Software Foundation, Inc. |
;; Copyright (C) 2002, 2003, 2004 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: Simon Josefsson <simon@josefsson.org> |
;; Author: Simon Josefsson <simon@josefsson.org> |
6 |
;; Maintainer: FSF |
;; Maintainer: FSF |
257 |
0) |
0) |
258 |
(float (frame-char-width)))) |
(float (frame-char-width)))) |
259 |
|
|
260 |
|
;; Fake defvar. Real definition using defcustom is below. The fake |
261 |
;;;###autoload |
;; defvar is necessary because `fringe-indicators' and |
262 |
(defcustom fringe-indicators nil |
;; `set-fringe-indicators-1' mutually use each other. |
263 |
"Visually indicate buffer boundaries and scrolling. |
(defvar fringe-indicators) |
|
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) |
|
264 |
|
|
265 |
(defun set-fringe-indicators-1 (ignore value) |
(defun set-fringe-indicators-1 (ignore value) |
266 |
"Set fringe indicators according to VALUE. |
"Set fringe indicators according to VALUE. |
280 |
nil) |
nil) |
281 |
(t nil)))) |
(t nil)))) |
282 |
|
|
283 |
|
;;;###autoload |
284 |
|
(defcustom fringe-indicators nil |
285 |
|
"Visually indicate buffer boundaries and scrolling. |
286 |
|
Setting this variable, changes `default-indicate-buffer-boundaries'." |
287 |
|
:type '(choice (const :tag "No indicators" nil) |
288 |
|
(const :tag "On left" left) |
289 |
|
(const :tag "On right" right) |
290 |
|
(const :tag "Opposite, no arrows" box) |
291 |
|
(const :tag "Opposite, arrows right" mixed) |
292 |
|
(const :tag "Empty lines" empty)) |
293 |
|
:group 'fringe |
294 |
|
:require 'fringe |
295 |
|
:set 'set-fringe-indicators-1) |
296 |
|
|
297 |
(provide 'fringe) |
(provide 'fringe) |
298 |
|
|
299 |
;;; arch-tag: 6611ef60-0869-47ed-8b93-587ee7d3ff5d |
;;; arch-tag: 6611ef60-0869-47ed-8b93-587ee7d3ff5d |