User: james Date: 06/03/17 18:05:09 Modified: xemacs/lisp ChangeLog newcomment.el Log: 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(a)jerrypc.cs.usu.edu&gt;. Revision Changes Path 1.729 +6 -0 XEmacs/xemacs/lisp/ChangeLog Index: ChangeLog =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/ChangeLog,v retrieving revision 1.728 retrieving revision 1.729 diff -u -p -r1.728 -r1.729 --- ChangeLog 2006/03/17 16:54:59 1.728 +++ ChangeLog 2006/03/17 17:05:06 1.729 ＠＠ -1,5 +1,11 ＠＠ 2006-03-15 Jerry James <james(a)xemacs.org&gt; + * 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(a)xemacs.org&gt; + * register.el (describe-register-1): Use set-text-properties instead of the nonexistent remove-list-of-text-properties. 1.4 +0 -20 XEmacs/xemacs/lisp/newcomment.el Index: newcomment.el =================================================================== RCS file: /pack/xemacscvs/XEmacs/xemacs/lisp/newcomment.el,v retrieving revision 1.3 retrieving revision 1.4 diff -u -p -r1.3 -r1.4 --- newcomment.el 2005/01/26 09:57:14 1.3 +++ newcomment.el 2006/03/17 17:05:07 1.4 ＠＠ -652,26 +652,6 ＠＠ comment markers." (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))