Current File : //kunden/usr/share/emacs/27.2/lisp/fringe.elc

;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.

;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
     (< (aref emacs-version (1- (length emacs-version))) ?A)
     (string-lessp emacs-version "23")
     (error "`%s' was compiled for Emacs 23 or later" #$))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(byte-code "\301\302\303\304\305\306\307\310&\210\311\300!\203:\312\313
\203.
@B\314@\302#\210
A\262\211T\262
\202\266\315\316\317\"\210\315\320\321\"\210\303\207" [fringe-bitmaps custom-declare-group fringe nil "Window fringes." :version "22.1" :group frames boundp (question-mark exclamation-mark left-arrow right-arrow up-arrow down-arrow left-curly-arrow right-curly-arrow left-triangle right-triangle top-left-angle top-right-angle bottom-left-angle bottom-right-angle left-bracket right-bracket filled-rectangle hollow-rectangle filled-square hollow-square vertical-bar horizontal-bar empty-line) 1 put set-default fringe-indicator-alist ((truncation left-arrow right-arrow) (continuation left-curly-arrow right-curly-arrow) (overlay-arrow . right-triangle) (up . up-arrow) (down . down-arrow) (top top-left-angle top-right-angle) (bottom bottom-left-angle bottom-right-angle top-right-angle top-left-angle) (top-bottom left-bracket right-bracket top-right-angle top-left-angle) (empty-line . empty-line) (unknown . question-mark)) fringe-cursor-alist ((box . filled-rectangle) (hollow . hollow-rectangle) (bar . vertical-bar) (hbar . horizontal-bar) (hollow-small . hollow-square))] 8)
#@59 Return non-nil if SYMBOL is a fringe bitmap.

