[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] trunk r113042: lisp/tabify.el (untabify, tabify): With pre
From: |
Juanma Barranquero |
Subject: |
[Emacs-diffs] trunk r113042: lisp/tabify.el (untabify, tabify): With prefix, apply to entire buffer. |
Date: |
Tue, 18 Jun 2013 08:17:14 +0000 |
User-agent: |
Bazaar (2.6b2) |
------------------------------------------------------------
revno: 113042
revision-id: address@hidden
parent: address@hidden
author: Matthias Meulien <address@hidden>
committer: Juanma Barranquero <address@hidden>
branch nick: trunk
timestamp: Tue 2013-06-18 10:17:01 +0200
message:
lisp/tabify.el (untabify, tabify): With prefix, apply to entire buffer.
modified:
lisp/ChangeLog changelog-20091113204419-o5vbwnq5f7feedwu-1432
lisp/tabify.el tabify.el-20091113204419-o5vbwnq5f7feedwu-84
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2013-06-18 07:43:46 +0000
+++ b/lisp/ChangeLog 2013-06-18 08:17:01 +0000
@@ -1,3 +1,7 @@
+2013-06-18 Matthias Meulien <address@hidden>
+
+ * tabify.el (untabify, tabify): With prefix, apply to entire buffer.
+
2013-06-18 Glenn Morris <address@hidden>
* generic-x.el (bat-generic-mode, rc-generic-mode, rul-generic-mode):
=== modified file 'lisp/tabify.el'
--- a/lisp/tabify.el 2013-01-01 09:11:05 +0000
+++ b/lisp/tabify.el 2013-06-18 08:17:01 +0000
@@ -28,12 +28,17 @@
;;; 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
@@ -56,14 +61,19 @@
\"^\\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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] trunk r113042: lisp/tabify.el (untabify, tabify): With prefix, apply to entire buffer.,
Juanma Barranquero <=