Mercurial > emacs

changeset 51734:400a9c7868fd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(uncomment-region): Remove padding coming from comment-start rather than just from comment-padding.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Fri, 04 Jul 2003 22:45:26 +0000
parents 2b72fd42f02e
children 204ae43066d1
files lisp/newcomment.el
diffstat 1 files changed, 6 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/newcomment.el	Fri Jul 04 22:40:26 2003 +0000
+++ b/lisp/newcomment.el	Fri Jul 04 22:45:26 2003 +0000
@@ -669,6 +669,7 @@
     (let* ((numarg (prefix-numeric-value arg))
            (ccs comment-continue)
            (srei (comment-padright ccs 're))
+           (csre (comment-padright comment-start 're))
            (sre (and srei (concat "^\\s-*?\\(" srei "\\)")))
            spt)
       (while (and (< (point) end)
@@ -697,8 +698,11 @@
 			   (> (- (point) (point-min) (length comment-start)) 7))
 		       (> (count-lines (point-min) (point-max)) 2))
 	      (setq box t))
-	    (when (looking-at (regexp-quote comment-padding))
-	      (goto-char (match-end 0)))
+	    ;; Skip the padding.  Padding can come from comment-padding and/or
+	    ;; from comment-start, so we first check comment-start.
+	    (if (or (save-excursion (goto-char (point-min)) (looking-at csre))
+		    (looking-at (regexp-quote comment-padding)))
+		(goto-char (match-end 0)))
 	    (when (and sre (looking-at (concat "\\s-*\n\\s-*" srei)))
 	      (goto-char (match-end 0)))
 	    (if (null arg) (delete-region (point-min) (point))