(defun indent-according-to-mode nil "\ Indent line in proper way for current major mode." (interactive) (byte-code "ÁˆÂ!‡" [indent-line-function nil funcall] 2)) (defun indent-for-tab-command nil "\ Indent line in proper way for current major mode." (interactive) (byte-code "ÁˆÂ=ƒ à ‚ Ä!‡" [indent-line-function nil indent-to-left-margin insert-tab funcall] 3)) (defun insert-tab nil (byte-code "… à ˆ ƒ Äc‚ Å Æi \"T\"j‡" [abbrev-mode indent-tabs-mode tab-width expand-abbrev 9 * /] 6)) (defun indent-rigidly (start end arg) "\ Indent all lines starting in the region sideways by ARG columns. Called from a program, takes three arguments, START, END and ARG." (interactive "r p") (byte-code "ĈŠbˆÅ ‰ˆ bˆn† ÆÇ!ˆ`W…= È É`ÊË!ˆ`\"ˆl†4 ÌÍ \\]Í\")ˆÆÇ!ˆ‚ ˆÎÄ\")‡" [end start indent arg nil point-marker forward-line 1 current-indentation delete-region skip-chars-forward " " indent-to 0 move-marker] 10)) (defun indent-to-left-margin nil (byte-code " U†'