diff --git a/lisp/calculator.el b/lisp/calculator.el
index a9fe76259a8..0764a16370c 100644
--- a/lisp/calculator.el
+++ b/lisp/calculator.el
@@ -775,7 +775,7 @@ Defaults to 1."
   (or (nth 4 op) 1))
 
 (defun calculator-add-operators (more-ops)
-  "This function handles operator addition.
+  "Handle operator addition.
 Adds MORE-OPS to `calculator-operator', called initially to handle
 `calculator-initial-operators' and `calculator-user-operators'."
   (let ((added-ops nil))
diff --git a/lisp/erc/erc-log.el b/lisp/erc/erc-log.el
index 8311359ed09..a1102ebdcdf 100644
--- 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 c86e3cc002c..4f94934fccd 100644
--- 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 9bcac0d8dc5..27a02e9805f 100644
--- 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 7fc04ab3c32..faf5df541e0 100644
--- 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 c736f694083..eadf0988805 100644
--- 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 232145f7fb5..1da9a25090f 100644
--- 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)