diff --git a/lisp/newcomment.el b/lisp/newcomment.el index f5615d93df3..9827a5d1d9c 100644 --- a/lisp/newcomment.el +++ b/lisp/newcomment.el @@ -887,7 +887,7 @@ If N is `re', a regexp is returned instead, that would match (defun uncomment-region (beg end &optional arg) "Uncomment each line in the BEG .. END region. The numeric prefix ARG can specify a number of chars to remove from the -comment markers." +comment delimiters." (interactive "*r\nP") (comment-normalize-vars) (when (> beg end) (setq beg (prog1 end (setq end beg)))) @@ -901,7 +901,8 @@ comment markers." (defun uncomment-region-default (beg end &optional arg) "Uncomment each line in the BEG .. END region. The numeric prefix ARG can specify a number of chars to remove from the -comment markers." +comment delimiters. +This function is the default value of `uncomment-region-function'." (goto-char beg) (setq end (copy-marker end)) (let* ((numarg (prefix-numeric-value arg))