| 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/face-remap.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:06:17 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/face-remap.el
;;; in Emacs version 24.3.1
;;; 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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defvar internal-lisp-face-attributes [nil :family :foundry :swidth :height :weight :slant :underline :inverse :foreground :background :stipple :overline :strike :box :font :inherit :fontset :vector])
#@471 Return true if ATTRS1 contains a greater number of relative
face-attributes than ATTRS2. A face attribute is considered
relative if `face-attribute-relative-p' returns non-nil.
ATTRS1 and ATTRS2 may be any value suitable for a `face' text
property, including face names, lists of face names,
face-attribute plists, etc.
This function can be used as a predicate with `sort', to sort
face lists so that more specific faces are located near the end.
(fn ATTRS1 ATTRS2)
(defalias 'face-attrs-more-relative-p #[514 "\301!\204 \302!\262\301!\204 \302!\262\303\211G\303\211W\203N \211H\211\203E \304 H\"\2037 T\262\304H\"\203E T\262\266\211T\262\202 \266W\207" [internal-lisp-face-attributes vectorp face-attributes-as-vector 0 face-attribute-relative-p] 12 (#$ . 755)])
#@141 Order ENTRY so that more relative face specs are near the beginning.
The list structure of ENTRY may be destructively modified.
(fn ENTRY)
(defalias 'face-remap-order #[257 "\211\237\262\211\300A\301\"\241\210\211\237\207" [sort face-attrs-more-relative-p] 5 (#$ . 1559)])
#@1032 Add a face remapping entry of FACE to SPECS in the current buffer.
Return a cookie which can be used to delete this remapping with
`face-remap-remove-relative'.
The remaining arguments, SPECS, should form a list of faces.
Each list element should be either a face name or a property list
of face attribute/value pairs. If more than one face is listed,
that specifies an aggregate face, in the same way as in a `face'
text property, except for possible priority changes noted below.
The face remapping specified by SPECS takes effect alongside the
remappings from other calls to `face-remap-add-relative' for the
same FACE, as well as the normal definition of FACE (at lowest
priority). This function tries to sort multiple remappings for
the same face, so that remappings specifying relative face
attributes are applied after remappings specifying absolute face
attributes.
The base (lowest priority) remapping may be set to something
other than the normal definition of FACE via `face-remap-set-base'.
(fn FACE &rest SPECS)
(defalias 'face-remap-add-relative #[385 "\211:\203 \211A\204 \211@\262\202 \301\300!\210\236\211\204% \211D\262\211B\211A\2119\2030 \211C\262\302B!\241\266B\207" [face-remapping-alist make-local-variable face-remap-order] 8 (#$ . 1843)])
#@139 Remove a face remapping previously added by `face-remap-add-relative'.
COOKIE should be the return value from that function.
(fn COOKIE)
(defalias 'face-remap-remove-relative #[257 "\211@\236\211\2054 \301AA\"\211A=?\2052 \241\210\211\203+ \211\242@=\2030 \211A\2040 \301\"A\262\207" [face-remapping-alist remq] 6 (#$ . 3137)])
#@193 Set the base remapping of FACE to the normal definition of FACE.
This causes the remappings specified by `face-remap-add-relative'
to apply on top of the normal definition of FACE.
(fn FACE)
(defalias 'face-remap-reset-base #[257 "\211\236\211\205 \211\211AA)\204 \302\"\211\202 \303!\240\207" [face-remapping-alist x remq last] 5 (#$ . 3485)])
#@653 Set the base remapping of FACE in the current buffer to SPECS.
This causes the remappings specified by `face-remap-add-relative'
to apply on top of the face specification given by SPECS.
The remaining arguments, SPECS, should form a list of faces.
Each list element should be either a face name or a property list
of face attribute/value pairs, like in a `face' text property.
If SPECS is empty, call `face-remap-reset-base' to use the normal
definition of FACE as the base remapping; note that this is
different from SPECS containing a single value `nil', which means
not to inherit from the global definition of FACE at all.
(fn FACE &rest SPECS)
(defalias 'face-remap-set-base #[385 "\211:\203 \211@\203 \211A\204 \211@\262\202 \211\203& \211@=\203* \211A\204* \301!\207\302\300!\210\236\211\203= \303!\240\202D DB\211\207" [face-remapping-alist face-remap-reset-base make-local-variable last] 5 (#$ . 3848)])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \207" [custom-declare-variable text-scale-mode-step funcall function #[0 "\300\207" [1.2] 1 "\n\n(fn)"] "Scale factor used by `text-scale-mode'.\nEach positive or negative step scales the default face height by this amount." :group display :type number :version "23.1"] 10)
(defvar text-scale-mode-remapping nil)
(make-variable-buffer-local 'text-scale-mode-remapping)
(defvar text-scale-mode-lighter "+0")
(make-variable-buffer-local 'text-scale-mode-lighter)
(defvar text-scale-mode-amount 0)
(make-variable-buffer-local 'text-scale-mode-amount)
#@99 Non-nil if Text-Scale mode is enabled.
Use the command `text-scale-mode' to change this variable.
(defvar text-scale-mode nil (#$ . 5397))
(make-variable-buffer-local 'text-scale-mode)
#@671 Minor mode for displaying buffer text in a larger/smaller font.
With a prefix argument ARG, enable the mode if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil.
The amount of scaling is determined by the variable
`text-scale-mode-amount': one step scales the global default
face size by the value of the variable `text-scale-mode-step'
(a negative amount shrinks the text).
The `text-scale-increase', `text-scale-decrease', and
`text-scale-set' functions may be used to interactively modify
the variable `text-scale-mode-amount' (they also enable or
disable `text-scale-mode' as necessary).
(fn &optional ARG)
(defalias 'text-scale-mode #[256 "\305 \306=\203
?\202 \307!\310V \203 \311 !\210\312\n\310Y\203& \313\202' \314\n\"\2056 \315\316\317\320\f\n\"#\321p!\210\322\323\203E \324\202F \325\"\210\326\327!\203g \305 \203Z \211\305 \232\203g \330\331\203d \332\202e \333\"\210\210\334 \210\207" [text-scale-mode text-scale-mode-remapping text-scale-mode-amount text-scale-mode-lighter text-scale-mode-step current-message toggle prefix-numeric-value 0 face-remap-remove-relative format "+%d" "%d" face-remap-add-relative default :height expt force-window-update run-hooks text-scale-mode-hook text-scale-mode-on-hook text-scale-mode-off-hook called-interactively-p any message "Text-Scale mode %sabled" "en" "dis" force-mode-line-update] 8 (#$ . 5589) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(byte-code "\301\302\303\304\300!\205\n \305\211%\207" [text-scale-mode-map add-minor-mode text-scale-mode (" " text-scale-mode-lighter) boundp nil] 6)
#@379 Set the scale factor of the default face in the current buffer to LEVEL.
If LEVEL is non-zero, `text-scale-mode' is enabled, otherwise it is disabled.
LEVEL is a number of steps, with 0 representing the default size.
Each step scales the height of the default face by the variable
`text-scale-mode-step' (a negative number decreases the height by
the same amount).
(fn LEVEL)
(defalias 'text-scale-set #[257 "\211\301\302!\203
\303\202 \304!\207" [text-scale-mode-amount text-scale-mode zerop -1 1] 4 (#$ . 7239) "p"])
#@399 Increase the height of the default face in the current buffer by INC steps.
If the new height is other than the default, `text-scale-mode' is enabled.
Each step scales the height of the default face by the variable
`text-scale-mode-step' (a negative number of steps decreases the
height by the same amount). As a special case, an argument of 0
will remove any scaling currently active.
(fn INC)
(defalias 'text-scale-increase #[257 "\211\302U\203\n \302\202 \203 \202 \302\\\300\303 !\203! \304\202\" \305!\207" [text-scale-mode text-scale-mode-amount 0 zerop -1 1] 4 (#$ . 7771) "p"])
#@131 Decrease the height of the default face in the current buffer by DEC steps.
See `text-scale-increase' for more details.
(fn DEC)
(defalias 'text-scale-decrease #[257 "\300[!\207" [text-scale-increase] 3 (#$ . 8374) "p"])
#@1145 Adjust the height of the default face by INC.
INC may be passed as a numeric prefix argument.
The actual adjustment made depends on the final component of the
key-binding used to invoke the command, with all modifiers removed:
+, = Increase the default face height by one step
- Decrease the default face height by one step
0 Reset the default face height to the global default
When adjusting with `+' or `-', continue to read input events and
further adjust the face height as long as the input event read
(with all modifiers removed) is `+' or `-'.
When adjusting with `0', immediately finish.
Each step scales the height of the default face by the variable
`text-scale-mode-step' (a negative number of steps decreases the
height by the same amount). As a special case, an argument of 0
will remove any scaling currently active.
This command is a special-purpose wrapper around the
`text-scale-increase' command which makes repetition convenient
even when it is bound in a non-top-level keymap. For binding in
a top-level keymap, `text-scale-increase' or
`text-scale-decrease' may be more appropriate.
(fn INC)
(defalias 'text-scale-adjust #[257 "\302\303!\211\304>\203 \202& \211\305=\203 [\202& \211\306=\203% \307\202& \310!\210\311\312!\210\313\314 \315\211\203i \211@\316\211\203a \211@\317\320\321C\"!\322\307\323\324\320!\325\"\326\327\302&#\210A\266\202\2029 \210A\266\202\2022 \210\211\262!\266\202)\207" [last-command-event echo-keystrokes nil event-basic-type (43 61) 45 48 0 text-scale-increase message "Use +,-,0 for further adjustment" set-temporary-overlay-map make-sparse-keymap (nil (control)) (45 43 61 48) define-key vector append make-byte-code "\301\302\300!!\207" vconcat [text-scale-adjust abs] 3 "\n\n(fn)"] 20 (#$ . 8605) "p"])
(byte-code "\300\301\302\303\304DD\305\306\307\310\311&\207" [custom-declare-variable buffer-face-mode-face funcall function #[0 "\300\207" [variable-pitch] 1 "\n\n(fn)"] "The face specification used by `buffer-face-mode'.\nIt may contain any value suitable for a `face' text property,\nincluding a face name, a list of face names, a face-attribute\nplist, etc." :group display :version "23.1"] 8)
(defvar buffer-face-mode-remapping nil)
(make-variable-buffer-local 'buffer-face-mode-remapping)
#@101 Non-nil if Buffer-Face mode is enabled.
Use the command `buffer-face-mode' to change this variable.
(defvar buffer-face-mode nil (#$ . 10913))
(make-variable-buffer-local 'buffer-face-mode)
#@332 Minor mode for a buffer-specific default face.
With a prefix argument ARG, enable the mode if ARG is positive,
and disable it otherwise. If called from Lisp, enable the mode
if ARG is omitted or nil. When enabled, the face specified by the
variable `buffer-face-mode-face' is used to display the buffer text.
(fn &optional ARG)
(defalias 'buffer-face-mode #[256 "\303 \304=\203
?\202 \305!\306V \203 \307 !\210\205# \310\311\n\"\312p!\210\313\314\2032 \315\2023 \316\"\210\317\320!\203T \303 \203G \211\303 \232\203T \321\322\203Q \323\202R \324\"\210\210\325 \210\207" [buffer-face-mode buffer-face-mode-remapping buffer-face-mode-face current-message toggle prefix-numeric-value 0 face-remap-remove-relative face-remap-add-relative default force-window-update run-hooks buffer-face-mode-hook buffer-face-mode-on-hook buffer-face-mode-off-hook called-interactively-p any message "Buffer-Face mode %sabled" "en" "dis" force-mode-line-update] 5 (#$ . 11110) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(byte-code "\301\302\303\304\300!\205\n \305\211%\207" [buffer-face-mode-map add-minor-mode buffer-face-mode " BufFace" boundp nil] 6)
#@435 Enable `buffer-face-mode', using face specs SPECS.
Each argument in SPECS should be a face, i.e. either a face name
or a property list of face attributes and values. If more than
one face is listed, that specifies an aggregate face, like in a
`face' text property. If SPECS is nil or omitted, disable
`buffer-face-mode'.
This function makes the variable `buffer-face-mode-face' buffer
local, and sets it to FACE.
(fn &rest SPECS)
(defalias 'buffer-face-set #[128 "\211:\203 \211A\204 \211@\262\202 \211\204 \301\302!\207\303\300!\210\211\301\304!\207" [buffer-face-mode-face buffer-face-mode 0 make-local-variable t] 3 (#$ . 12288) (byte-code "\300\301!C\207" [read-face-name "Set buffer face"] 2)])
#@641 Toggle `buffer-face-mode', using face specs SPECS.
Each argument in SPECS should be a face, i.e. either a face name
or a property list of face attributes and values. If more than
one face is listed, that specifies an aggregate face, like in a
`face' text property.
If `buffer-face-mode' is already enabled, and is currently using
the face specs SPECS, then it is disabled; if buffer-face-mode is
disabled, or is enabled and currently displaying some other face,
then is left enabled, but the face changed to reflect SPECS.
This function will make the variable `buffer-face-mode-face'
buffer local, and set it to SPECS.
(fn &rest SPECS)
(defalias 'buffer-face-toggle #[128 "\211:\203 \211A\204 \211@\262\202 \211\203 \203# \232\203# \300\302!\207\303\301!\210\211\300\304!\207" [buffer-face-mode buffer-face-mode-face 0 make-local-variable t] 3 (#$ . 13005) (list buffer-face-mode-face)])
#@659 Enable or disable `buffer-face-mode' using face specs SPECS, and argument ARG.
ARG controls whether the mode is enabled or disabled, and is
interpreted in the usual manner for minor-mode commands.
SPECS can be any value suitable for a `face' text property,
including a face name, a plist of face attributes and values, or
a list of faces.
If INTERACTIVE is non-nil, display a message describing the
result.
This is a wrapper function which calls `buffer-face-set' or
`buffer-face-toggle' (depending on ARG), and prints a status
message in the echo area. In many cases one of those functions
may be more appropriate.
(fn SPECS ARG &optional INTERACTIVE)
(defalias 'buffer-face-mode-invoke #[770 "\301 \302=\204\f \204 \303!\210\202 \304\305!\306V\205 !\210\205= \301 \205- \211\301 \232??\205= \307\310\203; \311\202< \312\"\207" [buffer-face-mode current-message toggle buffer-face-toggle buffer-face-set prefix-numeric-value 0 message "Buffer-Face mode %sabled" "en" "dis"] 7 (#$ . 13913)])
#@194 Variable-pitch default-face mode.
An interface to `buffer-face-mode' which uses the `variable-pitch' face.
Besides the choice of face, it is the same as `buffer-face-mode'.
(fn &optional ARG)
(defalias 'variable-pitch-mode #[256 "\300\301\302\303!#\207" [buffer-face-mode-invoke variable-pitch called-interactively-p interactive] 6 (#$ . 14927) (byte-code "\206 \301C\207" [current-prefix-arg toggle] 1)])
(provide 'face-remap)