;ELC ;;; compiled by jwz@thalidomide on Mon Jan 3 17:54:29 1994 ;;; from file /th/jwz/emacs19/lisp/prim/indent.el ;;; emacs version 19.9 Lucid (beta12). ;;; bytecomp version 2.22; 22-dec-93. ;;; 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 "This file was compiled for Emacs 19.")) (defvar indent-line-function 'indent-to-left-margin "\ Function to indent current line.") (fset 'indent-according-to-mode #[nil " " [indent-line-function] 1 "\ Indent line in proper way for current major mode." nil]) (fset '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]) (fset 'insert-tab #[nil " \nc i T_j" [abbrev-mode expand-abbrev indent-tabs-mode 9 tab-width] 3]) (fset 'indent-rigidly #[(start end arg) "b \nbny`W `w`|l \n\\]\")y]ljlj )" [end point-marker start 1 current-indentation indent " " nil indent-to 0 arg zmacs-region-stays] 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"]) (fset 'indent-to-left-margin #[nil " Uy`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.") (fset 'indent-region #[(start end column) " \nb  b !`\nW!nl cyg*  \n\"\nb  bny`\nWnl\n yl\nˉ)!\nb  bny`\nW`w`|l\"yf\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"]) (fset 'indent-relative-maybe #[nil "!" [indent-relative t] 2 "\ Indent a new line like previous nonblank line." nil]) (fset 'indent-relative #[(&optional unindented-ok) " iy#y`)\n !i V!!\nw\nw`\nUi)) `x`| \"`Vb‰) *" [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 '(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'.") (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.") (fset 'edit-tab-stops #[nil "p!!!!!! @\"cAn)cW\\ccTkcVcSq)!ceb" [edit-tab-stops-buffer switch-to-buffer get-buffer-create gettext "*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"] 5 "\ 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]) (fset 'edit-tab-stops-note-changes #[nil "b#i Bs)p!!  )!!" [nil tabs 1 search-backward ":" t bury-buffer switch-to-buffer edit-tab-stops-buffer tab-stop-list message gettext "Tab stops installed"] 4 "\ Put edited tab stops into effect." nil]) (fset 'tab-to-tab-stop #[nil " \ni @Y At @jc)" [abbrev-mode expand-abbrev tab-stop-list tabs 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]) (fset 'move-to-tab-stop #[nil "i @Y At @\")" [tab-stop-list tabs move-to-column t] 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])