aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/textmodes
diff options
context:
space:
mode:
authorLeo Liu2014-06-26 07:53:37 +0800
committerLeo Liu2014-06-26 07:53:37 +0800
commit83d208a5dd293caae48beb9d36dd45529375631a (patch)
treee8075fee7dc607ebfa34779edf3e929c8fca6b63 /lisp/textmodes
parent30a42a5bedfbfaab72da862826f43291fe771ce8 (diff)
downloademacs-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.el3
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)))