home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / modes / cmacexp.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  1.2 KB  |  16 lines
  1. ;;; compiled by @win386 on Sat Mar 13 14:30:39 1993
  2. ;;; from file c:/src/lucid-19.4/lisp/modes/cmacexp.el
  3. ;;; emacs version 19.3 Lucid.
  4. ;;; bytecomp version 2.08; 27-aug-92.
  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. (fset 'c-macro-expand #[(beg end) "└┴!┬├ëèqê╚ ê)╔╩╦#╠
  14. ═\"êî~êèbê╧yê`╨╤├╥#½Æ├êh╙U½à╘yê¬s╘yê`)╒e ├╓%ê╒╫├╥╓%ê╒┘P├╓%ê┌
  15. █▄Q\"ê┌
  16. ▌\"ê┌
  17. █▐Q\"ê▀
  18. !ê)α
  19. !ß=½àΓ ê¬tπ!êπ┘P!êΣ!êèqêdbêσyê`d|ê╨µ!êτyêl½åΦ╘!ê¬we`|ê)Σ!,ç" [get-buffer-create "*Macroexpansion*" "%%macroexpand%%" nil last-needed process tempfile outbuf erase-buffer start-process "macros" "/lib/cpp" set-process-sentinel (lambda (&rest x)) beg 0 re-search-backward "^[     ]*#" t 92 1 write-region nomsg "*//*\"*/\n" end "x" process-send-string "#include \"" "\"\n" "\n" "x\"\n" process-send-eof process-status run accept-process-output delete-file display-buffer -1 "\n# 1 " 2 delete-char] 6 "\
  20. Display the result of expanding all C macros occurring in the region.
  21. The expansion is entirely correct because it uses the C preprocessor." "r"])
  22.