emacs/lisp/indent.el

49 (defcustom tab-always-indent t
55 e.g., `c-tab-always-indent', and do not respect this variable."
80 (defun indent-for-tab-command (&optional arg)
81   "Indent line in proper way for current major mode or insert a tab.
82 Depending on `tab-always-indent', either insert a tab or indent.
90 	;; so we force it to always insert a tab here.
92 	(and (not tab-always-indent)
95     (insert-tab arg))
103 (defun insert-tab (&optional arg)
110       (indent-to (* tab-width (+ count (/ (current-column) tab-width)))))))
141 	   (if (>= (- column (* (/ cur-col tab-width) tab-width)) tab-width)
145 	  ((> cur-col column) ; too far right (after tab?)
167   (interactive (list (prefix-numeric-value current-prefix-arg) t))
178 		 ;; If lm is in a tab and we are not forcing, move before tab
317 \(such as a tab used to indent the first line of a paragraph)."
407 column point starts at, `tab-to-tab-stop' is done instead, unless
423 	    ;; Is start-column inside a tab on this line?
437       (tab-to-tab-stop))))
439 (defcustom tab-stop-list
441   "*List of tab stop positions used by `tab-to-tab-stop'.
442 This should be a list of integers, ordered from smallest to largest."
446 (defvar edit-tab-stops-map
448     (define-key map "\C-x\C-s" 'edit-tab-stops-note-changes)
449     (define-key map "\C-c\C-c" 'edit-tab-stops-note-changes)
451   "Keymap used in `edit-tab-stops'.")
453 (defvar edit-tab-stops-buffer nil
454   "Buffer whose tab stops are being edited.
455 This matters if the variable `tab-stop-list' is local in that buffer.")
457 (defun edit-tab-stops ()
458   "Edit the tab stops used by `tab-to-tab-stop'.
459 Creates a buffer *Tab Stops* containing text describing the tab stops.
460 A colon indicates a column where there is a tab stop.
461 You can add or remove colons and then do \\<edit-tab-stops-map>\\[edit-tab-stops-note-changes] to make changes take effect."
463   (setq edit-tab-stops-buffer (current-buffer))
465   (use-local-map edit-tab-stops-map)
471   (let ((tabs tab-stop-list))
489 (defun edit-tab-stops-note-changes ()
490   "Put edited tab stops into effect."
499 			  (switch-to-buffer edit-tab-stops-buffer)))
500       (setq tab-stop-list tabs))
503 (defun tab-to-tab-stop ()
504   "Insert spaces or tabs to next defined tab-stop column.
505 The variable `tab-stop-list' is a list of columns at which there are tab stops.
506 Use \\[edit-tab-stops] to edit them interactively."
510   (let ((tabs tab-stop-list))
519 (defun move-to-tab-stop ()
520   "Move point to next defined tab-stop column.
521 The variable `tab-stop-list' is a list of columns at which there are tab stops.
522 Use \\[edit-tab-stops] to edit them interactively."
524   (let ((tabs tab-stop-list))
532 	    ;; If we just added a tab, or moved over one,
536 		(let ((tabend (* (/ (current-column) tab-width) tab-width)))
542 (define-key global-map "\t" 'indent-for-tab-command)
545 (define-key esc-map "i" 'tab-to-tab-stop)