diff options
| author | Kenichi Handa <handa@gnu.org> | 2014-06-28 10:35:48 +0900 |
|---|---|---|
| committer | Kenichi Handa <handa@gnu.org> | 2014-06-28 10:35:48 +0900 |
| commit | f036e167feaf875873636972b28a4adc12c32254 (patch) | |
| tree | 440e45ae8951f7030393b130b184f2b1882070ee /lisp/align.el | |
| parent | 1fc00e5c9e87c88b4b253692d6ade822f6d74d3e (diff) | |
| parent | 2c4e2e6fd3096eb615504e3cfc89c588ec620f78 (diff) | |
| download | emacs-f036e167feaf875873636972b28a4adc12c32254.tar.gz | |
merge trunk
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) |