aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorEli Zaretskii2018-06-02 13:43:43 +0300
committerEli Zaretskii2018-06-02 13:43:43 +0300
commitfb45125c80313b85a7ee56417e746eeac5eecb05 (patch)
treea4c65b24ea0ba96eaa139787447eabae395c9ec8
parent641c94ce68399e89a35769cb8727c59412767faa (diff)
downloademacs-fb45125c80313b85a7ee56417e746eeac5eecb05.tar.gz
emacs-fb45125c80313b85a7ee56417e746eeac5eecb05.zip
Documentation improvements in newcomment.el
* lisp/newcomment.el (uncomment-region) (uncomment-region-default): Doc fixes. (Bug#31615)
-rw-r--r--lisp/newcomment.el5
1 files changed, 3 insertions, 2 deletions
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
887(defun uncomment-region (beg end &optional arg) 887(defun uncomment-region (beg end &optional arg)
888 "Uncomment each line in the BEG .. END region. 888 "Uncomment each line in the BEG .. END region.
889The numeric prefix ARG can specify a number of chars to remove from the 889The numeric prefix ARG can specify a number of chars to remove from the
890comment markers." 890comment delimiters."
891 (interactive "*r\nP") 891 (interactive "*r\nP")
892 (comment-normalize-vars) 892 (comment-normalize-vars)
893 (when (> beg end) (setq beg (prog1 end (setq end beg)))) 893 (when (> beg end) (setq beg (prog1 end (setq end beg))))
@@ -901,7 +901,8 @@ comment markers."
901(defun uncomment-region-default (beg end &optional arg) 901(defun uncomment-region-default (beg end &optional arg)
902 "Uncomment each line in the BEG .. END region. 902 "Uncomment each line in the BEG .. END region.
903The numeric prefix ARG can specify a number of chars to remove from the 903The numeric prefix ARG can specify a number of chars to remove from the
904comment markers." 904comment delimiters.
905This function is the default value of `uncomment-region-function'."
905 (goto-char beg) 906 (goto-char beg)
906 (setq end (copy-marker end)) 907 (setq end (copy-marker end))
907 (let* ((numarg (prefix-numeric-value arg)) 908 (let* ((numarg (prefix-numeric-value arg))