;ELC ;;; Compiled by buildd@akateko.buildd on Fri Oct 25 13:50:23 2013 ;;; from file /build/buildd/emacs23-23.4+1/debian/build-x/lisp/face-remap.el ;;; in Emacs version 23.4.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. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\301B\302\301!\204\303\301\304\"\210\301\207" [current-load-list internal-lisp-face-attributes default-boundp set-default [nil :family :foundry :swidth :height :weight :slant :underline :inverse :foreground :background :stipple :overline :strike :box :font :inherit :fontset :vector]] 3) #@451 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. (defalias 'face-attrs-more-relative-p #[(attrs1 attrs2) "\306!\204\n\307!\306 !\204\307 !\310\211G\310\f W\203O\n\fH\211 \203G\311 \fH\"\203: T\311 \fH\"\203G\nT)\fT\211\202* \nW*\207" [attrs1 attrs2 rel2-count rel1-count i --dotimes-limit-- vectorp face-attributes-as-vector 0 face-attribute-relative-p internal-lisp-face-attributes attr] 5 (#$ . 845)]) #@129 Order ENTRY so that more relative face specs are near the beginning. The list structure of ENTRY may be destructively modified. (defalias 'face-remap-order #[(entry) "\237\211\301A\302\"\241\210\237\207" [entry sort face-attrs-more-relative-p] 5 (#$ . 1684)]) #@749 Add a face remapping entry of FACE to SPECS in the current buffer. Return a cookie which can be used to delete the remapping with `face-remap-remove-relative'. SPECS can be any value suitable for the `face' text property, including a face name, a list of face names, or a face-attribute property list. The attributes given by SPECS will be merged with any other currently active face remappings of FACE, and with the global definition of FACE. An attempt is made to sort multiple entries so that entries with relative face-attributes are applied after entries with absolute face-attributes. The base (lowest priority) remapping may be set to a specific value, instead of the default of the global face definition, using `face-remap-set-base'. (defalias 'face-remap-add-relative #[(face &rest specs) ":\203A\204@\211\202\304\302!\210 \n\236\211\204% \211D\211\nB \305 AB!\241\210 )B\207" [specs face face-remapping-alist entry make-local-variable face-remap-order] 5 (#$ . 1955)]) #@126 Remove a face remapping previously added by `face-remap-add-relative'. COOKIE should be the return value from that function. (defalias 'face-remap-remove-relative #[(cookie) "@ \236\211\2055\304A\nA\"\211\nA=?\2054\n \241\210 \203- \242@=\2032 A\2042\304\n \"A))\207" [cookie face-remapping-alist remapping updated-entries remq] 4 (#$ . 2963)]) #@74 Set the base remapping of FACE to inherit from FACE's global definition. (defalias 'face-remap-reset-base #[(face) " \236\211\205\n\211AA)\204\304\n \"\211\202\305\n!\240)\207" [face face-remapping-alist entry x remq last] 4 (#$ . 3326)]) #@305 Set the base remapping of FACE in the current buffer to SPECS. If SPECS is empty, the default base remapping is restored, which inherits from the global definition of FACE; note that this is different from SPECS containing a single value `nil', which does not inherit from the global definition of FACE. (defalias 'face-remap-set-base #[(face &rest specs) ":\203@\203A\204@\211\202\203&@ =\203*A\204*\304 !\207\305\302!\210 \n\236\211\203>\306 !\240\202E D\nB\211)\207" [specs face face-remapping-alist entry face-remap-reset-base make-local-variable last] 3 (#$ . 3583)]) #@119 Scale factor used by `text-scale-mode'. Each positive or negative step scales the default face height by this amount. (custom-declare-variable 'text-scale-mode-step '1.2 '(#$ . 4188) :group 'display :type 'number :version "23.1") (byte-code "\301B\302\301!\204\303\301\304\"\210\305\301!\210\306B\302\306!\204\"\303\306\307\"\210\305\306!\210\310B\302\310!\2045\303\310\311\"\210\305\310!\207" [current-load-list text-scale-mode-remapping default-boundp set-default nil make-variable-buffer-local text-scale-mode-lighter "+0" text-scale-mode-amount 0] 3) #@99 Non-nil if Text-Scale mode is enabled. Use the command `text-scale-mode' to change this variable. (defvar text-scale-mode nil (#$ . 4759)) (make-variable-buffer-local 'text-scale-mode) #@508 Minor mode for displaying buffer text in a larger/smaller font than usual. 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). (defalias 'text-scale-mode #[(&optional arg) "\306  \307=\203\n?\202( \203\310 !\311V\202(\n\204\"\312\202(\313\314\302\"\210\315 \2031\316 !\210\317\f\311Y\203<\320\202=\321\f\"\n\205M\322\323\324\325!\f\"#\326p!\210\327\330\n\203\\\331\202]\332\"\210\333\334!\203~\306 \203q\306 \232\203~\313\335\n\203{\336\202|\337\"\210)\340 \210\n\207" [#1=#:last-message arg text-scale-mode text-scale-mode-remapping text-scale-mode-amount text-scale-mode-lighter current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil 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 "Text-Scale mode %sabled" "en" "dis" force-mode-line-update text-scale-mode-step] 6 (#$ . 4951) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n#\207" [text-scale-mode-map add-minor-mode text-scale-mode (" " text-scale-mode-lighter) boundp] 5) #@367 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). (defalias 'text-scale-set #[(level) "\302\303 !\203 \304\202\305!\207" [level text-scale-mode-amount text-scale-mode zerop -1 1] 3 (#$ . 6552) "p"]) #@389 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. (defalias 'text-scale-increase #[(inc) "\303U\203\n\303\202 \203\n\202\303\\\301\304\n!\203!\305\202\"\306!\207" [inc text-scale-mode text-scale-mode-amount 0 zerop -1 1] 3 (#$ . 7079) "p"]) #@121 Decrease the height of the default face in the current buffer by DEC steps. See `text-scale-increase' for more details. (defalias 'text-scale-decrease #[(dec) "\301[!\207" [dec text-scale-increase] 2 (#$ . 7677) "p"]) #@1049 Increase or decrease the height of the default face in the current buffer. 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 Then, continue to read input events and further adjust the face height as long as the input event read (with all modifiers removed) is one of the above. 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. (defalias 'text-scale-adjust #[(inc) "\306\211\307 \203[\310\n!\211\311=\204 \312=\203\"\202F \313=\203/[\202F \314=\203:\315\202F\f\203D\202F\307) \203\316 !\210\317\307\320\321!\202\nB\211,\207" [last-command-event echo-keystrokes ev step first base t nil event-basic-type 43 61 45 48 0 text-scale-increase 1 read-event "+,-,0 for further adjustment: " inc unread-command-events] 5 (#$ . 7904) "p"]) #@188 The face specification used by `buffer-face-mode'. It may contain any value suitable for a `face' text property, including a face name, a list of face names, a face-attribute plist, etc. (custom-declare-variable 'buffer-face-mode-face ''variable-pitch '(#$ . 9401) :group 'display :version "23.1") (byte-code "\301B\302\301!\204\303\301\304\"\210\305\301!\207" [current-load-list buffer-face-mode-remapping default-boundp set-default nil make-variable-buffer-local] 3) #@101 Non-nil if Buffer-Face mode is enabled. Use the command `buffer-face-mode' to change this variable. (defvar buffer-face-mode nil (#$ . 9881)) (make-variable-buffer-local 'buffer-face-mode) #@157 Minor mode for a buffer-specific default face. When enabled, the face specified by the variable `buffer-face-mode-face' is used to display the buffer text. (defalias 'buffer-face-mode #[(&optional arg) "\305  \306=\203\n?\202( \203\307 !\310V\202(\n\204\"\311\202(\312\313\302\"\210\314 \2031\315 !\210\n\2059\316\317\f\"\320p!\210\321\322\n\203H\323\202I\324\"\210\325\326!\203j\305 \203]\305 \232\203j\312\327\n\203g\330\202h\331\"\210)\332 \210\n\207" [#1=#:last-message arg buffer-face-mode buffer-face-mode-remapping buffer-face-mode-face current-message toggle prefix-numeric-value 0 t message "Toggling %s off; better pass an explicit argument." nil 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 "Buffer-Face mode %sabled" "en" "dis" force-mode-line-update] 3 (#$ . 10077) (list (or current-prefix-arg 'toggle))]) (byte-code "\301\302\303\304\300!\205\n#\207" [buffer-face-mode-map add-minor-mode buffer-face-mode " BufFace" boundp] 5) #@329 Enable `buffer-face-mode', using face specs SPECS. SPECS can be any value suitable for the `face' text property, including a face name, a list of face names, or a face-attribute If SPECS is nil, then `buffer-face-mode' is disabled. This function will make the variable `buffer-face-mode-face' buffer local, and set it to FACE. (defalias 'buffer-face-set #[(&rest specs) ":\203A\204@\211\202\204\302\303!\207\304\301!\210\302\305!\207" [specs buffer-face-mode-face buffer-face-mode 0 make-local-variable t] 3 (#$ . 11193) (list (read-face-name "Set buffer face"))]) #@535 Toggle `buffer-face-mode', using face specs SPECS. SPECS can be any value suitable for the `face' text property, including a face name, a list of face names, or a face-attribute 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. (defalias 'buffer-face-toggle #[(&rest specs) ":\203A\204@\211\202\203 \203#\n\232\203#\301\303!\207\304\302!\210\301\305!\207" [specs buffer-face-mode buffer-face-mode-face 0 make-local-variable t] 3 (#$ . 11781) (list buffer-face-mode-face)]) #@616 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 the `face' text property, including a face name, a list of face names, or a face-attribute If INTERACTIVE is non-nil, a message will be displayed 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. (defalias 'buffer-face-mode-invoke #[(specs arg &optional interactive) "\305  \306=\204 \204\307\n!\210\202 \310\311 !\312V\205\n!\210 \205>\305 \205.\305 \232??\205>\313\314\f\203<\315\202=\316\")\207" [last-message arg specs interactive buffer-face-mode current-message toggle buffer-face-toggle buffer-face-set prefix-numeric-value 0 message "Buffer-Face mode %sabled" "en" "dis"] 3 (#$ . 12585)]) #@174 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'. (defalias 'variable-pitch-mode #[(&optional arg) "\301\302\303\304!#\207" [arg buffer-face-mode-invoke variable-pitch called-interactively-p interactive] 5 (#$ . 13622) (list (or current-prefix-arg 'toggle))]) (provide 'face-remap)