;ELC ;;; Compiled by rms@psilocin.gnu.ai.mit.edu on Tue Sep 2 15:59:37 1997 ;;; from file /home/fsf/rms/e19/lisp/enriched.el ;;; in Emacs version 20.0.97.2 ;;; with bytecomp version 2.34 ;;; with all optimizations. ;;; This file uses opcodes which do not exist in Emacs 18. (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 "`enriched.el' was compiled for Emacs 19.29 or later")) (byte-code "ÀÁ!ˆÂÁÃÄ Æ%‡" [provide enriched custom-declare-group nil "Read and save files in text/enriched format" :group wp] 6) #@67 *If non-nil, give status messages when reading and writing files. (custom-declare-variable 'enriched-verbose 't '(#$ . -671) :type 'boolean :group 'enriched) (byte-code "ÀÁÂÃ\fÅ%ˆÀÆÇÈ\fÅ%ˆÉ\n!†Ë \fÌ B \fÎÏÐ SÑ\"I‡" [custom-declare-face fixed ((t (:bold t))) "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." :group enriched excerpt ((t (:italic t))) "Face used for text that is an excerpt from another document.\nThis is used in enriched-mode for text explicitly marked as an excerpt." copy-sequence standard-display-table make-display-table enriched-display-table current-load-list 12 make-vector frame-width 45] 6) #@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) (#$ . 1484)) #@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 "ÀÁ\n\"‡" [format "Content-Type: text/enriched\nText-Width: %d\n\n" fill-column] 3] (#$ . 1694)) #@46 General format of enriched-text annotations. (defconst enriched-annotation-format "<%s%s>" (#$ . 2031)) #@56 Regular expression matching enriched-text annotations. (defconst enriched-annotation-regexp "<\\(/\\)?\\([-A-za-z0-9]+\\)>" (#$ . 2141)) #@149 List of definitions of text/enriched annotations. See `format-annotate-region' and `format-deannotate-region' for the definition of this structure. (defconst 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")) (read-only (t "x-read-only")) (unknown (nil format-annotate-value))) (#$ . 2285)) #@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) (#$ . 3013)) #@34 True if Enriched mode is in use. (defvar enriched-mode nil (#$ . 3269)) (byte-code "ÀÁ!ˆÁ\nž„Ã\nBÀ‡" [make-variable-buffer-local enriched-mode minor-mode-alist (enriched-mode " Enriched")] 2) #@257 Functions to run when entering Enriched mode. If you set variables in this hook, you should arrange for them to be restored to their old values if you leave Enriched mode. One way to do this is to add them and their old values to `enriched-old-bindings'. (custom-declare-variable 'enriched-mode-hook 'nil '(#$ . 3471) :type 'hook :group 'enriched) #@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 (#$ . 3827)) (make-variable-buffer-local 'enriched-old-bindings) #@360 Minor mode for editing text/enriched files. These are files with embedded formatting information in the MIME standard text/enriched format. Turning the mode on runs `enriched-mode-hook'. More information about Enriched mode is available in the file etc/enriched.doc in the Emacs distribution directory. Commands: \\{enriched-mode-map} (defalias 'enriched-mode #[(&optional arg) "À  !ÄX„ ƒ4 „4ÆÇÈ \" \nƒ“\n@\nA@Lˆ\nAA‰\n‚ „“ËÌÉÈ\"ˆÍ Îϯ\nÐÎ!ˆÐÏ!ˆÑ ÓÔÆ\"ˆÕÖ\"ƒ€ÌÙ@\"ˆA‰„pƒŽÚÖ#*ÛÜ!ˆÝ !ˆÞ )‡" [buffer-modified-p mod prefix-numeric-value arg 0 enriched-mode nil delq text/enriched buffer-file-format enriched-old-bindings t add-to-list buffer-display-table indent-line-function default-text-properties make-local-variable indent-to-left-margin enriched-display-table use-hard-newlines 1 plist-get front-sticky enriched-par-props p sticky plist-put run-hooks enriched-mode-hook set-buffer-modified-p force-mode-line-update] 7 (#$ . 4043) "P"]) #@27 Keymap for Enriched mode. (defvar enriched-mode-map nil (#$ . 5069)) (byte-code "„ ÀÁ ‰MˆÂ ž„ÂB BÄÅÆ#ˆÄÇÈ#ˆÄÉÈ#ˆÄÊË#ˆÄÌÍ#ˆÄÎÏ#ˆÄÐÑ#ˆÄÒÓ#‡" [enriched-mode-map make-sparse-keymap enriched-mode minor-mode-map-alist define-key "" beginning-of-line-text " " reindent-then-newline-and-indent "\n" "ê" facemenu-justification-menu "Ó" set-justification-center " " increase-left-margin "\f" set-left-margin "" set-right-margin] 4) #@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) "ŠŒƒ\ne}ˆ †ebˆ`Âà Ä` \" Ê d $‰ƒR“ˆ  Ì!#ˆÌ! Ä \"‚! dW…a  d#.‡" [to from nil make-marker get-text-property prop val marker end begin text-property-not-all func marker-position] 6 (#$ . 5518)]) (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) "ŠŒƒ\ne}ˆ †ebˆn„Âyˆm?…1l„+à jˆÄÅÆÅ#ˆÂyˆ‚*‡" [to from 1 current-left-margin justify-current-line t nil] 4 (#$ . 6266)]) (defalias 'enriched-encode #[(from to orig-buf) "ƒÁÂ!ˆŒ \f}ˆÅ ˆÆ ˆ bˆÇÈ!ˆÉÊ d Ì %!ˆ bˆ;ƒ4‚BŠƒ>qˆ )cˆÐÑÒ`Ó$ˆƒSÁÓ!ˆd)‡" [enriched-verbose message "Enriched: encoding document..." from to delete-to-left-margin unjustify-region format-replace-strings (("<" . "<<")) format-insert-annotations format-annotate-region enriched-translations enriched-make-annotation enriched-ignore enriched-initial-annotation orig-buf enriched-map-property-regions hard #[(v b e) "… fÂU… bˆÃc‡" [v b 10 "\n"] 2] nil] 7]) #@127 Format an annotation called NAME. If POSITIVE is non-nil, this is the opening annotation, if nil, this is the matching close. (defalias 'enriched-make-annotation #[(name positive) ";ƒÁ\n ƒÄ‚Å#‡ ƒ.@AÁ\nÄ#ÈÉÄ#P*‡Á\nÅ@#‡" [name format enriched-annotation-format positive "" "/" params item mapconcat #[(i) "À ÂQ‡" ["" i ""] 3]] 5 (#$ . 7030)]) #@119 Generate annotations for random face change. One annotation each for foreground color, background color, italic, etc. (defalias 'enriched-encode-other-face #[(old new) "…Á!\n…Á\n!B‡" [old enriched-face-ans new] 3 (#$ . 7413)]) #@37 Return annotations specifying FACE. (defalias 'enriched-face-ans #[(face) "ÀÁ !\"ƒÄ !ÅÆODC‡ÀÇ !\"ƒ&È !ÅÆODC‡É !\nË !\fÍ Î\"ÐÃÆ$A\nƒOÄ\nDB\fƒ]È\fDB,‡" [string-match "^fg:" symbol-name face "x-color" 3 nil "^bg:" "x-bg-color" face-foreground fg face-background bg face-font t props format-annotate-single-property-change enriched-translations ans] 5 (#$ . 7652)]) (defalias 'enriched-decode #[(from to) "ƒÁÂ!ˆÃÄÅ\"ˆŠŒ}ˆbˆÈ  Ê ˆËÌÍÎ#ƒ:Ï ƒ1ÐÑ!ˆÒÓ”`\"ˆ‚ ÔdÖ$ˆ ƒZ ƒTÁØ!ˆÙ ˆ‚gƒbÁÚ!ˆÛed\"ˆƒoÁÍ!ˆ)d*‡" [enriched-verbose message "Enriched: decoding document..." use-hard-newlines 1 never from to enriched-get-file-width 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-translations enriched-next-annotation fill-column "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 "ÀÁÂÃ#ƒ-Ä”bˆÅ!„-Ãuˆ`fÇUƒ$ÈÃ!ˆ‚ÉÊ`S\"ˆ‚m?…QÄ” Ä•\f͔͕{—Ô? \fF,‡" [search-forward "<" nil 1 0 looking-at enriched-annotation-regexp 60 delete-char message "Warning: malformed annotation in file at %s" beg end 2 name pos] 4 (#$ . 8636)]) #@47 Look for file width information on this line. (defalias 'enriched-get-file-width #[nil "ŠÀÁ`Â\\Ã#…Äp!)‡" [search-forward "Text-Width: " 1000 t read] 4 (#$ . 9112)]) #@37 Remove file-format header at point. (defalias 'enriched-remove-header #[nil "ÀÁ!ƒ`•|ˆ‚ÀÃ!…ÄÅ!‡" [looking-at "^[-A-Za-z]+: .*\n" 0 "^\n" delete-char 1] 2 (#$ . 9285)]) (defalias 'enriched-decode-foreground #[(from to &optional color) "ÀÁ\nP!\n„ÄÅ!ˆ‚-Æ !„-ƒ\"È !„-É !ƒ-ÄÊ\n\"ˆ \fà F)‡" [intern "fg:" color face message "Warning: no color specified for " internal-find-face window-system facemenu-get-face make-face "Warning: color `%s' can't be displayed" from to] 4]) (defalias 'enriched-decode-background #[(from to &optional color) "ÀÁ\nP!\n„ÄÅ!ˆ‚-Æ !„-ƒ\"È !„-É !ƒ-ÄÊ\n\"ˆ \fà F)‡" [intern "bg:" color face message "Warning: no color specified for " internal-find-face window-system facemenu-get-face make-face "Warning: color `%s' can't be displayed" from to] 4])