diff options
| author | Eli Zaretskii | 2018-06-02 13:43:43 +0300 |
|---|---|---|
| committer | Eli Zaretskii | 2018-06-02 13:43:43 +0300 |
| commit | fb45125c80313b85a7ee56417e746eeac5eecb05 (patch) | |
| tree | a4c65b24ea0ba96eaa139787447eabae395c9ec8 | |
| parent | 641c94ce68399e89a35769cb8727c59412767faa (diff) | |
| download | emacs-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.el | 5 |
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. |
| 889 | The numeric prefix ARG can specify a number of chars to remove from the | 889 | The numeric prefix ARG can specify a number of chars to remove from the |
| 890 | comment markers." | 890 | comment 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. |
| 903 | The numeric prefix ARG can specify a number of chars to remove from the | 903 | The numeric prefix ARG can specify a number of chars to remove from the |
| 904 | comment markers." | 904 | comment delimiters. |
| 905 | This 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)) |