;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Sun Aug 28 02:14:33 1994 ;;; from file /home/fsf/rms/e19/lisp/indent.el ;;; emacs version 19.25.94.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19"))) (error "`/home/fsf/rms/e19/lisp/indent.el' was compiled for Emacs 19")) (defvar indent-line-function (quote indent-to-left-margin) "\ Function to indent current line.") (defalias 'indent-according-to-mode #[nil " " [indent-line-function] 1 "\ Indent line in proper way for current major mode." nil]) (defalias 'indent-for-tab-command #[nil "=  " [indent-line-function indent-to-left-margin insert-tab] 2 "\ Indent line in proper way for current major mode." nil]) (defalias (quote insert-tab) #[nil " \nc\fi\fT_j" [abbrev-mode expand-abbrev indent-tabs-mode 9 tab-width] 3]) (defalias 'indent-rigidly #[(start end arg) "b \nbny`WF wl)7 \\]\"`w`|*yʼn)" [end point-marker start 1 current-indentation nil eol-flag indent " " indent-to 0 arg] 4 "\ Indent all lines starting in the region sideways by ARG columns. Called from a program, takes three arguments, START, END and ARG." "r\np"]) (defalias (quote indent-to-left-margin) #[nil " U$y`w`| j`)` W# b)" [current-indentation left-margin nil epos 0 " "] 3]) (defvar indent-region-function nil "\ Function which is short cut to indent region using indent-according-to-mode. A value of nil means really run indent-according-to-mode on each line.") (defalias 'indent-region #[(start end column) "q 7\nb \fb !`\nW5!/n,l/ cy* B \f\n\"\nb \fbnSy`\nWknale\n yS\nˉ)!\nb \fbny`\nW`w`|l\"y\nˉ)" [column fill-prefix end point-marker start regexp-quote regexp looking-at 1 indent-region-function indent-line-function nil prefix-numeric-value " " indent-to 0] 3 "\ Indent each nonblank line in the region. With no argument, indent each line using `indent-according-to-mode', or use `indent-region-function' to do the whole region if that's non-nil. If there is a fill prefix, make each line start with the fill prefix. With argument COLUMN, indent each line to that column. Called from a program, takes three args: START, END and COLUMN." "r\nP"]) (defalias 'indent-relative-maybe #[nil "!" [indent-relative t] 2 "\ Indent a new line like previous nonblank line." nil]) (defalias 'indent-relative #[(&optional unindented-ok) " iy#Ly`)\n\f!i\fV-!!==\nw\nw`\nUKi)) v `x`| \"`Vmb‰)x *" [abbrev-mode expand-abbrev nil indent start-column 0 re-search-backward "^[^\n]" t 1 end move-to-column backward-char looking-at "[ ]" unindented-ok "^ " " " point-marker opoint indent-to tab-to-tab-stop] 4 "\ Space out to under next indent point in previous nonblank line. An indent point is a non-whitespace character following whitespace. If the previous nonblank line has no indent points beyond the column point starts at, `tab-to-tab-stop' is done instead." "P"]) (defvar tab-stop-list (quote (8 16 24 32 40 48 56 64 72 80 88 96 104 112 120)) "\ *List of tab stop positions used by `tab-to-tab-stops'. This should be a list of integers, ordered from smallest to largest.") (defvar edit-tab-stops-map nil "\ Keymap used in `edit-tab-stops'.") (byte-code " ##" [edit-tab-stops-map make-sparse-keymap define-key "" edit-tab-stops-note-changes ""] 4) (defvar edit-tab-stops-buffer nil "\ Buffer whose tab stops are being edited--in case the variable `tab-stop-list' is local in that buffer.") (defalias 'edit-tab-stops #[nil "p!! !!!\f 8@\"cA%)cWX\\ccTAcVncS])ceb" [edit-tab-stops-buffer switch-to-buffer get-buffer-create "*Tab Stops*" use-local-map edit-tab-stops-map make-local-variable indent-tabs-mode nil overwrite-mode 1 t truncate-lines erase-buffer tab-stop-list tabs indent-to 0 58 count 10 8 48 " " "0123456789" "\nTo install changes, type C-c C-c"] 4 "\ Edit the tab stops used by `tab-to-tab-stop'. Creates a buffer *Tab Stops* containing text describing the tab stops. A colon indicates a column where there is a tab stop. You can add or remove colons and then do \\\\[edit-tab-stops-note-changes] to make changes take effect." nil]) (defalias 'edit-tab-stops-note-changes #[nil "b#i B )p!!  )!" [nil tabs 1 search-backward ":" t bury-buffer switch-to-buffer edit-tab-stops-buffer tab-stop-list message "Tab stops installed"] 4 "\ Put edited tab stops into effect." nil]) (defalias 'tab-to-tab-stop #[nil " \ni @Y A 0`x`\f| @j)2c)" [abbrev-mode expand-abbrev tab-stop-list tabs opoint " " nil 32] 3 "\ Insert spaces or tabs to next defined tab-stop column. The variable `tab-stop-list' is a list of columns at which there are tab stops. Use \\[edit-tab-stops] to edit them interactively." nil]) (defalias 'move-to-tab-stop #[nil "i @Y A Q` @\"\nbh=Pg=Pi_iVLh=Lu9`\n|)*)" [tab-stop-list tabs before move-to-column t 32 9 tab-width tabend -1] 4 "\ Move point to next defined tab-stop column. The variable `tab-stop-list' is a list of columns at which there are tab stops. Use \\[edit-tab-stops] to edit them interactively." nil]) (byte-code " #\f##\f#" [define-key global-map " " indent-for-tab-command esc-map "" indent-region ctl-x-map indent-rigidly "i" tab-to-tab-stop] 4)