From: Eli Zaretskii Date: Mon, 23 Aug 2021 16:01:09 +0000 (+0300) Subject: Fix doc strings in recent changes. X-Git-Tag: emacs-28.0.90~1339 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=9936e1478f26c35576644dc15370c4897eb6351d;p=emacs.git Fix doc strings in recent changes. * lisp/progmodes/cperl-mode.el (cperl-commentify) (cperl-here-doc-functions, cperl-is-here-doc-p) (cperl-find-pods-heres): Fix wording, style, and punctuation of doc strings. --- diff --git a/lisp/progmodes/cperl-mode.el b/lisp/progmodes/cperl-mode.el index 6bffea59367..727deaba5fc 100644 --- a/lisp/progmodes/cperl-mode.el +++ b/lisp/progmodes/cperl-mode.el @@ -3150,11 +3150,11 @@ Returns true if comment is found. In POD will not move the point." (put-text-property (1- (point)) (point) 'syntax-table cperl-st-punct)))) (defun cperl-commentify (begin end string) - "Marks text from BEGIN to END as generic string or comment. -Marks as generic string if STRING, as generic comment otherwise. + "Mark text from BEGIN to END as generic string or comment. +Mark as generic string if STRING, as generic comment otherwise. A single character is marked as punctuation and directly -fontified. Does nothing if BEGIN and END are equal. If -`cperl-use-syntax-text-property' is nil, just fontifies." +fontified. Do nothing if BEGIN and END are equal. If +`cperl-use-syntax-text-property' is nil, just fontify." (if (and cperl-use-syntax-table-text-property (> end begin)) (progn @@ -3520,8 +3520,8 @@ Should be called with the point before leading colon of an attribute." "system" "exec" ; system $progname <