Mercurial > hg > xemacs-beta
diff lisp/prim/tabify.el @ 2:ac2d302a0011 r19-15b2
Import from CVS: tag r19-15b2
author | cvs |
---|---|
date | Mon, 13 Aug 2007 08:46:35 +0200 |
parents | 376386a54a3c |
children | 0132846995bd |
line wrap: on
line diff
--- a/lisp/prim/tabify.el Mon Aug 13 08:45:53 2007 +0200 +++ b/lisp/prim/tabify.el Mon Aug 13 08:46:35 2007 +0200 @@ -18,9 +18,10 @@ ;; You should have received a copy of the GNU General Public License ;; along with XEmacs; see the file COPYING. If not, write to the Free -;; Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. +;; Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA +;; 02111-1307, USA. -;;; Synched up with: FSF 19.30. +;;; Synched up with: FSF 19.34. ;;; Commentary: @@ -47,6 +48,7 @@ (indent-tabs-mode nil)) (skip-chars-backward "\t" start) (delete-region tab-beg (point)) + ;; XEmacs change -- show progress (indent-to column) (if (> (/ (* 100 (- (point) start)) (- (point-max) start)) percent) (progn @@ -76,6 +78,7 @@ (let ((column (current-column)) (indent-tabs-mode t)) (delete-region (match-beginning 0) (point)) + ;; XEmacs change -- show progress (indent-to column) (if (> (/ (* 100 (- (point) start)) (- (point-max) start)) percent) (progn