Mercurial > hg > xemacs-beta

diff lisp/newcomment.el @ 3289:f97e1a4cbc28

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[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>.
author james
date Fri, 17 Mar 2006 17:05:07 +0000
parents b9a1074dc6bf
children 1e2fc51563a5
line wrap: on
line diff
--- 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))