;ELC ;;; compiled by jimb@geech.gnu.ai.mit.edu on Mon Jul 5 22:49:57 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/disp-table.el ;;; emacs version 19.15.16. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "This file was compiled for Emacs 19")) (defalias 'describe-display-table #[(dt) "! H!! H!! H!! H!! H!!\"W[ HITC!* " ["*Help*" princ "\nTruncation glyph: " prin1 dt 256 "\nWrap glyph: " 257 "\nEscape glyph: " 258 "\nCtrl glyph: " 259 "\nSelective display glyph sequence: " 260 "\nCharacter display glyph sequences:\n" make-vector nil 0 i vector describe-vector print-help-return-message] 6 "\ Describe the display table DT in a help buffer."]) (defalias 'describe-current-display-table #[nil " ! !" [describe-display-table window-display-table selected-window buffer-display-table standard-display-table] 3 "\ Describe the display table in use in the selected window and buffer." nil]) (defalias 'make-display-table #[nil "\"" [make-vector 261 nil] 3 "\ Return a new, empty display table."]) (defalias 'standard-display-8bit #[(l h) " X5YW . I. '\" !IT" [l h 32 127 standard-display-table nil make-vector 261 vector] 5 "\ Display characters in the range L to H literally."]) (defalias 'standard-display-default #[(l h) " X3YW , I, '\" IT" [l h 32 127 standard-display-table nil make-vector 261] 4 "\ Display characters in the range L to H using the default notation."]) (defalias 'standard-display-ascii #[(c s) " \" \"\"I" [standard-display-table make-vector 261 nil c apply vector append s] 7 "\ Display character C using string S."]) (defalias 'standard-display-g1 #[(c sc) " \"  !Q!!I" [standard-display-table make-vector 261 nil c vector create-glyph "" char-to-string sc ""] 7 "\ Display character C as character SC in the g1 character set."]) (defalias 'standard-display-graphic #[(c gc) " \"  !Q!!I" [standard-display-table make-vector 261 nil c vector create-glyph "(0" char-to-string gc "(B"] 7 "\ Display character C as character GC in graphics character set."]) (defalias 'standard-display-underline #[(c uc) " \"  !Q!!I" [standard-display-table make-vector 261 nil c vector create-glyph "" char-to-string uc ""] 7 "\ Display character C as character UC plus underlining."]) (defalias (quote create-glyph) #[(string) "GU ! C\"GS" [glyph-table 65536 error "No free glyph codes remain" vconcat string] 4]) (defalias 'standard-display-european #[(arg) " !W! & !& GY& Hǚ&\"\"" [prefix-numeric-value arg 0 vectorp standard-display-table 161 160 [160] standard-display-default 255 standard-display-8bit] 3 "\ Toggle display of European characters encoded with ISO 8859. When enabled, characters in the range of 160 to 255 display not as octal escapes, but as accented characters. With prefix argument, enable European character display iff arg is positive." "P"]) (provide (quote disp-table))