;;; tabify.el --- tab conversion commands for Emacs
-;; Copyright (C) 1985, 1994, 2001-2011 Free Software Foundation, Inc.
+;; Copyright (C) 1985, 1994, 2001-2014 Free Software Foundation, Inc.
-;; Maintainer: FSF
+;; Maintainer: emacs-devel@gnu.org
;; Package: emacs
;; This file is part of GNU Emacs.
;;; Code:
;;;###autoload
-(defun untabify (start end)
+(defun untabify (start end &optional _arg)
"Convert all tabs in region to multiple spaces, preserving columns.
+If called interactively with prefix ARG, convert for the entire
+buffer.
+
Called non-interactively, the region is specified by arguments
START and END, rather than by the position of point and mark.
The variable `tab-width' controls the spacing of tab stops."
- (interactive "r")
+ (interactive (if current-prefix-arg
+ (list (point-min) (point-max) current-prefix-arg)
+ (list (region-beginning) (region-end) nil)))
(let ((c (current-column)))
(save-excursion
(save-restriction
\"^\\t* [ \\t]+\" is also useful, for tabifying only initial whitespace.")
;;;###autoload
-(defun tabify (start end)
+(defun tabify (start end &optional _arg)
"Convert multiple spaces in region to tabs when possible.
A group of spaces is partially replaced by tabs
when this can be done without changing the column they end at.
+If called interactively with prefix ARG, convert for the entire
+buffer.
+
Called non-interactively, the region is specified by arguments
START and END, rather than by the position of point and mark.
The variable `tab-width' controls the spacing of tab stops."
- (interactive "r")
+ (interactive (if current-prefix-arg
+ (list (point-min) (point-max) current-prefix-arg)
+ (list (region-beginning) (region-end) nil)))
(save-excursion
(save-restriction
;; Include the beginning of the line in the narrowing