diff options
| author | Leo Liu | 2014-06-26 07:53:37 +0800 |
|---|---|---|
| committer | Leo Liu | 2014-06-26 07:53:37 +0800 |
| commit | 83d208a5dd293caae48beb9d36dd45529375631a (patch) | |
| tree | e8075fee7dc607ebfa34779edf3e929c8fca6b63 /lisp/textmodes | |
| parent | 30a42a5bedfbfaab72da862826f43291fe771ce8 (diff) | |
| download | emacs-83d208a5dd293caae48beb9d36dd45529375631a.tar.gz emacs-83d208a5dd293caae48beb9d36dd45529375631a.zip | |
Fix a few packages to work with nil tab-stop-list
* indent.el (indent-accumulate-tab-stops): New function.
* textmodes/picture.el (picture-set-tab-stops):
* ruler-mode.el (ruler-mode-mouse-add-tab-stop)
(ruler-mode-ruler): Fix to work with nil tab-stop-list.
* progmodes/asm-mode.el (asm-calculate-indentation): Use
indent-next-tab-stop.
Diffstat (limited to 'lisp/textmodes')
| -rw-r--r-- | lisp/textmodes/picture.el | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lisp/textmodes/picture.el b/lisp/textmodes/picture.el index b11b773dee1..94d02bebb6a 100644 --- a/lisp/textmodes/picture.el +++ b/lisp/textmodes/picture.el | |||
| @@ -418,7 +418,8 @@ stops computed are displayed in the minibuffer with `:' at each stop." | |||
| 418 | (save-excursion | 418 | (save-excursion |
| 419 | (let (tabs) | 419 | (let (tabs) |
| 420 | (if arg | 420 | (if arg |
| 421 | (setq tabs (default-value 'tab-stop-list)) | 421 | (setq tabs (or (default-value 'tab-stop-list) |
| 422 | (indent-accumulate-tab-stops (window-width)))) | ||
| 422 | (let ((regexp (concat "[ \t]+[" (regexp-quote picture-tab-chars) "]"))) | 423 | (let ((regexp (concat "[ \t]+[" (regexp-quote picture-tab-chars) "]"))) |
| 423 | (beginning-of-line) | 424 | (beginning-of-line) |
| 424 | (let ((bol (point))) | 425 | (let ((bol (point))) |