home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / msdos / winemacs / lisp / prim / tabify.elc < prev    next >
Encoding:
Text File  |  1993-06-08  |  1.1 KB  |  21 lines
  1. ;;; compiled by @win386 on Thu Apr 29 20:46:28 1993
  2. ;;; from file c:/src/winemacs/lisp/prim/tabify.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. (fset 'untabify #[(start end) "èî    }êbê┬├─┼#¡ù`i─├─xê`|êjê+¬b*ç" [start end search-forward "    " nil t indent-tabs-mode column] 4 "\
  14. Convert all tabs in region to multiple spaces, preserving columns.
  15. The variable tab-width controls the action." "r"])
  16. (fset 'tabify #[(start end) "èî    }êbê┬├─┼#¡Æi┼╚ö`|êjê*¬g*ç" [start end re-search-forward "[     ][     ][     ]*" nil t indent-tabs-mode column 0] 4 "\
  17. Convert multiple spaces in region to tabs when possible.
  18. A group of spaces is partially replaced by tabs
  19. when this can be done without changing the column they end at.
  20. The variable tab-width controls the action." "r"])
  21.