Current File : //usr/local/share/emacs/27.2/lisp/textmodes/enriched.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; 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 "\300\301!\210\302\301\303\304\305\306%\210\307\310\311\312\313\314\305\301&\210\315\316\317\320\305\301%\210\315\321\322\323\305\301%\207" [provide enriched custom-declare-group nil "Read and save files in text/enriched format." :group text custom-declare-variable enriched-verbose t "If non-nil, give status messages when reading and writing files." :type boolean custom-declare-face fixed ((t (:weight bold))) "Face used for text that must be shown in fixed width.\nCurrently, Emacs can only display fixed-width fonts, but this may change.\nThis face is used for text specifically marked as fixed-width, for example\nin text/enriched files." excerpt ((t (:slant italic))) "Face used for text that is an excerpt from another document.\nThis is used in Enriched mode for text explicitly marked as an excerpt."] 8)
(defconst enriched-display-table (byte-code "\301!\206 \302 \207" [standard-display-table copy-sequence make-display-table] 2))
(byte-code "\301\302\303 S\304\"I\207" [enriched-display-table 12 make-vector frame-width 45] 5)
#@120 Text-properties that usually apply to whole paragraphs.
These are set front-sticky everywhere except at hard newlines.
(defconst enriched-par-props '(left-margin right-margin justification) (#$ . 1464))
#@191 What to insert at the start of a text/enriched file.
If this is a string, it is inserted. If it is a list, it should be a lambda
expression, which is evaluated to get the string to insert.
(defconst enriched-initial-annotation #[nil "\301\302\"\207" [fill-column format "Content-Type: text/enriched\nText-Width: %d\n\n"] 3] (#$ . 1674))
#@46 General format of enriched-text annotations.
(defconst enriched-annotation-format "<%s%s>" (#$ . 2019))
#@56 Regular expression matching enriched-text annotations.
(defconst enriched-annotation-regexp "<\\(/\\)?\\([-A-Za-z0-9]+\\)>" (#$ . 2129))
#@149 List of definitions of text/enriched annotations.
See `format-annotate-region' and `format-deannotate-region' for the definition
of this structure.
(defvar enriched-translations '((face (bold-italic "bold" "italic") (bold "bold") (italic "italic") (underline "underline") (fixed "fixed") (excerpt "excerpt") (default) (nil enriched-encode-other-face)) (left-margin (4 "indent")) (right-margin (4 "indentright")) (justification (none "nofill") (right "flushright") (left "flushleft") (full "flushboth") (center "center")) (PARAMETER (t "param")) (FUNCTION (enriched-decode-foreground "x-color") (enriched-decode-background "x-bg-color") (enriched-decode-display-prop "x-display") (enriched-decode-charset "x-charset")) (read-only (t "x-read-only")) (display (nil enriched-handle-display-prop)) (charset (nil enriched-handle-charset-prop)) (unknown (nil format-annotate-value))) (#$ . 2273))
#@176 Properties that are OK to ignore when saving text/enriched files.
Any property that is neither on this list nor dealt with by
`enriched-translations' will generate a warning.
(defconst enriched-ignore '(front-sticky rear-nonsticky hard) (#$ . 3170))
(byte-code "\300\301\302\303\304\305\306\307&\210\300\310\302\311\312\313\304\314\315\316\306\307& \207" [custom-declare-variable enriched-mode-hook nil "Hook run after entering/leaving Enriched mode.\nIf you set variables in this hook, you should arrange for them to be restored\nto their old values if you leave Enriched mode. One way to do this is to add\nthem and their old values to `enriched-old-bindings'." :type hook :group enriched enriched-allow-eval-in-display-props "If non-nil allow to evaluate arbitrary forms in display properties.\n\nEnriched mode recognizes display properties of text stored using\nan extension command to the text/enriched format, \"x-display\".\nThese properties must not, by default, include evaluation of\nLisp forms, otherwise they are not applied. Customize this option\nto t to turn off this safety feature, and allow Enriched mode to\napply display properties which evaluate arbitrary Lisp forms.\nNote, however, that applying unsafe display properties could\nexecute malicious Lisp code, if that code came from an external source." :risky t boolean :version "26.1"] 12)
#@111 Store old variable values that we change when entering mode.
The value is a list of (VAR VALUE VAR VALUE...).
(defvar enriched-old-bindings nil (#$ . 4543))
(make-variable-buffer-local 'enriched-old-bindings)
(defvar enriched-default-text-properties-local-flag t)
(defvar enriched-rerun-flag nil)
#@27 Keymap for Enriched mode.
(defvar enriched-mode-map (byte-code "\301 \302\303\304#\210\302\305\306#\210\302\307\306#\210\302\310\311#\210\302\312\313#\210\302\314\315#\210\302\316\317#\210\302\320\321#\210)\207" [map make-sparse-keymap define-key [remap move-beginning-of-line] beginning-of-line-text "
" reindent-then-newline-and-indent [remap newline-and-indent] "\352" facemenu-justification-menu "\323" set-justification-center " " increase-left-margin "[" set-left-margin "]" set-right-margin] 4) (#$ . 4846))
(put 'enriched-mode 'permanent-local t)
#@95 Non-nil if Enriched mode is enabled.
Use the command `enriched-mode' to change this variable.
(defvar enriched-mode nil (#$ . 5420))
(make-variable-buffer-local 'enriched-mode)
#@569 Minor mode for editing text/enriched files.
These are files with embedded formatting information in the MIME standard
text/enriched format.
If called interactively, enable Enriched mode if ARG is positive, and
disable it if ARG is zero or negative. If called from Lisp, also
enable the mode if ARG is omitted or nil, and toggle it if ARG is
`toggle'; disable the mode otherwise.
Turning the mode on or off runs `enriched-mode-hook'.
More information about Enriched mode is available in the file
"enriched.txt" in `data-directory'.
Commands:
\{enriched-mode-map}
(defalias 'enriched-mode #[(&optional arg) "\306 \307=\203 \n?\202 \310 !\311V\211\204N \312\313\314\315#\210\316\317 \"\f\2036 \f\211A\242\f\211A\242L\210\202#
\204> \320\321!\210\320\305!\210\204\323 \322\311!\210\202\323 \317 >\203Y *\203\323 \323\313\314\324\315$\210\325\303\317\"\210\326\321\322\257\327\305!\210\330\321!\327\321!\210+\322\331*\205\211 \332\"\210\333\334\", - .-\324 /\211 0\203\303 0@\211/.\235\203\263 .\210\202\272 /.B.0A\2110\204\241 *.\203\322 \335\334.#*\336\337\n\203\335 \340\202\336 \341\"\210\342\343!\203\306 \203\362 \306 \232\203\344
\345\346\n\203\377 \347\202 \350
#\210))\351 \210\n\207" [#1=#:last-message arg enriched-mode buffer-file-format enriched-old-bindings enriched-default-text-properties-local-flag current-message toggle prefix-numeric-value 0 remove-hook change-major-mode-hook enriched-before-change-major-mode local delq text/enriched kill-local-variable default-text-properties use-hard-newlines add-hook nil add-to-list buffer-display-table make-local-variable local-variable-p 1 never plist-get front-sticky plist-put run-hooks enriched-mode-hook enriched-mode-on-hook enriched-mode-off-hook called-interactively-p any " in current buffer" message "Enriched mode %sabled%s" "en" "dis" force-mode-line-update enriched-rerun-flag enriched-display-table enriched-par-props p sticky x --dolist-tail--] 7 (#$ . 5604) (list (or current-prefix-arg 'toggle))])
(defvar enriched-mode-hook nil)
(byte-code "\301\302N\204\f \303\301\302\304#\210\305\306\307\310\300!\205 \311\211%\207" [enriched-mode-map enriched-mode-hook variable-documentation put "Hook run after entering or leaving `enriched-mode'.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" add-minor-mode enriched-mode " Enriched" boundp nil] 6)
(defalias 'enriched-before-change-major-mode #[nil "\205 \205 \211A\242 \211A\242L\210\202 \207" [enriched-mode enriched-old-bindings] 3])
(defalias 'enriched-after-change-major-mode #[nil "\205\n \302\300\303!)\207" [enriched-mode enriched-rerun-flag t 1] 2])
(byte-code "\301\302\303\"\210\300M\207" [enriched-mode-map add-hook after-change-major-mode-hook enriched-after-change-major-mode] 3)
#@378 Apply a function to regions of the buffer based on a text property.
For each contiguous region of the buffer for which the value of PROPERTY is
eq, the FUNCTION will be called. Optional arguments FROM and TO specify the
region over which to scan.
The specified function receives three arguments: the VALUE of the property in
the region, and the START and END of each region.
(defalias 'enriched-map-property-regions #[(prop func &optional from to) "\212\214\203\n e}\210 \206 eb\210`\306\307 \310`\n\" \311 d\n $\211\203F \f
\306\223\210\f \312\f!#\210\312\f! \310\f\n\"\202 dW\205T \f d#.\207" [to from prop val marker end nil make-marker get-text-property text-property-not-all marker-position begin func] 6 (#$ . 8474)])
(put 'enriched-map-property-regions 'lisp-indent-hook 1)
#@45 Indent and justify each line in the region.
(defalias 'enriched-insert-indentation #[(&optional from to) "\212\214\203\n e}\210 \206 eb\210n\204 \302y\210m?\2051 l\204+ \303 j\210\304\305\306\305#\210\302y\210\202 *\207" [to from 1 current-left-margin justify-current-line t nil] 4 (#$ . 9284)])
(defalias 'enriched-encode #[(from to orig-buf) "\203 \306\307!\210\310\211\214 \f}\210\311 \210\312 \210 b\210\313\314!\210\315\316 d
\317%!\210 b\210;\2037 \202E \212\203A q\210 )c\210\320\321\322`\323$\210\203V \306\323!\210d+\207" [enriched-verbose inhibit-point-motion-hooks inhibit-read-only from to enriched-translations message "Enriched: encoding document..." t delete-to-left-margin unjustify-region format-replace-strings (("<" . "<<")) format-insert-annotations format-annotate-region enriched-make-annotation enriched-map-property-regions hard #[(v b e) "\205 f\302U\205 b\210\303c\207" [v b 10 "\n"] 2] nil enriched-ignore enriched-initial-annotation orig-buf] 7])
#@199 Format an annotation INTERNAL-ANN.
INTERNAL-ANN may be a string, for a flag, or a list of the form (PARAM VALUE).
If POSITIVE is non-nil, this is the opening annotation;
if nil, the matching close.
(defalias 'enriched-make-annotation #[(internal-ann positive) ";\203 \305 \n\203 \306\202 \307#\207\n\203* @A \305 \306\f#\310\311 \306#P*\207\305 \307@#\207" [internal-ann enriched-annotation-format positive params item format "" "/" mapconcat #[(i) "\301\302Q\207" [i "<param>" "</param>"] 3]] 5 (#$ . 10293)])
#@119 Generate annotations for random face change.
One annotation each for foreground color, background color, italic, etc.
(defalias 'enriched-encode-other-face #[(old new) "\205 \302! \205 \302 !B\207" [old new enriched-face-ans] 3 (#$ . 10821)])
#@199 Return annotations specifying FACE.
FACE may be a list of faces instead of a single face;
it can also be anything allowed as an element of a list
which can be the value of the `face' text property.
(defalias 'enriched-face-ans #[(face) ":\203 @\306=\203 \307ADC\207:\203$ @\310=\203$ \311ADC\207<\2037 @\312=\2037 \307A@DC\207<\203J @\313=\203J \311A@DC\207<\203W \314\315\316\317\"\"\207\320\312\"\320\313\"\321\322\"\323\300\324 \f$A \325=\204z \307 D
B\n\325=\204\206 \311\nD
B
,\207" [face fg bg props enriched-translations ans foreground-color "x-color" background-color "x-bg-color" :foreground :background apply append mapcar enriched-face-ans face-attribute face-font t format-annotate-single-property-change nil unspecified] 5 (#$ . 11075)])
(defalias 'enriched-decode #[(from to) "\203 \306\307!\210\310\311\312\"\210\212\214 \n}\210 b\210\313 \314 \210\315\316\317\320#\2036 \321 \203- \322\323!\210\324\325\224`\"\210\202 \326 d\f\327$\210 \203Q \203K \306\330!\210\331 \210\202^ \203Y \306\332!\210\333ed\"\210\203f \306\317!\210)d*\207" [enriched-verbose from to file-width enriched-translations fill-column message "Enriched: decoding document..." use-hard-newlines 1 never enriched-get-file-width enriched-remove-header search-forward-regexp "\n\n+" nil t current-justification delete-char -1 set-hard-newline-properties 0 format-deannotate-region enriched-next-annotation "Indenting..." enriched-insert-indentation "Filling paragraphs..." fill-region] 5])
#@170 Find and return next text/enriched annotation.
Any "<<" strings encountered are converted to "<".
Return value is (begin end name positive-p), or nil if none was found.
(defalias 'enriched-next-annotation #[nil "\305\306\307\310#\203, \311\224b\210\312!\204, \310u\210`f\313=\203# \314\310!\210\202 \315\316`S\"\210\202 m?\205H \311\224\311\225\317\224\317\225{\227\310\224? \n \fF,\207" [enriched-annotation-regexp beg end name pos search-forward "<" nil 1 0 looking-at 60 delete-char message "Warning: malformed annotation in file at %s" 2] 4 (#$ . 12589)])
#@47 Look for file width information on this line.
(defalias 'enriched-get-file-width #[nil "\212\300\301`\302\\\303#\205 \304p!)\207" [search-forward "Text-Width: " 1000 t read] 4 (#$ . 13162)])
#@37 Remove file-format header at point.
(defalias 'enriched-remove-header #[nil "\300\301!\203 `\302\225|\210\202 \300\303!\205 \304\305!\207" [looking-at "^[-A-Za-z]+: .*\n" 0 "^\n" delete-char 1] 2 (#$ . 13360)])
(defalias 'enriched-decode-foreground #[(from to &optional color) "\203\f \n\303\304DF\207\305\306!\210\307\207" [color from to face :foreground message "Warning: no color specified for <x-color>" nil] 5])
(defalias 'enriched-decode-background #[(from to &optional color) "\203\f \n\303\304DF\207\305\306!\210\307\207" [color from to face :background message "Warning: no color specified for <x-bg-color>" nil] 5])
(defalias 'enriched-decode-charset #[(from to &optional cset) ";\205 \3041 \305!@0\202 \210\306\211\204 \307\310\"\210\n \311 F)\207" [cset cs from to (error) read-from-string nil message "Warning: invalid <x-charset> parameter %s" charset] 5])
#@70 Return a list of annotations for a change in the `charset' property.
(defalias 'enriched-handle-charset-prop #[(old new) "\205\n \302\303!DC \205 \302\303 !DCB\207" [old new "x-charset" symbol-name] 4 (#$ . 14254)])
#@309 Return a list of annotations for a change in the `display' property.
OLD is the old value of the property, NEW is the new value. Value
is a list `(CLOSE OPEN)', where CLOSE is a list of annotations to
close and OPEN a list of annotations to open. Each of these lists
has the form `(ANNOTATION PARAM ...)'.
(defalias 'enriched-handle-display-prop #[(old new) "\304\305\206 !\204 \306 \nDCB\202 \nDC\306B*\207" [old new param annotation "x-display" prin1-to-string nil] 3 (#$ . 14480)])
#@244 Decode a `display' property for text between START and END.
PARAM is a `<param>' found for the property.
Value is a list `(START END SYMBOL VALUE)' with START and END denoting
the range of text to assign text property SYMBOL with value VALUE.
(defalias 'enriched-decode-display-prop #[(start end &optional param) ";\205 \3051 \306!@0\202 \210\307\211\204 \310\311\"\210\n\203) \f\312 F\2020 \f\312\313 DF)\207" [param prop enriched-allow-eval-in-display-props start end (error) read-from-string nil message "Warning: invalid <x-display> parameter %s" display disable-eval] 6 (#$ . 14983)])
Mini Shell