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/align.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/align.el')
| -rw-r--r-- | lisp/align.el | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/lisp/align.el b/lisp/align.el index 3b54aba264f..0e6b84d11ec 100644 --- a/lisp/align.el +++ b/lisp/align.el @@ -1130,13 +1130,8 @@ TAB-STOP specifies whether SPACING refers to tab-stop boundaries." column (if (not tab-stop) (+ column spacing) - (let ((stops tab-stop-list)) - (while stops - (if (and (> (car stops) column) - (= (setq spacing (1- spacing)) 0)) - (setq column (car stops) - stops nil) - (setq stops (cdr stops))))) + (dotimes (_ spacing) + (setq column (indent-next-tab-stop column))) column))) (defsubst align-column (pos) |