(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 nil 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ล bn ฦว!`W = ศ ษ`สห!`\"l4 ฬอ \\]อ\")ฦว! ฮ\")" [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+ รฤ ล`ฦว!`\"j`)` W) b* ร)" [left-margin epos current-indentation nil beginning-of-line delete-region skip-chars-forward " "] 6)) (defvar indent-region-function nil "Function which is short cut to indent each line in region with Tab. nil means really call Tab on each line.") (defun indent-region (start end arg) "\ Indent each nonblank line in the region. With no argument, indent each line with Tab. With argument COLUMN, indent each line to that column. Called from a program, takes three args: START, END and COLUMN." (interactive "r P") (byte-code "ล?A ฦ #>