;ELC ;;; Compiled by cyd@localhost on Mon Apr 23 22:20:49 2007 ;;; from file /home/cyd/emacs/lisp/fringe.el ;;; in Emacs version 22.0.99 ;;; with all optimizations. ;;; This file uses dynamic docstrings, first added in Emacs 19.29. (if (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`fringe.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (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 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 (#$ . 1745)])) #@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 (#$ . 1903)]) #@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) "\305\n\236\211:\203 :\203 @\202 \241\210\202,\305 :\203' @\202( B\nB)\306\n\236\211:\203G :\203A A\202B \241\210\202W\306 :\203R A\202S B\nB)\307 \211\205\207\310\f@\305 :\203m @\202n B\306 :\203z A\202{ BD\"\210\fA\211\204_\311)\207" [value fringe-mode default-frame-alist parameter frames left-fringe right-fringe frame-list modify-frame-parameters nil] 6 (#$ . 2163)]) (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]) #@686 *Specify appearance of fringes on all frames. This variable can be nil (the default) meaning the fringes should have the default width (8 pixels), it can be an integer value specifying the width of both left and right fringe (where 0 means no fringe), or a cons cell where car indicates width of left fringe and cdr indicates width of right fringe (where again 0 can be used to indicate no fringe). To set this variable in a Lisp program, use `set-fringe-mode' to make it take real effect. Setting the variable with a customization buffer also takes effect. If you only want to modify the appearance of the fringe in one frame, you can use the interactive function `set-fringe-style'. (custom-declare-variable 'fringe-mode 'nil '(#$ . -3051) :type '(choice (const :tag "Default width" nil) (const :tag "No fringes" 0) (const :tag "Only right" (0)) (const :tag "Only left" (nil . 0)) (const :tag "Half width" (5 . 5)) (const :tag "Minimal" (1 . 1)) (integer :tag "Specific width") (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) #@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) "\303\304\305\203 \306\202\f\307\310Q\311\312\313$!\211\314=\203\315\202n \316=\203(\312\202n \317=\2032\320\202n \321=\203<\322\202n \323=\203F\324\202n \325=\203P\326\202n \303\327!=\205n\330\203a\n\202e\331\332 !\236A\315=?\205n\315)\207" [all-frames mode default-frame-alist intern completing-read "Select fringe mode for " "all frames" "selected frame" " (type ? for list): " (("none") ("default") ("left-only") ("right-only") ("half") ("minimal")) nil t none 0 default left-only (nil . 0) right-only (0) half (5 . 5) minimal (1 . 1) "" left-fringe frame-parameters selected-frame] 7 (#$ . 4230)]) #@1040 Set the default appearance of fringes on all frames. When called interactively, query the user for MODE. Valid values for MODE include `none', `default', `left-only', `right-only', `minimal' and `half'. When used in a Lisp program, MODE can be a cons cell where the integer in car specifies the left fringe width and the integer in cdr specifies the right fringe width. MODE can also be a single integer that specifies both the left and the right fringe width. If a fringe width specification is nil, that means to use the default width (8 pixels). 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 (#$ . 5233) (list (fringe-query-style 'all-frames))]) #@943 Set the default appearance of fringes on the selected frame. When called interactively, query the user for MODE. Valid values for MODE include `none', `default', `left-only', `right-only', `minimal' and `half'. When used in a Lisp program, MODE can be a cons cell where the integer in car specifies the left fringe width and the integer in cdr specifies the right fringe width. MODE can also be a single integer that specifies both the left and the right fringe width. If a fringe width specification is nil, that means to use the default width (8 pixels). 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\302 \303:\203@\202B\304:\203A\202BD\"\207" [mode modify-frame-parameters selected-frame left-fringe right-fringe] 5 (#$ . 6413) (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 (#$ . 7587)]) (byte-code "\300\301\302\303#\210\304\305!\207" [put fringe-columns byte-optimizer byte-compile-inline-expand provide fringe] 4)