*** lisp/tabify.el.~1.19.~	2006-02-06 15:33:35.000000000 +0100
--- lisp/tabify.el	2006-07-24 22:33:57.000000000 +0200
***************
*** 75,82 ****
        (while (re-search-forward tabify-regexp nil t)
  	(let ((column (current-column))
  	      (indent-tabs-mode t))
! 	  (delete-region (match-beginning 0) (point))
! 	  (indent-to column))))))
  
  (provide 'tabify)
  
--- 75,90 ----
        (while (re-search-forward tabify-regexp nil t)
  	(let ((column (current-column))
  	      (indent-tabs-mode t))
! 	  ;; Whether already tabified.
! 	  (unless (save-match-data
! 		    (save-excursion
! 		      (skip-chars-backward " ")
! 		      (string-match
! 		       (format "^\t* \\{0,%d\\}$"
! 			       (- tab-width (1+ (mod (current-column) tab-width))))
! 		       (match-string 0))))
! 	    (delete-region (match-beginning 0) (point))
! 	    (indent-to column)))))))
  
  (provide 'tabify)
  
*** lisp/ChangeLog.~1.9820.~	2006-07-17 13:27:46.000000000 +0200
--- lisp/ChangeLog	2006-07-24 19:20:58.000000000 +0200
***************
*** 1,0 ****
--- 1,4 ----
+ 2006-07-24  Michaël Cadilhac  <michael.cadilhac@lrde.org>
+ 
+ 	* tabify.el (tabify): Check if not already tabified before indenting.
+