Don't start docstrings with "This function"

* lisp/calculator.el (calculator-add-operators):
* lisp/erc/erc-log.el (erc-generate-log-file-name-with-date)
(erc-generate-log-file-name-short):
* lisp/eshell/esh-mode.el (eshell-begin-on-new-line):
* lisp/progmodes/hideif.el (hif-merge-ifdef-region):
* lisp/tab-bar.el (tab-bar--event-to-item):
* lisp/textmodes/artist.el (artist-no-rb-unset-point2)
(artist-no-rb-unset-points):
* lisp/which-key.el (which-key--hide-popup): Don't start function
docstrings with "This function".

(cherry picked from commit 4df832750c811abc5ccbe7bfcefe1ad8f144af8e)

diff --git a/lisp/erc/erc-log.el b/lisp/erc/erc-log.el
index 8311359ed09eb8b9b739cf7306276a0f6da27627..a1102ebdcdfcd36714f560153e34f3dac61186eb 100644 (file)
--- a/lisp/erc/erc-log.el
+++ b/lisp/erc/erc-log.el
@@ -360,13 +360,13 @@ The result is converted to lowercase, as IRC is case-insensitive."
         erc-log-channels-directory)))))
 
 (defun erc-generate-log-file-name-with-date (buffer &rest _ignore)
-  "This function computes a short log file name.
+  "Compute a short log file name with the current date.
 The name of the log file is composed of BUFFER and the current date.
 This function is a possible value for `erc-generate-log-file-name-function'."
   (concat (buffer-name buffer) "-" (format-time-string "%Y-%m-%d") ".txt"))
 
 (defun erc-generate-log-file-name-short (buffer &rest _ignore)
-  "This function computes a short log file name.
+  "Compute a short log file name.
 In fact, it only uses the buffer name of the BUFFER argument, so
 you can affect that using `rename-buffer' and the-like.  This
 function is a possible value for

diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el
index c86e3cc002cfb9152dcdc6691935771de36b4987..4f94934fccdeb295e28629c1921c2638e5ccddf3 100644 (file)
--- a/lisp/eshell/esh-mode.el
+++ b/lisp/eshell/esh-mode.el
@@ -537,7 +537,7 @@ Putting this function on `eshell-pre-command-hook' will mimic Plan 9's
     (eshell-interactive-output-filter nil string)))
 
 (defsubst eshell-begin-on-new-line ()
-  "This function outputs a newline if not at beginning of line."
+  "Print a newline if not at beginning of line."
   (save-excursion
     (goto-char eshell-last-output-end)
     (or (bolp)

diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el
index 2a5c0aeed1b225537b8ef2789002f0aa6288d552..df047ffe883be85b50b27bf5e7575e0bc4ae2ec9 100644 (file)
--- a/lisp/progmodes/hideif.el
+++ b/lisp/progmodes/hideif.el
@@ -400,7 +400,7 @@ If there is a marked region from START to END it only shows the symbols within."
     (end-of-line 2)))
 
 (defun hif-merge-ifdef-region (start end)
-  "This function merges nearby ifdef regions to form a bigger overlay.
+  "Merge nearby ifdef regions to form a bigger overlay.
 The region is defined by START and END.  This will decrease the number of
 overlays created."
   ;; Generally there is no need to call itself recursively since there should

diff --git a/lisp/tab-bar.el b/lisp/tab-bar.el
index 5fba78ff031a19391fc219a3f8e0df01d9aae109..aa9d2e793ddd595f97b16e50356184b46bcde793 100644 (file)
--- a/lisp/tab-bar.el
+++ b/lisp/tab-bar.el
@@ -298,7 +298,7 @@ For any other value of KEY, the value is t."
 (defvar tab-bar--dragging-in-progress)
 
 (defun tab-bar--event-to-item (posn)
-  "This function extracts extra info from the mouse event at position POSN.
+  "Extract extra info from the mouse event at position POSN.
 It returns a list of the form (KEY KEY-BINDING CLOSE-P), where:
  KEY is a symbol representing a tab, such as \\='tab-1 or \\='current-tab;
  KEY-BINDING is the binding of KEY;

diff --git a/lisp/textmodes/artist.el b/lisp/textmodes/artist.el
index d1f116ad38fbcedd60e85d9983672243ff4bf2fc..f20e8a11924bbaa522f91e5fd8289f46266b3f6d 100644 (file)
--- a/lisp/textmodes/artist.el
+++ b/lisp/textmodes/artist.el
@@ -1997,7 +1997,7 @@ With optional argument SEE-THRU set to non-nil, text in the buffer
     (aset artist-rb-save-data 6 0)))
 
 (defun artist-no-rb-unset-point2 ()
-  "This function unsets point 2 when not rubber-banding."
+  "Unset point 2 when not rubber-banding."
   (if (= (aref artist-rb-save-data 6) 1)
       (let ((x-now (artist-current-column))
            (y-now (artist-current-line))
@@ -2020,7 +2020,7 @@ With optional argument SEE-THRU set to non-nil, text in the buffer
     (aset artist-rb-save-data 6 1)))
 
 (defun artist-no-rb-unset-points ()
-  "This function unsets point 1 and 2 when not rubber-banding."
+  "Unset point 1 and 2 when not rubber-banding."
   (artist-no-rb-unset-point1)
   (artist-no-rb-unset-point2))
 

diff --git a/lisp/which-key.el b/lisp/which-key.el
index 232145f7fb56d1cb4733ed6c45e11949735dc03f..1da9a25090fabcaad670123e129f7a4cc7042d99 100644 (file)
--- a/lisp/which-key.el
+++ b/lisp/which-key.el
@@ -1219,7 +1219,7 @@ total height."
 ;;; Show/hide which-key buffer
 
 (defun which-key--hide-popup ()
-  "This function is called to hide the which-key buffer."
+  "Hide the `which-key' buffer."
   (unless (or which-key-persistent-popup
               (member real-this-command which-key--paging-functions))
     (setq which-key--last-try-2-loc nil)