(fn SYMBOL)
(defalias 'fringe-bitmap-p #[257 "\211\300N\207" [fringe] 3 (#$ . 1612)])
#@117 Non-nil means `set-fringe-mode' should really do something.
This is nil while loading `fringe.el', and t afterward.
(defvar fringe-mode-explicit nil (#$ . 1751))
#@174 Call `set-fringe-mode' with VALUE.
See `fringe-mode' for valid values and their effect.
This is usually invoked when setting `fringe-mode' via customize.

(fn IGNORE VALUE)
(defalias 'set-fringe-mode-1 #[514 "\300
!\207" [set-fringe-mode] 4 (#$ . 1920)])
#@131 Set `fringe-mode' to VALUE and put the new value into effect.
See `fringe-mode' for possible values and their effect.

(fn VALUE)
(defalias 'set-fringe-mode #[257 "\302
!\210\211	\205'\303\304:\203@\202B\305:\203#A\202$BD!\207" [fringe-mode fringe-mode-explicit fringe--check-style modify-all-frames-parameters left-fringe right-fringe] 5 (#$ . 2182)])
#@14 

(fn STYLE)
(defalias 'fringe--check-style #[257 "\211?\206*\211\250\206*\211:\203&\211@\203\211@\250\203&\211A?\206*\211A\250\206*\300\301\"\207" [error "Invalid fringe style `%s'"] 4 (#$ . 2555)])
#@21 

(fn SYMBOL VALUE)
(defalias 'fringe-mode-initialize #[514 "\302\236\303\236
A
A\204\203*

B\211\304\232\203\305	\306\232\2050\307\211\2020\310\"\207" [default-frame-alist fringe-mode left-fringe right-fringe (nil) nil (0 . 0) 0 custom-initialize-reset] 10 (#$ . 2770)])
#@448 Alist mapping fringe mode names to fringe widths.
Each list element has the form (NAME . WIDTH), where NAME is a
mnemonic fringe mode name and WIDTH is one of the following:
- nil, which means the default width (8 pixels).
- a cons cell (LEFT . RIGHT), where LEFT and RIGHT are
  respectively the left and right fringe widths in pixels, or
  nil (meaning the default width).
- a single integer, which specifies the pixel widths of both
  fringes.
(defconst fringe-styles '(("default") ("no-fringes" . 0) ("right-only" 0) ("left-only" nil . 0) ("half-width" 4 . 4) ("minimal" 1 . 1)) (#$ . 3067))
(byte-code "\302\303\304\305\306DD\307\310\311\312\313\314\"\315\"B\316\317\320\317\321\322\323\324&
\210\325\302\207" [fringe-styles fringe-mode-explicit custom-declare-variable fringe-mode funcall function #[0 "\300\207" [nil] 1] "Default appearance of fringes on all frames.\nThe Lisp value should be one of the following:\n- nil, which means the default width (8 pixels).\n- a cons cell (LEFT . RIGHT), where LEFT and RIGHT are\n  respectively the left and right fringe widths in pixels, or\n  nil (meaning the default width).\n- a single integer, which specifies the pixel widths of both\n  fringes.\nNote that the actual width may be rounded up to ensure that the\nsum of the width of the left and right fringes is a multiple of\nthe frame's character width.  However, a fringe width of 0 is\nnever rounded.\n\nWhen setting this variable from Customize, the user can choose\nfrom the mnemonic fringe mode names defined in `fringe-styles'.\n\nWhen setting this variable in a Lisp program, call\n`set-fringe-mode' afterward to make it take real effect.\n\nTo modify the appearance of the fringe in a specific frame, use\nthe interactive function `set-fringe-style'." :type choice append mapcar #[257 "\300\301\302@#\303\304\305\306\307\310#!\306\310\"PAF\207" [replace-regexp-in-string "-" " " const :tag capitalize substring 0 1] 9 "\n\n(fn STYLE)"] ((integer :tag "Specific width") (cons :tag "Different left/right sizes" (integer :tag "Left width") (integer :tag "Right width"))) :group fringe :require :initialize fringe-mode-initialize :set set-fringe-mode-1 t] 14)
#@343 Query user for fringe style.
Returns values suitable for left-fringe and right-fringe frame parameters.
If ALL-FRAMES, the negation of the fringe values in
`default-frame-alist' is used when user enters the empty string.
Otherwise the negation of the fringe value in the currently selected
frame parameter is used.

(fn &optional ALL-FRAMES)
(defalias 'fringe-query-style #[256 "\302\303\203\n\304\202\305\306Q\307\310$\311
\227\"\211\203\211A\2023\312\203(	\202*\313 \236A\314=?\2053\314\207" [fringe-styles default-frame-alist completing-read "Select fringe mode for " "all frames" "selected frame" ": " nil t assoc left-fringe frame-parameters 0] 6 (#$ . 5251)])
#@1063 Set the default appearance of fringes on all frames.
When called interactively, query the user for MODE; valid values
are `no-fringes', `default', `left-only', `right-only', `minimal'
and `half-width'.  See `fringe-styles'.

When used in a Lisp program, MODE should be one of these:
- nil, which means the default width (8 pixels).
- a cons cell (LEFT . RIGHT), where LEFT and RIGHT are
  respectively the left and right fringe widths in pixels, or
  nil (meaning the default width).
- a single integer, which specifies the pixel widths of both
  fringes.
This command may round up the left and right width specifications
to ensure that their sum is a multiple of the character width of
a frame.  It never rounds up a fringe width of 0.

Fringe widths set by `set-window-fringes' override the default
fringe widths set by this command.  This command applies to all
frames that exist and frames to be created in the future.  If you
want to set the default appearance of fringes on the selected
frame only, see the command `set-fringe-style'.

(fn &optional MODE)
(defalias 'fringe-mode #[256 "\300
!\207" [set-fringe-mode] 3 (#$ . 5938) (byte-code "\300\301!C\207" [fringe-query-style all-frames] 2)])
#@966 Set the default appearance of fringes on the selected frame.
When called interactively, query the user for MODE; valid values
are `no-fringes', `default', `left-only', `right-only', `minimal'
and `half-width'.  See `fringe-styles'.

When used in a Lisp program, MODE should be one of these:
- nil, which means the default width (8 pixels).
- a cons cell (LEFT . RIGHT), where LEFT and RIGHT are
  respectively the left and right fringe widths in pixels, or
  nil (meaning the default width).
- a single integer, which specifies the pixel widths of both
  fringes.
This command may round up the left and right width specifications
to ensure that their sum is a multiple of the character width of
a frame.  It never rounds up a fringe width of 0.

Fringe widths set by `set-window-fringes' override the default
fringe widths set by this command.  If you want to set the
default appearance of fringes on all frames, see the command
`fringe-mode'.

(fn &optional MODE)
(defalias 'set-fringe-style #[256 "\300
!\210\301\302 \303:\203@\202B\304:\203A\202 BD\"\207" [fringe--check-style modify-frame-parameters selected-frame left-fringe right-fringe] 6 (#$ . 7146) (byte-code "\300 C\207" [fringe-query-style] 1)])
#@247 Return the width, measured in columns, of the fringe area on SIDE.
If optional argument REAL is non-nil, return a real floating point
number instead of a rounded integer value.
SIDE must be the symbol `left' or `right'.

(fn SIDE &optional REAL)
(defalias 'fringe-columns #[513 "\211\203\300\202	\301\302=\203\303\202\304\305 !\206\306\307\310 !\"\207" [/ ceiling left car cadr window-fringes 0 float frame-char-width] 6 (#$ . 8375)])
(byte-code "\300\301\302\303#\210\304\305!\204\306\305\307\"\210\310\311!\207" [put fringe-columns byte-optimizer byte-compile-inline-expand fboundp define-fringe-bitmap defalias #[1282 "\300\207" ["Define fringe bitmap BITMAP from BITS of size HEIGHT x WIDTH.\nBITMAP is a symbol identifying the new fringe bitmap.\nBITS is either a string or a vector of integers.\nHEIGHT is height of bitmap.  If HEIGHT is nil, use length of BITS.\nWIDTH must be an integer between 1 and 16, or nil which defaults to 8.\nOptional fifth arg ALIGN may be one of ‘top’, ‘center’, or ‘bottom’,\nindicating the positioning of the bitmap relative to the rows where it\nis used; the default is to center the bitmap.  Fifth arg may also be a\nlist (ALIGN PERIODIC) where PERIODIC non-nil specifies that the bitmap\nshould be repeated.\nIf BITMAP already exists, the existing definition is replaced."] 6 "Define fringe bitmap BITMAP from BITS of size HEIGHT x WIDTH.\nBITMAP is a symbol identifying the new fringe bitmap.\nBITS is either a string or a vector of integers.\nHEIGHT is height of bitmap.  If HEIGHT is nil, use length of BITS.\nWIDTH must be an integer between 1 and 16, or nil which defaults to 8.\nOptional fifth arg ALIGN may be one of ‘top’, ‘center’, or ‘bottom’,\nindicating the positioning of the bitmap relative to the rows where it\nis used; the default is to center the bitmap.  Fifth arg may also be a\nlist (ALIGN PERIODIC) where PERIODIC non-nil specifies that the bitmap\nshould be repeated.\nIf BITMAP already exists, the existing definition is replaced.\n\n(fn BITMAP BITS &optional HEIGHT WIDTH ALIGN)"] provide fringe] 4)