| Current Path : /usr/share/emacs/24.3/lisp/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/fringe.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:12:51 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/fringe.el
;;; in Emacs version 24.3
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\303\304\305\306\307\310\311\312&\210\313\302!\2039 \314\315 \203. @\nB\316 @\304#\210 AT\202 *\317\320\321\"\210\317\322\323\"\210\305\207" [bn bitmaps 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)
#@46 Return non-nil if SYMBOL is a fringe bitmap.
(defalias 'fringe-bitmap-p '(macro . #[(symbol) "\301\302BB\207" [symbol get ('fringe)] 3 (#$ . 1750)]))
#@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 (#$ . 1908))
#@155 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.
(defalias 'set-fringe-mode-1 #[(_ignore value) "\301!\207" [value set-fringe-mode] 2 (#$ . 2077)])
#@119 Set `fringe-mode' to VALUE and put the new value into effect.
See `fringe-mode' for possible values and their effect.
(defalias 'set-fringe-mode #[(value) "\303!\210\n\205' \304\305 :\203 @\202 B\306 :\203# A\202$ BD!\207" [value fringe-mode fringe-mode-explicit fringe--check-style modify-all-frames-parameters left-fringe right-fringe] 4 (#$ . 2338)])
(defalias 'fringe--check-style #[(style) "?\206* \250\206* :\203& @\203 @\250\203& A?\206* A\250\206* \301\302\"\207" [style error "Invalid fringe style `%s'"] 3])
(defalias 'fringe-mode-initialize #[(symbol value) "\306\236\307\236 A\nA \204 \n\203. \fB\211\310\232\203\" \311
\312\232\2054 \313\211\2024 \314
\",\207" [default-frame-alist left-pair right-pair left right fringe-mode left-fringe right-fringe (nil) nil (0 . 0) 0 custom-initialize-reset symbol value] 4])
#@464 Alist mapping fringe mode names to fringe widths.
Each list element has the form (NAME . WIDTH), where NAME is a
mnemonic fringe mode name (a symbol) 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 to disable that fringe).
- 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)) (#$ . 3203))
(byte-code "\302\303\304\305\306\307\310\311\312\"\313\"B\314\315\316\315\317\320\321\322&
\210\323\304\207" [fringe-styles fringe-mode-explicit custom-declare-variable fringe-mode nil "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 to disable that fringe).\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 #[(style) "\302\303\304@#\305\306\307 \310\311O! \311\312OPAF)\207" [style name replace-regexp-in-string "-" " " const :tag capitalize 0 1 nil] 6] ((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)
#@316 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.
(defalias 'fringe-query-style #[(&optional all-frames) "\305\306\203\n \307\202 \310\311Q \312\313$\314\n\227 \"\211\203! A\2025 \315\203* \f\202, \316 \236A\317=?\2055 \317*\207" [all-frames fringe-styles mode style default-frame-alist completing-read "Select fringe mode for " "all frames" "selected frame" ": " nil t assoc left-fringe frame-parameters 0] 6 (#$ . 5350)])
#@1047 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 to disable that fringe).
- 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'.
(defalias 'fringe-mode #[(&optional mode) "\301!\207" [mode set-fringe-mode] 2 (#$ . 6053) (list (fringe-query-style 'all-frames))])
#@950 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 to disable that fringe).
- 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'.
(defalias 'set-fringe-style #[(&optional mode) "\301!\210\302\303 \304:\203 @\202 B\305:\203 A\202 BD\"\207" [mode fringe--check-style modify-frame-parameters selected-frame left-fringe right-fringe] 5 (#$ . 7240) (list (fringe-query-style))])
#@221 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'.
(defalias 'fringe-columns #[(side &optional real) "\203 \302\202 \303 \304=\203 \305\202 \306\307 !\206 \310\311\312 !\"\207" [real side / ceiling left car cadr window-fringes 0 float frame-char-width] 4 (#$ . 8451)])
(byte-code "\300\301\302\303#\210\304\305!\207" [put fringe-columns byte-optimizer byte-compile-inline-expand provide fringe] 4)