diff options
| author | Leo Liu <sdl.web@gmail.com> | 2014-06-24 07:09:20 +0800 |
|---|---|---|
| committer | Leo Liu <sdl.web@gmail.com> | 2014-06-24 07:09:20 +0800 |
| commit | 96559792e1c45918fcb147a01772d02556b26d00 (patch) | |
| tree | b2a71c9bb35bac83dea5597408fd752d83902c9e /lisp/indent.el | |
| parent | 027676cc19d67b70b734526486011dcff8ee2e78 (diff) | |
| download | emacs-96559792e1c45918fcb147a01772d02556b26d00.tar.gz emacs-96559792e1c45918fcb147a01772d02556b26d00.tar.bz2 emacs-96559792e1c45918fcb147a01772d02556b26d00.zip | |
* align.el (align-adjust-col-for-rule): Unbreak due to defaulting
tab-stop-list to nil.
* indent.el (indent-next-tab-stop): Rename from indent--next-tab-stop.
(indent-rigidly-left-to-tab-stop)
(indent-rigidly-right-to-tab-stop, tab-to-tab-stop)
(move-to-tab-stop): Change callers.
Fixes: debbugs:16381
Diffstat (limited to 'lisp/indent.el')
| -rw-r--r-- | lisp/indent.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/indent.el b/lisp/indent.el index ab38d502966..7df927ff808 100644 --- a/lisp/indent.el +++ b/lisp/indent.el @@ -249,7 +249,7 @@ indentation by specifying a large negative ARG." (indent-rigidly--pop-undo) (let* ((current (indent-rigidly--current-indentation beg end)) (rtl (eq (current-bidi-paragraph-direction) 'right-to-left)) - (next (indent--next-tab-stop current (if rtl nil 'prev)))) + (next (indent-next-tab-stop current (if rtl nil 'prev)))) (indent-rigidly beg end (- next current)))) (defun indent-rigidly-right-to-tab-stop (beg end) @@ -258,7 +258,7 @@ indentation by specifying a large negative ARG." (indent-rigidly--pop-undo) (let* ((current (indent-rigidly--current-indentation beg end)) (rtl (eq (current-bidi-paragraph-direction) 'right-to-left)) - (next (indent--next-tab-stop current (if rtl 'prev)))) + (next (indent-next-tab-stop current (if rtl 'prev)))) (indent-rigidly beg end (- next current)))) (defun indent-line-to (column) @@ -654,7 +654,7 @@ You can add or remove colons and then do \\<edit-tab-stops-map>\\[edit-tab-stops (setq tab-stop-list tabs)) (message "Tab stops installed")) -(defun indent--next-tab-stop (column &optional prev) +(defun indent-next-tab-stop (column &optional prev) "Return the next tab stop after COLUMN. If PREV is non-nil, return the previous one instead." (let ((tabs tab-stop-list)) @@ -684,7 +684,7 @@ Use \\[edit-tab-stops] to edit them interactively." (interactive) (and abbrev-mode (= (char-syntax (preceding-char)) ?w) (expand-abbrev)) - (let ((nexttab (indent--next-tab-stop (current-column)))) + (let ((nexttab (indent-next-tab-stop (current-column)))) (delete-horizontal-space t) (indent-to nexttab))) @@ -693,7 +693,7 @@ Use \\[edit-tab-stops] to edit them interactively." The variable `tab-stop-list' is a list of columns at which there are tab stops. Use \\[edit-tab-stops] to edit them interactively." (interactive) - (let ((nexttab (indent--next-tab-stop (current-column)))) + (let ((nexttab (indent-next-tab-stop (current-column)))) (let ((before (point))) (move-to-column nexttab t) (save-excursion |