;ELC ;;; Compiled by pot@pot.cnuce.cnr.it on Tue Mar 18 15:37:56 2003 ;;; from file /home/pot/gnu/emacs-pretest.new/lisp/disp-table.el ;;; in Emacs version 21.3 ;;; with bytecomp version 2.85.4.1 ;;; 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 "`disp-table.el' was compiled for Emacs 19.29 or later")) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (put 'display-table 'char-table-extra-slots 6) #@36 Return a new, empty display table. (defalias 'make-display-table #[nil "\300\301\302\"\207" [make-char-table display-table nil] 3 (#$ . 669)]) (byte-code "\204\301 \302\303\304\305#\210\302\306\304\307#\210\302\310\304\311#\210\302\312\304\313#\210\302\314\304\315#\210\302\316\304\317#\207" [standard-display-table make-display-table put truncation display-table-slot 0 wrap 1 escape 2 control 3 selective-display 4 vertical-border 5] 4) #@239 Return the value of the extra slot in DISPLAY-TABLE named SLOT. SLOT may be a number from 0 to 5 inclusive, or a slot name (symbol). Valid symbols are `truncation', `wrap', `escape', `control', `selective-display', and `vertical-border'. (defalias 'display-table-slot #[(display-table slot) "\247\203 \202\303N\206\304\305\"\306\n \")\207" [slot slot-number display-table display-table-slot error "Invalid display-table slot name: %s" char-table-extra-slot] 3 (#$ . 1119)]) #@240 Set the value of the extra slot in DISPLAY-TABLE named SLOT to VALUE. SLOT may be a number from 0 to 5 inclusive, or a name (symbol). Valid symbols are `truncation', `wrap', `escape', `control', `selective-display', and `vertical-border'. (defalias 'set-display-table-slot #[(display-table slot value) "\247\203 \202\304N\206\305\306\"\307\n #)\207" [slot slot-number display-table value display-table-slot error "Invalid display-table slot name: %s" set-char-table-extra-slot] 4 (#$ . 1610)]) #@49 Describe the display table DT in a help buffer. (defalias 'describe-display-table #[(dt) "\304\220\305\306!\210\307\310\311\"!\210\305\312!\210\307\310\313\"!\210\305\314!\210\307\310\315\"!\210\305\316!\210\307\310\317\"!\210\305\320!\210\307\310\321\"!\210\305\322!\210\307\310\323\"!\210\305\324!\210\212 q\210\325\326\327\"\330\n\326W\203g \n\nHI\210\nT\211\202T\331 !\210*\332 \210)\333 \221\207" [dt standard-output i vector "*Help*" princ "\nTruncation glyph: " prin1 display-table-slot truncation "\nWrap glyph: " wrap "\nEscape glyph: " escape "\nCtrl glyph: " control "\nSelective display glyph sequence: " selective-display "\nVertical window border glyph: " vertical-border "\nCharacter display glyph sequences:\n" make-vector 256 nil 0 describe-vector help-mode print-help-return-message] 6 (#$ . 2121)]) #@70 Describe the display table in use in the selected window and buffer. (defalias 'describe-current-display-table #[nil "\303\304 !\206\f\206\f \211\203\305\n!\202\306\307!)\207" [buffer-display-table standard-display-table disptab window-display-table selected-window describe-display-table message "No display table"] 3 (#$ . 2957) nil]) #@51 Display characters in the range L to H literally. (defalias 'standard-display-8bit #[(l h) " X\205(\303Y\203\304W\203\n\305I\210\202!\n\306!I\210T\211\202\207" [l h standard-display-table 32 127 nil vector] 5 (#$ . 3308)]) #@68 Display characters in the range L to H using the default notation. (defalias 'standard-display-default #[(l h) " X\205\303Y\203\304!\203\n\305I\210T\211\202\207" [l h standard-display-table 32 char-valid-p nil] 4 (#$ . 3553)]) #@47 Display character C using printable string S. (defalias 'standard-display-ascii #[(c s) " \303\n!I\207" [standard-display-table c s vconcat] 4 (#$ . 3800)]) #@164 Display character C as character SC in the g1 character set. This function assumes that your terminal uses the SO/SI characters; it is meaningless for an X frame. (defalias 'standard-display-g1 #[(c sc) "\304>\203\n\305\306!\210 \n\307\310\311\312 !\313Q!!I\207" [window-system standard-display-table c sc (x w32) error "Cannot use string glyphs in a windowing system" vector create-glyph "" char-to-string ""] 7 (#$ . 3965)]) #@146 Display character C as character GC in graphics character set. This function assumes VT100-compatible escapes; it is meaningless for an X frame. (defalias 'standard-display-graphic #[(c gc) "\304>\203\n\305\306!\210 \n\307\310\311\312 !\313Q!!I\207" [window-system standard-display-table c gc (x w32) error "Cannot use string glyphs in a windowing system" vector create-glyph "(0" char-to-string "(B"] 7 (#$ . 4403)]) #@55 Display character C as character UC plus underlining. (defalias 'standard-display-underline #[(c uc) " \304\n\203\305 \306\307\310!\311\"\"\202\312\313\314 !\315Q!!I\207" [standard-display-table c window-system uc vector logior lsh face-id underline 19 create-glyph "" char-to-string ""] 8 (#$ . 4831)]) #@69 Allocate a glyph code to display by sending STRING to the terminal. (defalias 'create-glyph #[(string) "G\302U\203 \303\304!\210G\305U\203\306\307\310\311\"\"\306 C\"\211GS\207" [glyph-table string 65536 error "No free glyph codes remain" 32 vconcat make-vector 224 nil] 6 (#$ . 5153)]) #@1070 Semi-obsolete way to toggle display of ISO 8859 European characters. This function is semi-obsolete; if you want to do your editing with unibyte characters, it is better to `set-language-environment' coupled with either the `--unibyte' option or the EMACS_UNIBYTE environment variable, or else customize `enable-multibyte-characters'. With prefix argument, this command enables European character display if arg is positive, disables it otherwise. Otherwise, it toggles European character display. When this mode is enabled, characters in the range of 160 to 255 display not as octal escapes, but as accented characters. Codes 146 and 160 display as apostrophe and space, even though they are not the ASCII codes for apostrophe and space. Enabling European character display with this command noninteractively from Lisp code also selects Latin-1 as the language environment, and selects unibyte mode for all Emacs buffers (both existing buffers and those created subsequently). This provides increased compatibility for users who call this function in `.emacs'. (defalias 'standard-display-european #[(arg) "\306!\307X\204\2043\310 !\2033 \311H\312\232\2033\313\314\315\"\210\n\316>\206&t?\205t\317 \2052\320\321!\207t\204B\322\323\321\"\210\324\325\326 \"\210t\204P \327\232\203P\330\331!\210\f\204r\n\332>\204rt\204r\320\333 \227!\334 !\203n \202o\335)!\210\336 \207" [arg standard-display-table window-system current-language-environment noninteractive c prefix-numeric-value 0 char-table-p 161 [161] standard-display-default 160 255 (x w32) terminal-coding-system set-terminal-coding-system nil set-default enable-multibyte-characters mapcar #[(buffer) "rq\210 \205 \302\303!)\207" [buffer enable-multibyte-characters set-buffer-multibyte nil] 2] buffer-list "English" set-language-environment "latin-1" (x w32) intern coding-system-p latin-1 standard-display-european-internal] 3 (#$ . 5457)]) (provide 'disp-table)