(defvar comment-char 42) (defvar make-target "") (defvar make-directory nil) (defvar make-window-height 25) (defun make (arg) (interactive "P") (byte-code "ˆ! !! . eb#-p!!)5‚ ] \"#! GSO\"] P f!u!)  \"!)!! Z!!" [compilation-process t nil arg make-target make-directory default-directory b make-window-height boundp processp delete-process buffer-file-name save-buffer search-forward "compile-command" 512 compile read read-string "Make target: " expand-file-name read-file-name "Make directory: " equal "/" get-buffer "*compilation*" kill-buffer format "make %s" select-window get-buffer-window shrink-window window-height other-window 1] 22)) (setq star-column 79) (defun star-line (arg) (interactive "p") (byte-code "ÈVK !?c iZ V& \" i V7!*c)! S" [arg spaces star-column nil 0 beginning-of-line looking-at "\\*" "*" end-of-line insert-char 32 backward-char 1 next-line] 11)) (defun comment-pp nil (interactive) (byte-code "ň \"!!O \" !!Oe#5!7ebc GZ\"iSc \" ! \"c`dWf!? \"c ! \"!\\ \" ! \"c GZ\" cc*)" [comment-start comment-end t comment-char end-col nil string-match "[ ]*\\([^ ]*\\)" match-beginning 1 match-end re-search-backward "^[ ]*$" forward-line insert-char 75 " " indent-to-column looking-at " " end-of-line] 25))