# HG changeset patch
# User james
# Date 1142615107 0
# Node ID f97e1a4cbc2863b27301c3737bab12e4248e0acc
# Parent  f45c9ff6f42579fc155d4ac094cba2d57033a45a
[xemacs-hg @ 2006-03-17 17:05:06 by james]
Remove an old block of code that breaks uncomment-region on C files and does
not appear to help with its purpoted use on Elisp files.  See xemacs-patches
message <m3bqw7jjat.fsf@jerrypc.cs.usu.edu>.

diff -r f45c9ff6f425 -r f97e1a4cbc28 lisp/ChangeLog
--- a/lisp/ChangeLog	Fri Mar 17 16:55:00 2006 +0000
+++ b/lisp/ChangeLog	Fri Mar 17 17:05:07 2006 +0000
@@ -1,3 +1,9 @@
+2006-03-15  Jerry James  <james@xemacs.org>
+
+	* newcomment.el (uncomment-region): Remove old code that breaks
+	uncomment-region on C files.  Thanks to Christian Podlasly for the
+	report.
+
 2006-03-15  Jerry James  <james@xemacs.org>
 
 	* register.el (describe-register-1): Use set-text-properties
diff -r f45c9ff6f425 -r f97e1a4cbc28 lisp/newcomment.el
--- a/lisp/newcomment.el	Fri Mar 17 16:55:00 2006 +0000
+++ b/lisp/newcomment.el	Fri Mar 17 17:05:07 2006 +0000
@@ -652,26 +652,6 @@
     (goto-char beg)
     (setq end (copy-marker end))
 
-    ;; XEmacs: Add the following clause
-
-    ;; if user didn't specify how many comments to remove, be smart
-    ;; and remove the minimal number that all lines have.  that way,
-    ;; comments in a region of Elisp code that gets commented out will
-    ;; get put back correctly.
-    (if (null arg)
- 	(let ((min-comments 999999))
- 	  (while (not (eobp))
- 	    (let ((this-comments 0))
- 	      (while (looking-at (regexp-quote comment-start))
- 		(incf this-comments)
- 		(forward-char (length comment-start)))
- 	      (if (and (> this-comments 0) (< this-comments min-comments))
- 		  (setq min-comments this-comments))
- 	      (forward-line 1)))
- 	  (if (< min-comments 999999)
- 	      (setq arg (list min-comments)))
- 	  (goto-char beg)))
-
     (let* ((numarg (prefix-numeric-value arg))
            (ccs comment-continue)
            (srei (comment-padright ccs 're))