home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / prim / faces.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  11.1 KB  |  116 lines
  1. ;;; compiled by @win386 on Thu Apr 29 20:42:25 1993
  2. ;;; from file c:/src/winemacs/lisp/prim/faces.el
  3. ;;; emacs version 19.4 (Win-Emacs 1.00.04 beta).
  4. ;;; bytecomp version 2.09; 16-jan-93.
  5. ;;; optimization is on.
  6. ;;; this file uses opcodes which do not exist in Emacs18.
  7.  
  8. (if (and (boundp 'emacs-version)
  9.      (or (and (boundp 'epoch::version) epoch::version)
  10.          (string-lessp emacs-version "19")))
  11.     (error "This file was compiled for Emacs19."))
  12.  
  13. (byte-code "└┴Mê┬└├─#ê┼╞Mç" [facep #[(x) "└    !¡ï    G┬U¡à    ├H─=ç" [vectorp x 8 0 face] 2] put byte-optimizer byte-compile-inline-expand check-face (macro . #[(face) "└┴┬ DD─ ┼╞╟╚ EEEEç" [while not facep face setq signal 'wrong-type-argument list 'facep] 9])] 4)
  14. (defvar global-face-data nil "\
  15. do not use this")
  16. (defvar face-id-tick 0 "\
  17. don't even think of using this")
  18. (fset 'list-faces #[nil "└┴\n\"ç" [mapcar car global-face-data] 3 "\
  19. Returns a list of the names of all of the defined faces."])
  20. (fset 'find-face #[(name &optional screen) "┴=½ì\n9¼ë\n─ !┼H)\n9½ö\n┴=½ä¬ç╟«é╚ !₧Aç\n    ╩    !¡ì    G╦U¡å    ╠H├=)¼è═╬╧\nD\"ë¬^\nç" [screen t name face get-face 1 global-face-data screen-face-alist selected-screen x vectorp 8 0 signal wrong-type-argument facep] 5 "\
  21. Retrieve the face of the given name.
  22. If NAME is a symbol and SCREEN is provided, the face is looked up on
  23. that screen; otherwise, the selected screen is used.
  24. If there is no such face, returns nil.
  25. If SCREEN is the symbol t, then the global, non-screen face is returned.
  26. If NAME is already a face, it is simply returned."])
  27. (fset 'get-face #[(name &optional screen) "└    \n\"«á    ─ !¡ï G┼U¡à ╞H╟=)?¡è╚╔╩    D\"ë¬aç" [find-face name screen x vectorp 8 0 face signal wrong-type-argument facep] 5 "\
  28. Retrieve the face of the given name.
  29. If NAME is a symbol and SCREEN is provided, the face is looked up on
  30. that screen; otherwise, the selected screen is used.
  31. If there is no such face, an error is signalled.  See also `find-face'.
  32. If SCREEN is the symbol t, then the global, non-screen face is returned.
  33. If NAME is already a face, it is simply returned."])
  34. (fset 'face-name #[(face) "└    !┬Hç" [get-face face 1] 2 "\
  35. Returns the name of the given face."])
  36. (put 'face-name 'byte-optimizer 'byte-compile-inline-expand)
  37. (fset 'face-id #[(face) "└    !┬Hç" [get-face face 2] 2 "\
  38. Returns the internal ID number of the given face."])
  39. (put 'face-id 'byte-optimizer 'byte-compile-inline-expand)
  40. (fset 'face-font #[(face &optional screen) "└    \n\"├Hç" [get-face face screen 3] 3 "\
  41. Returns the font name of the given face, or nil if it is unspecified."])
  42. (put 'face-font 'byte-optimizer 'byte-compile-inline-expand)
  43. (fset 'face-foreground #[(face &optional screen) "└    \n\"├Hç" [get-face face screen 4] 3 "\
  44. Returns the foreground color name of the given face, or nil if unspecified."])
  45. (put 'face-foreground 'byte-optimizer 'byte-compile-inline-expand)
  46. (fset 'face-background #[(face &optional screen) "└    \n\"├Hç" [get-face face screen 5] 3 "\
  47. Returns the background color name of the given face, or nil if unspecified."])
  48. (put 'face-background 'byte-optimizer 'byte-compile-inline-expand)
  49. (fset 'face-background-pixmap #[(face &optional screen) "└    \n\"├Hç" [get-face face screen 6] 3 "\
  50. Returns the background pixmap name of the given face, or nil if unspecified."])
  51. (put 'face-background-pixmap 'byte-optimizer 'byte-compile-inline-expand)
  52. (fset 'face-underline-p #[(face &optional screen) "└    \n\"├Hç" [get-face face screen 7] 3 "\
  53. Returns whether the given face is underlined."])
  54. (byte-code "└┴┬├#ê─┼Mê╞╟Mê╚╔Mç" [put face-underline-p byte-optimizer byte-compile-inline-expand set-face-1 #[(face name value index screen) "└\n¼─├ ë½£┼╟!╚H)    \n @%ê Aë¼d╟9½ä¬ï╟!╚H)└\" \nIê\n)¬ó\n└=¼ô╠╟!═H)    \n\n$ê╟\n\" \nI)ç" [t inhibit-quit screen screen-list screens set-face-1 face get-face 1 name value index set-face-attribute-internal 2] 7] read-face-name #[(prompt) "└└G┬U½Ä├ ┼╞╟ \"└╚$ë¬m╔    !)ç" [nil face 0 completing-read prompt mapcar #[(x) "└    !Cç" [symbol-name x] 2] list-faces t intern] 6] face-interactive #[(what &optional bool) "└┴\nP!─\n┼Q╟╚P!    ╩ !¡ì     ╦ \"«à ╠╦ \" ½Å╬╧╨    !╤╥░!¬ì╙╘╨    !╒R \"    ╫Ü?¡é-Dç" [intern "face-" what fn "Set " " of face" prompt read-face-name ": " face fboundp selected-screen default bool y-or-n-p "Should face " symbol-name " be " "? " read-string " " " to: " value ""] 6]] 4)
  55. (fset 'set-face-font #[(face font &optional screen) "└    ┬\n├ %ç" [set-face-1 face font 3 screen] 6 "\
  56. Change the font of the given face.  The font should be a string, the name
  57. string, the name of the font.  If the optional SCREEN argument is provided, 
  58. this face will be changed only in that screen; otherwise it will be changed
  59. in all screens." (face-interactive "font")])
  60. (put 'set-face-font 'byte-optimizer 'byte-compile-inline-expand)
  61. (fset 'set-face-foreground #[(face color &optional screen) "└    ┬ ─%ç" [set-face-1 face foreground color 4 screen] 6 "\
  62. Change the foreground color of the given face.  The color should be a 
  63. string, the name of a color.  If the optional SCREEN argument is provided, 
  64. this face will be changed only in that screen; otherwise it will be changed 
  65. in all screens." (face-interactive "foreground")])
  66. (put 'set-face-foreground 'byte-optimizer 'byte-compile-inline-expand)
  67. (fset 'set-face-background #[(face color &optional screen) "└    ┬ ─%ç" [set-face-1 face background color 5 screen] 6 "\
  68. Change the background color of the given face.  The color should be a 
  69. string, the name of a color.  If the optional SCREEN argument is provided, 
  70. this face will be changed only in that screen; otherwise it will be changed 
  71. in all screens." (face-interactive "background")])
  72. (put 'set-face-background 'byte-optimizer 'byte-compile-inline-expand)
  73. (fset 'set-face-background-pixmap #[(face name &optional screen) "└    ┬ ─%ç" [set-face-1 face background-pixmap name 6 screen] 6 "\
  74. Change the background pixmap of the given face.  The pixmap name should be
  75. a string, the name of a file of pixmap data.  The directories listed in the
  76. x-bitmap-file-path variable will be searched.  The bitmap may also be a list
  77. of the form (width height data) where width and height are the size in pixels,
  78. and data is a string, containing the raw bits of the bitmap.  
  79. If the optional SCREEN argument is provided, this face will be changed only
  80. in that screen; otherwise it will be changed in all screens." (face-interactive "background-pixmap")])
  81. (put 'set-face-background-pixmap 'byte-optimizer 'byte-compile-inline-expand)
  82. (fset 'set-face-underline-p #[(face underline-p &optional screen) "└    ┬ ─%ç" [set-face-1 face underline underline-p 7 screen] 6 "\
  83. Change whether the given face is underlined.  
  84. If the optional SCREEN argument is provided, this face will be changed only
  85. in that screen; otherwise it will be changed in all screens." (face-interactive "underline-p" "underlined")])
  86. (put 'set-face-underline-p 'byte-optimizer 'byte-compile-inline-expand)
  87. (fset 'make-face #[(name) "└┴┬\"ë─├Iê ┼Iê╟ ╔\n  ═  #ê T ½ö╬@\"╧ IêAë¼l╨ !ë╧ Iê BB+╙=½ä╘ !ê )ç" [make-vector 8 nil face 0 1 name screen-list screens t inhibit-quit face-id-tick id make-face-internal get-face 2 copy-sequence global-face-data window-system x x-resource-face] 5 "\
  88. Defines and returns a new FACE on all screens.  
  89. You can modify the font, color, etc of this face with the set-face- functions."])
  90. (fset 'copy-face #[(old-face new-name &optional screen) "└    \n\"├┼\n\"«ä╟!\n¼ú╔ ë\n½æ╦    \n@#ê\nAë\n¼o╦    ├#ê)é┌    \n └ \n\"═H*\n ╧ ╬═\n%ê+    \n └ \n\"╨H*\n ╧ ╥╨\n%ê+    \n └ \n\"╙H*\n ╧ ╘╙\n%ê+    \n └ \n\"╒H*\n ╧ ╫╒\n%ê+    \n └ \n\"╪H*\n ╧ ┌╪\n%ê+*ç" [get-face old-face screen t inhibit-quit find-face new-name make-face new-face screen-list screens copy-face face 3 font set-face-1 4 color foreground 5 background 6 name background-pixmap 7 underline-p underline] 7 "\
  91. Defines and returns a new face which is a copy of an existing one,
  92. or makes an already-existing face be exactly like another."])
  93. (fset 'set-extent-face #[(extent face) "└    \n├\n!─H)\"ç" [set-extent-attribute extent face get-face 2] 4 "\
  94. Make the given EXTENT have the graphic attributes specified by FACE."])
  95. (fset 'extent-face #[(extent) "└    ┬\" ─ë╚U½â╔½á@A╩!╦H)U½ê@@─Aë¼`«â╠═!+ç" [extent-attributes extent t global-face-data nil face rest id -1 0 get-face 2 error "unknown face??"] 4 "\
  96. Returns the name of the face in which EXTENT is displayed."])
  97. (fset 'face-equal #[(face1 face2 &optional screen) "└    \n\"└ \n\"    \n└ \n\"┼H* \n└ \n\"┼H*Ü¡╔    \n└ \n\"╞H* \n└ \n\"╞H*Ü¡░    \n└ \n\"╟H* \n└ \n\"╟H*Ü¡ù    \n└ \n\"╚H* \n└ \n\"╚H*Üç" [get-face face1 screen face2 face 4 5 3 6] 4 "\
  98. True if the given faces will display in the the same way."])
  99. (fset 'face-differs-from-default-p #[(face &optional screen) "└┴\n\"└ \n\"    \n└ \n\"─H* \n└ \n\"─H*ܼŠ\n└ \n\"─H*?à╛    \n└ \n\"┼H* \n└ \n\"┼H*Ü¼Ä \n└ \n\"┼H*?¡σ    \n└ \n\"╞H* \n└ \n\"╞H*Ü¼Ä \n└ \n\"╞H*?¡╛    \n└ \n\"╟H* \n└ \n\"╟H*Ü¼Ä \n└ \n\"╟H*?¡ù    \n└ \n\"╚H* \n└ \n\"╚H*Ü)?ç" [get-face default screen face 4 5 3 6 7] 4 "\
  100. True if the given face will display differently from the default face.
  101. A face is considered to be ``the same'' as the default face if it is 
  102. actually specified in the same way (equivalent fonts, etc) or if it is 
  103. fully unspecified, and thus will inherit the attributes of any face it 
  104. is displayed on top of."])
  105. (fset 'invert-face #[(face &optional screen) "└    \n\"ë\n└    \n\"├H*    \n└    \n\"─H*ë¼â½Ñ    \n╚    ╔├\n%ê+    \n╚    ╩─\n%ê+¬╢    ╦\n└    \n\"─H*\n╚    ╔├\n%ê+    ╦\n└    \n\"├H*\n╚    ╩─\n%ê+*    ç" [get-face face screen 4 5 bg fg color set-face-1 foreground background default] 7 "\
  106. Swap the foreground and background colors of the given face.
  107. If the face doesn't specify both foreground and background, then
  108. its foreground and background are set to the background and
  109. foreground of the default face." (byte-code "└┴!Cç" [read-face-name "Invert face: "] 2)])
  110. (fset 'try-face-font #[(face font &optional screen) "└┴┬Åç" [nil (byte-code "    \n├┴    ─\n%+ç" [face font screen set-face-1 3] 6) ((error))] 3 "\
  111. Like set-face-font, but returns nil on failure instead of an error."])
  112. (fset 'set-default-font #[(font) "└    ┬┼ ┴    ╞ %ê+╟    ┬┼ ┴    ╞ %+ç" [default font nil screen face set-face-1 3 modeline] 6 "\
  113. Sets the font used for normal text and the modeline to FONT in all screens.
  114. For finer-grained control, use set-face-font." (byte-code "└┴┬├ ╞ \"╟H*\"Cç" [read-string "Set default font: " default selected-screen screen face get-face 3] 5)])
  115. (byte-code "└┴Mê┬├!¼ÿ─├!ê─┼!ê─╞!ê─╟!ê─╚!ê─╔!ê└ç" [make-screen-initial-faces #[nil "└    !├ \n╞╞╔ \n\"ê½¥@╩@A!íê ╠=½ê═@A ╬#êAë¼c╧╟ \"╧╚ \" ╠=½ä╨ !ê╤ \"¼┬ ╧ \"╙H* ╒╓╫ %ê+ ╧ \"╫H* ╒╪╙ %ê+ ╧ \"┘H*¼▒ ╧ \"┘H*½í ╧ \"┘H* ╒┌┘ %ê+ ╧ \"╙H*¼▒ ╧ \"╙H*½í ╧ \"╙H* ╒╪╙ %ê+ ╧ \"╫H*?¡░ ╧ \"╫H*¡á ╧ \"╫H* ╒╓╫ %+-ç" [copy-alist global-face-data faces selected-screen screen rest nil default modeline set-screen-face-alist copy-sequence window-system x x-resource-face t get-face x-initialize-screen-faces face-differs-from-default-p face 5 color set-face-1 foreground 4 background 3 font] 7] find-face default make-face modeline highlight bold italic bold-italic] 2)
  116.