;;; compiled by eric@geech.gnu.ai.mit.edu on Mon Mar 22 13:37:16 1993 ;;; from file /gd/gnu/emacs/19.0/lisp/indent.el ;;; emacs version 19.0.506. ;;; bytecomp version FSF 2.08 ;;; optimization is on. (defvar indent-line-function (quote 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 (quote insert-tab) #[nil "ƒÁ ˆ\nƒÃc‡Ä Æi \"T\"j‡" [abbrev-mode expand-abbrev indent-tabs-mode 9 * tab-width /] 5]) (fset 'indent-rigidly #[(start end arg) "ŠbˆÁ \nbˆn„ÃÄ!ˆ`Wƒ<Å Ç`ÈÉ!ˆ`\"ˆl„4ÊË \\]Ë\"ˆ)ÃÄ!ˆ‚ÍÎ\")‡" [end point-marker start forward-line 1 current-indentation indent delete-region skip-chars-forward " " indent-to 0 arg move-marker nil] 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 (quote indent-to-left-margin) #[nil "À U†&ŠÄÅ!ˆÆ`ÇÈ!ˆ`\"ˆ jˆ`)` W…% b)‡" [current-indentation left-margin nil epos forward-line 0 delete-region skip-chars-forward " "] 4]) (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 arg) "„d ƒ0Š\nbˆÃ  bˆÅ !`\nW….Ç!„' cˆÈÉ!ˆ‚*‡\nƒ;\n \n\"‡Š\nbˆÃ  bˆn„MÈÉ!ˆ`\nWƒ^ ˆÈÉ!ˆ‚MÌ\nÍ\")‡Î!Š\nbˆÃ  bˆn„zÈÉ!ˆ`\nWƒ™Ï`ÐÑ!ˆ`\"ˆl„’ÒÓ\"ˆÈÉ!ˆ‚zÌ\nÍ\")‡" [arg fill-prefix end point-marker start regexp-quote regexp looking-at forward-line 1 indent-region-function indent-line-function move-marker nil prefix-numeric-value delete-region skip-chars-forward " " indent-to 0] 4 "\ Indent each nonblank line in the region. With no argument, indent each line using indent-according-to-mode. (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) "ƒÁ ˆiŠÅÆ!ˆÇÈÂÉ#ƒPŠÅÊ!ˆ`) Ì !ˆi Vƒ/ÍÊ!ˆÎÏ!„@„@ÑÒ \"ˆÑÓ \"ˆ` U„Oi)) ƒ{Ô Ö`×Ó!ˆ`\"ˆØ Æ\"ˆ`VƒrbˆÙÂ\")‚}Ú *‡" [abbrev-mode expand-abbrev nil indent start-column forward-line 0 re-search-backward "^[^\n]" t 1 end move-to-column backward-char looking-at "[ ]" unindented-ok skip-chars-forward "^ " " " point-marker opoint delete-region skip-chars-backward indent-to move-marker 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'.") (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ÁÂÃ!!ˆÄ !ˆÆÇ!ˆÈÉÊ!ˆË Í ˆ‰ƒ8Ð@Ñ\"ˆÒcˆA‰„%)ÑÔcˆÕWƒXÖ\\cˆ×cˆT‰‚AÔcˆÑVƒnØcˆS‰‚])Ùcˆeb‡" [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]) (fset 'edit-tab-stops-note-changes #[nil "ÀŠÂbˆÃ ˆÄÅÀÆ#ƒi B‚ )ÇpÈ !ˆ!ˆ \n)ËÌ!‡" [nil tabs 1 end-of-line 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]) (fset 'tab-to-tab-stop #[nil "ƒÁ ˆ\n‰ƒi @Yƒ A‰„ ƒ% @j‚'Äc)‡" [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ƒ A‰„ … @Ã\")‡" [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]) (byte-code "À ÂÃ#ˆÀ ÅÆ#ˆÀÂÈ#ˆÀ ÉÊ#‡" [define-key global-map " " indent-for-tab-command esc-map "" indent-region ctl-x-map indent-rigidly "i" tab-to-tab-stop] 4)