Mercurial > hg > xemacs-beta
changeset 3289:f97e1a4cbc28
[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 | f45c9ff6f425 |
| children | 79109be21c5a |
| files | lisp/ChangeLog lisp/newcomment.el |
| diffstat | 2 files changed, 6 insertions(+), 20 deletions(-) [+] |
line wrap: on
line diff
--- 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
--- 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))