(defun untabify (start end) "\ Convert all tabs in region to multiple spaces, preserving columns. The variable tab-width controls the action." (interactive "r") (byte-code "ˆŠŒÆ \"ˆbˆÇÈÂÃ#…* `iÂÉÈ!ˆÊ`\"ˆj+ˆ‚ ))‡" [start end nil t column indent-tabs-mode narrow-to-region search-forward " " skip-chars-backward delete-region] 7)) (defun tabify (start end) "\ Convert multiple spaces in region to tabs when possible. A group of spaces is partially replaced by tabs when this can be done without changing the column they end at. The variable tab-width controls the action." (interactive "r") (byte-code "ˆŠŒÆ \"ˆbˆÇÈÂÃ#…&