lisp/*.el: Fix typos and improve some docstrings

* lisp/auth-source.el (auth-source-backend-parse-parameters)
(auth-source-search-collection)
(auth-source-secrets-listify-pattern)
(auth-source--decode-octal-string, auth-source-plstore-search):
* lisp/registry.el (registry-lookup)
(registry-lookup-breaks-before-lexbind)
(registry-lookup-secondary, registry-lookup-secondary-value)
(registry-search, registry-delete, registry-size, registry-full)
(registry-insert, registry-reindex, registry-prune)
(registry-collect-prune-candidates):
* lisp/subr.el (nbutlast, process-live-p):
* lisp/tab-bar.el (tab-bar-list):
* lisp/cedet/ede/linux.el (ede-linux--get-archs)
(ede-linux--include-path, ede-linux-load):
* lisp/erc/erc-log.el (erc-log-all-but-server-buffers):
* lisp/erc/erc-pcomplete.el (pcomplete-erc-commands)
(pcomplete-erc-ops, pcomplete-erc-not-ops, pcomplete-erc-nicks)
(pcomplete-erc-all-nicks, pcomplete-erc-channels)
(pcomplete-erc-command-name, pcomplete-erc-parse-arguments):
* lisp/eshell/em-term.el (eshell-visual-command-p):
* lisp/gnus/gnus-cache.el (gnus-cache-fully-p):
* lisp/gnus/nnmail.el (nnmail-get-active)
(nnmail-fancy-expiry-target):
* lisp/mail/mail-utils.el (mail-string-delete):
* lisp/mail/supercite.el (sc-hdr, sc-valid-index-p):
* lisp/net/ange-ftp.el (ange-ftp-use-smart-gateway-p):
* lisp/net/nsm.el (nsm-save-fingerprint-maybe)
(nsm-network-same-subnet, nsm-should-check):
* lisp/net/rcirc.el (rcirc-looking-at-input):
* lisp/net/tramp-cache.el (tramp-get-hash-table):
* lisp/net/tramp-compat.el (tramp-compat-process-running-p):
* lisp/net/tramp-smb.el (tramp-smb-get-share)
(tramp-smb-get-localname, tramp-smb-read-file-entry)
(tramp-smb-get-cifs-capabilities, tramp-smb-get-stat-capability):
* lisp/net/zeroconf.el (zeroconf-list-service-names)
(zeroconf-list-service-types, zeroconf-list-services)
(zeroconf-get-host, zeroconf-get-domain)
(zeroconf-get-host-domain):
* lisp/nxml/rng-xsd.el (rng-xsd-compile)
(rng-xsd-make-date-time-regexp, rng-xsd-convert-date-time):
* lisp/obsolete/erc-hecomplete.el (erc-hecomplete)
(erc-command-list, erc-complete-at-prompt):
* lisp/org/ob-scheme.el (org-babel-scheme-get-buffer-impl):
* lisp/org/ob-shell.el (org-babel--variable-assignments:sh-generic)
(org-babel--variable-assignments:bash_array)
(org-babel--variable-assignments:bash_assoc)
(org-babel--variable-assignments:bash):
* lisp/org/org-clock.el (org-day-of-week):
* lisp/progmodes/cperl-mode.el (cperl-char-ends-sub-keyword-p):
* lisp/progmodes/gud.el (gud-find-c-expr, gud-innermost-expr)
(gud-prev-expr, gud-next-expr):
* lisp/textmodes/table.el (table--at-cell-p, table--probe-cell)
(table--get-cell-justify-property)
(table--get-cell-valign-property)
(table--put-cell-justify-property)
(table--put-cell-valign-property): Fix typos.

* lisp/so-long.el (fboundp): Doc fix.
(so-long-mode-line-info, so-long-mode)
(so-long--check-header-modes): Fix typos.

* lisp/emulation/viper-mous.el (viper-surrounding-word)
(viper-mouse-click-get-word): Fix typos.
(viper-mouse-click-search-word): Doc fix.

* lisp/erc/erc-backend.el (erc-forward-word, erc-word-at-arg-p)
(erc-bounds-of-word-at-point): Fix typos.
(erc-decode-string-from-target, define-erc-response-handler):
Refill docstring.

* lisp/erc/erc-dcc.el (pcomplete/erc-mode/DCC): Fix typo.
(erc-dcc-get-host, erc-dcc-auto-mask-p, erc-dcc-get-file):
Doc fixes.

* lisp/erc/erc-networks.el (erc-network-name): Fix typo.
(erc-determine-network): Refill docstring.

* lisp/net/dbus.el (dbus-list-hash-table)
(dbus-string-to-byte-array, dbus-byte-array-to-string)
(dbus-check-event): Fix typos.
(dbus-introspect-get-property): Doc fix.

* lisp/net/tramp-adb.el (tramp-adb-file-name-handler):
Rename ARGS to ARGUMENTS.  Doc fix.
(tramp-adb-sh-fix-ls-output, tramp-adb-execute-adb-command)
(tramp-adb-find-test-command): Fix typos.

* lisp/net/tramp.el (tramp-set-completion-function)
(tramp-get-completion-function)
(tramp-completion-dissect-file-name)
(tramp-completion-dissect-file-name1)
(tramp-get-completion-methods, tramp-get-completion-user-host)
(tramp-get-inode, tramp-get-device, tramp-mode-string-to-int)
(tramp-call-process, tramp-call-process-region)
(tramp-process-lines): Fix typos.
(tramp-interrupt-process): Doc fix.

* lisp/org/ob-core.el (org-babel-named-src-block-regexp-for-name)
(org-babel-named-data-regexp-for-name): Doc fix.
(org-babel-src-block-names, org-babel-result-names): Fix typos.

* lisp/progmodes/inf-lisp.el (lisp-input-filter): Doc fix.
(lisp-fn-called-at-pt): Fix typo.

* lisp/progmodes/xref.el (xref-backend-identifier-at-point):
Doc fix.
(xref-backend-identifier-completion-table): Fix typo.

10 files changed, 47 insertions, 45 deletions

diff --git a/lisp/net/ange-ftp.el b/lisp/net/ange-ftp.el
index b0a1e1799f5..a5fc9631e8a 100644
--- a/lisp/net/ange-ftp.el
+++ b/lisp/net/ange-ftp.el
@@ -1708,7 +1708,7 @@ good, skip, fatal, or unknown."
        (not (string-match-p ange-ftp-local-host-regexp host))))
 
 (defun ange-ftp-use-smart-gateway-p (host)
-  "Returns whether to access this HOST via a smart gateway."
+  "Return whether to access this HOST via a smart gateway."
   (and ange-ftp-smart-gateway
        (not (string-match-p ange-ftp-local-host-regexp host))))
 
diff --git a/lisp/net/dbus.el b/lisp/net/dbus.el
index c3297ac9da6..f3f6fecb956 100644
--- a/lisp/net/dbus.el
+++ b/lisp/net/dbus.el
@@ -493,7 +493,7 @@ This is an internal function, it shall not be used outside dbus.el."
 ;;; Hash table of registered functions.
 
 (defun dbus-list-hash-table ()
-  "Returns all registered member registrations to D-Bus.
+  "Return all registered member registrations to D-Bus.
 The return value is a list, with elements of kind (KEY . VALUE).
 See `dbus-registered-objects-table' for a description of the
 hash table."
@@ -888,7 +888,7 @@ association to the service from D-Bus."
 ;;; D-Bus type conversion.
 
 (defun dbus-string-to-byte-array (string)
-  "Transforms STRING to list (:array :byte c1 :byte c2 ...).
+  "Transform STRING to list (:array :byte c1 :byte c2 ...).
 STRING shall be UTF8 coded."
   (if (zerop (length string))
       '(:array :signature "y")
@@ -897,7 +897,7 @@ STRING shall be UTF8 coded."
         (setq result (append result (list :byte elt)))))))
 
 (defun dbus-byte-array-to-string (byte-array &optional multibyte)
-  "Transforms BYTE-ARRAY into UTF8 coded string.
+  "Transform BYTE-ARRAY into UTF8 coded string.
 BYTE-ARRAY must be a list of structure (c1 c2 ...), or a byte
 array as produced by `dbus-string-to-byte-array'.  The resulting
 string is unibyte encoded, unless MULTIBYTE is non-nil."
@@ -947,7 +947,7 @@ STRING must have been encoded with `dbus-escape-as-identifier'."
 ;;; D-Bus events.
 
 (defun dbus-check-event (event)
-  "Checks whether EVENT is a well formed D-Bus event.
+  "Check whether EVENT is a well formed D-Bus event.
 EVENT is a list which starts with symbol `dbus-event':
 
   (dbus-event BUS TYPE SERIAL SERVICE PATH INTERFACE MEMBER HANDLER &rest ARGS)
@@ -1319,7 +1319,7 @@ SERVICE is a service of D-Bus BUS at object path PATH."
       (push (dbus-introspect-get-attribute elt "name") result))))
 
 (defun dbus-introspect-get-property (bus service path interface property)
-  "This function returns PROPERTY of INTERFACE as XML object.
+  "Return PROPERTY of INTERFACE as XML object.
 It must be located at SERVICE in D-Bus BUS at object path PATH.
 PROPERTY must be a string, element of the list returned by
 `dbus-introspect-get-property-names'.  The resulting PROPERTY
diff --git a/lisp/net/nsm.el b/lisp/net/nsm.el
index 4ca770fd7e1..c47ef55a6f4 100644
--- a/lisp/net/nsm.el
+++ b/lisp/net/nsm.el
@@ -179,7 +179,7 @@ See also: `nsm-check-tls-connection', `nsm-save-host-names',
                                (const :tag "High" high)))))
 
 (defun nsm-save-fingerprint-maybe (host port status &rest _)
-  "Saves the certificate's fingerprint.
+  "Save the certificate's fingerprint.
 
 In order to detect man-in-the-middle attacks, when
 `network-security-level' is `high', this function will save the
@@ -199,7 +199,7 @@ RESULTS is an alist where the keys are the checks run and the
 values the results of the checks.")
 
 (defun nsm-network-same-subnet (local-ip mask ip)
-  "Returns t if IP is in the same subnet as LOCAL-IP/MASK.
+  "Return t if IP is in the same subnet as LOCAL-IP/MASK.
 LOCAL-IP, MASK, and IP are specified as vectors of integers, and
 are expected to have the same length.  Works for both IPv4 and
 IPv6 addresses."
@@ -217,7 +217,7 @@ IPv6 addresses."
     matches))
 
 (defun nsm-should-check (host)
-  "Determines whether NSM should check for TLS problems for HOST.
+  "Determine whether NSM should check for TLS problems for HOST.
 
 If `nsm-trust-local-network' is or returns non-nil, and if the
 host address is a localhost address, or in the same subnet as one
diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el
index 5722582ab6c..4a94afe0917 100644
--- a/lisp/net/rcirc.el
+++ b/lisp/net/rcirc.el
@@ -3063,7 +3063,7 @@ Passwords are stored in `rcirc-authinfo' (which see)."
 ;; When using M-x flyspell-mode, only check words after the prompt
 (put 'rcirc-mode 'flyspell-mode-predicate 'rcirc-looking-at-input)
 (defun rcirc-looking-at-input ()
-  "Returns true if point is past the input marker."
+  "Return true if point is past the input marker."
   (>= (point) rcirc-prompt-end-marker))
 
 
diff --git a/lisp/net/tramp-adb.el b/lisp/net/tramp-adb.el
index 982522bdaf4..e1706bebe6e 100644
--- a/lisp/net/tramp-adb.el
+++ b/lisp/net/tramp-adb.el
@@ -177,14 +177,14 @@ It is used for TCP/IP devices."
                 tramp-adb-method)))
 
 ;;;###tramp-autoload
-(defun tramp-adb-file-name-handler (operation &rest args)
+(defun tramp-adb-file-name-handler (operation &rest arguments)
   "Invoke the ADB handler for OPERATION.
-First arg specifies the OPERATION, second arg is a list of arguments to
-pass to the OPERATION."
+First arg specifies the OPERATION, second arg is a list of
+ARGUMENTS to pass to the OPERATION."
   (let ((fn (assoc operation tramp-adb-file-name-handler-alist)))
     (if fn
-        (save-match-data (apply (cdr fn) args))
-      (tramp-run-real-handler operation args))))
+        (save-match-data (apply (cdr fn) arguments))
+      (tramp-run-real-handler operation arguments))))
 
 ;;;###tramp-autoload
 (tramp--with-startup
@@ -462,7 +462,7 @@ Convert (\"-al\") to (\"-a\" \"-l\").  Remove arguments like \"--dired\"."
 
 (defun tramp-adb-sh-fix-ls-output (&optional sort-by-time)
   "Insert dummy 0 in empty size columns.
-Androids \"ls\" command doesn't insert size column for directories:
+Android's \"ls\" command doesn't insert size column for directories:
 Emacs dired can't find files."
   (save-excursion
     ;; Insert missing size.
@@ -1089,7 +1089,7 @@ E.g. a host name \"192.168.1.1#5555\" returns \"192.168.1.1:5555\"
                  vec 'file-error "Could not find device %s" host)))))))
 
 (defun tramp-adb-execute-adb-command (vec &rest args)
-  "Returns nil on success error-output on failure."
+  "Return nil on success error-output on failure."
   (when (and (> (length (tramp-file-name-host vec)) 0)
              ;; The -s switch is only available for ADB device commands.
              (not (member (car args) '("connect" "disconnect"))))
@@ -1103,7 +1103,7 @@ E.g. a host name \"192.168.1.1#5555\" returns \"192.168.1.1:5555\"
       (tramp-message vec 6 "%s" (buffer-string)))))
 
 (defun tramp-adb-find-test-command (vec)
-  "Checks, whether the ash has a builtin \"test\" command.
+  "Check whether the ash has a builtin \"test\" command.
 This happens for Android >= 4.0."
   (with-tramp-connection-property vec "test"
     (tramp-adb-send-command-and-check vec "type test")))
diff --git a/lisp/net/tramp-cache.el b/lisp/net/tramp-cache.el
index 1380d0368c7..0f7e14b704a 100644
--- a/lisp/net/tramp-cache.el
+++ b/lisp/net/tramp-cache.el
@@ -97,7 +97,7 @@ details see the info pages."
   "Whether persistent cache data have been changed.")
 
 (defun tramp-get-hash-table (key)
-  "Returns the hash table for KEY.
+  "Return the hash table for KEY.
 If it doesn't exist yet, it is created and initialized with
 matching entries of `tramp-connection-properties'."
   (or (gethash key tramp-cache-data)
diff --git a/lisp/net/tramp-compat.el b/lisp/net/tramp-compat.el
index e83c1a1500b..232230f8697 100644
--- a/lisp/net/tramp-compat.el
+++ b/lisp/net/tramp-compat.el
@@ -75,7 +75,7 @@ Add the extension of F, if existing."
     #'tramp-handle-temporary-file-directory))
 
 (defun tramp-compat-process-running-p (process-name)
-  "Returns t if system process PROCESS-NAME is running for `user-login-name'."
+  "Return t if system process PROCESS-NAME is running for `user-login-name'."
   (when (stringp process-name)
     (cond
      ;; GNU Emacs 22 on w32.
diff --git a/lisp/net/tramp-smb.el b/lisp/net/tramp-smb.el
index 2a9cf6a6d75..27c321bb9cb 100644
--- a/lisp/net/tramp-smb.el
+++ b/lisp/net/tramp-smb.el
@@ -1577,14 +1577,14 @@ errors for shares like \"C$/\", which are common in Microsoft Windows."
 ;; Internal file name functions.
 
 (defun tramp-smb-get-share (vec)
-  "Returns the share name of LOCALNAME."
+  "Return the share name of LOCALNAME."
   (save-match-data
     (let ((localname (tramp-file-name-unquote-localname vec)))
       (when (string-match "^/?\\([^/]+\\)/" localname)
         (match-string 1 localname)))))
 
 (defun tramp-smb-get-localname (vec)
-  "Returns the file name of LOCALNAME.
+  "Return the file name of LOCALNAME.
 If VEC has no cifs capabilities, exchange \"/\" by \"\\\\\"."
   (save-match-data
     (let ((localname (tramp-file-name-unquote-localname vec)))
@@ -1717,8 +1717,8 @@ Result is a list of (LOCALNAME MODE SIZE MONTH DAY TIME YEAR)."
 ;; So we try to analyze backwards.
 (defun tramp-smb-read-file-entry (share)
   "Parse entry in SMB output buffer.
-If SHARE is result, entries are of type dir. Otherwise, shares are listed.
-Result is the list (LOCALNAME MODE SIZE MTIME)."
+If SHARE is result, entries are of type dir.  Otherwise, shares
+are listed.  Result is the list (LOCALNAME MODE SIZE MTIME)."
 ;; We are called from `tramp-smb-get-file-entries', which sets the
 ;; current buffer.
   (let ((line (buffer-substring (point) (point-at-eol)))
@@ -1813,7 +1813,7 @@ Result is the list (LOCALNAME MODE SIZE MTIME)."
       (list localname mode size mtime))))
 
 (defun tramp-smb-get-cifs-capabilities (vec)
-  "Check, whether the SMB server supports POSIX commands."
+  "Check whether the SMB server supports POSIX commands."
   ;; When we are not logged in yet, we return nil.  The
   ;; connection-local property "posix" is not set explicitly; it is
   ;; just checked in order to let a user configure it to nil on hosts
@@ -1835,7 +1835,7 @@ Result is the list (LOCALNAME MODE SIZE MTIME)."
                   (buffer-substring (point) (point-at-eol)) nil 'omit)))))))))
 
 (defun tramp-smb-get-stat-capability (vec)
-  "Check, whether the SMB server supports the STAT command."
+  "Check whether the SMB server supports the STAT command."
   ;; When we are not logged in yet, we return nil.
   (if (and (tramp-smb-get-share vec)
            (process-live-p (tramp-get-connection-process vec)))
diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 95ca6e3e2aa..37f34cf002b 100644
--- a/lisp/net/tramp.el
+++ b/lisp/net/tramp.el
@@ -2008,7 +2008,7 @@ letter into the file name.  This function removes it."
 ;;; Config Manipulation Functions:
 
 (defun tramp-set-completion-function (method function-list)
-  "Sets the list of completion functions for METHOD.
+  "Set the list of completion functions for METHOD.
 FUNCTION-LIST is a list of entries of the form (FUNCTION FILE).
 The FUNCTION is intended to parse FILE according its syntax.
 It might be a predefined FUNCTION, or a user defined FUNCTION.
@@ -2052,7 +2052,7 @@ Example:
                    (cons method r)))))
 
 (defun tramp-get-completion-function (method)
-  "Returns a list of completion functions for METHOD.
+  "Return a list of completion functions for METHOD.
 For definition of that list see `tramp-set-completion-function'."
   (append
    `(;; Default settings are taken into account.
@@ -2629,7 +2629,7 @@ not in completion mode."
 ;; "/x:y@""/[x/y@"      "/x:y@z" "/[x/y@z"   "/x:y@z:" "/[x/y@z]"
 ;;["x" "y" nil nil]     ["x" "y" "z" nil]    ["x" "y" "z" ""]
 (defun tramp-completion-dissect-file-name (name)
-  "Returns a list of `tramp-file-name' structures.
+  "Return a list of `tramp-file-name' structures.
 They are collected by `tramp-completion-dissect-file-name1'."
   (let* ((x-nil "\\|\\(\\)")
          (tramp-completion-ipv6-regexp
@@ -2702,7 +2702,7 @@ They are collected by `tramp-completion-dissect-file-name1'."
        tramp-completion-file-name-structure6)))))
 
 (defun tramp-completion-dissect-file-name1 (structure name)
-  "Returns a `tramp-file-name' structure matching STRUCTURE.
+  "Return a `tramp-file-name' structure matching STRUCTURE.
 The structure consists of remote method, remote user,
 remote host and localname (filename on remote host)."
   (save-match-data
@@ -2718,7 +2718,7 @@ remote host and localname (filename on remote host)."
 ;; This function returns all possible method completions, adding the
 ;; trailing method delimiter.
 (defun tramp-get-completion-methods (partial-method)
-  "Returns all method completions for PARTIAL-METHOD."
+  "Return all method completions for PARTIAL-METHOD."
   (mapcar
    (lambda (method)
      (and method
@@ -2729,7 +2729,7 @@ remote host and localname (filename on remote host)."
 ;; Compares partial user and host names with possible completions.
 (defun tramp-get-completion-user-host
   (method partial-user partial-host user host)
-  "Returns the most expanded string for user and host name completion.
+  "Return the most expanded string for user and host name completion.
 PARTIAL-USER must match USER, PARTIAL-HOST must match HOST."
   (cond
 
@@ -4228,13 +4228,13 @@ the remote host use line-endings as defined in the variable
           (delete-region (point) (point-max)))))))
 
 (defun tramp-get-inode (vec)
-  "Returns the virtual inode number.
+  "Return the virtual inode number.
 If it doesn't exist, generate a new one."
   (with-tramp-file-property vec (tramp-file-name-localname vec) "inode"
     (setq tramp-inodes (1+ tramp-inodes))))
 
 (defun tramp-get-device (vec)
-  "Returns the virtual device number.
+  "Return the virtual device number.
 If it doesn't exist, generate a new one."
   (with-tramp-connection-property (tramp-get-connection-process vec) "device"
     (cons -1 (setq tramp-devices (1+ tramp-devices)))))
@@ -4261,7 +4261,7 @@ If both files are local, the function returns t."
            (string-equal (file-remote-p file1) (file-remote-p file2)))))
 
 (defun tramp-mode-string-to-int (mode-string)
-  "Converts a ten-letter `drwxrwxrwx'-style mode string into mode bits."
+  "Convert a ten-letter `drwxrwxrwx'-style mode string into mode bits."
   (let* (case-fold-search
          (mode-chars (string-to-vector mode-string))
          (owner-read (aref mode-chars 1))
@@ -4631,7 +4631,7 @@ ALIST is of the form ((FROM . TO) ...)."
 
 (defun tramp-call-process
   (vec program &optional infile destination display &rest args)
-  "Calls `call-process' on the local host.
+  "Call `call-process' on the local host.
 It always returns a return code.  The Lisp error raised when
 PROGRAM is nil is trapped also, returning 1.  Furthermore, traces
 are written with verbosity of 6."
@@ -4665,7 +4665,7 @@ are written with verbosity of 6."
 
 (defun tramp-call-process-region
   (vec start end program &optional delete buffer display &rest args)
-  "Calls `call-process-region' on the local host.
+  "Call `call-process-region' on the local host.
 It always returns a return code.  The Lisp error raised when
 PROGRAM is nil is trapped also, returning 1.  Furthermore, traces
 are written with verbosity of 6."
@@ -4696,7 +4696,7 @@ are written with verbosity of 6."
 
 (defun tramp-process-lines
   (vec program &rest args)
-  "Calls `process-lines' on the local host.
+  "Call `process-lines' on the local host.
 If an error occurs, it returns nil.  Traces are written with
 verbosity of 6."
   (let ((default-directory (tramp-compat-temporary-file-directory))
@@ -4852,7 +4852,9 @@ Only works for Bourne-like shells."
 ;;; the process property `remote-pid'.
 
 (defun tramp-interrupt-process (&optional process _current-group)
-  "Interrupt remote process PROC."
+  "Interrupt remote PROCESS.
+PROCESS can be a process, a buffer with an associated process, the
+name of a process or buffer, or nil to default to the current buffer."
   ;; CURRENT-GROUP is not implemented yet.
   (let ((proc (cond
                ((processp process) process)
diff --git a/lisp/net/zeroconf.el b/lisp/net/zeroconf.el
index 36643a828eb..048f2e761b5 100644
--- a/lisp/net/zeroconf.el
+++ b/lisp/net/zeroconf.el
@@ -253,7 +253,7 @@ the service.  Usually, every string is a key=value pair.  The
 supported keys depend on the service type.")
 
 (defun zeroconf-list-service-names ()
-  "Returns all discovered Avahi service names as list."
+  "Return all discovered Avahi service names as list."
   (let (result)
     (maphash
      (lambda (_key value) (add-to-list 'result (zeroconf-service-name value)))
@@ -261,7 +261,7 @@ supported keys depend on the service type.")
     result))
 
 (defun zeroconf-list-service-types ()
-  "Returns all discovered Avahi service types as list."
+  "Return all discovered Avahi service types as list."
   (let (result)
     (maphash
      (lambda (_key value) (add-to-list 'result (zeroconf-service-type value)))
@@ -269,7 +269,7 @@ supported keys depend on the service type.")
     result))
 
 (defun zeroconf-list-services (type)
-  "Returns all discovered Avahi services for a given service type TYPE.
+  "Return all discovered Avahi services for a given service type TYPE.
 The service type is one of the returned values of
 `zeroconf-list-service-types'.  The return value is a list
 \(SERVICE1 SERVICE2 ...).  See `zeroconf-services-hash' for the
@@ -341,19 +341,19 @@ type used when registering FUNCTION."
       (remhash type table))))
 
 (defun zeroconf-get-host ()
-  "Returns the local host name as string."
+  "Return the local host name as string."
   (dbus-call-method
    :system zeroconf-service-avahi zeroconf-path-avahi
    zeroconf-interface-avahi-server "GetHostName"))
 
 (defun zeroconf-get-domain ()
-  "Returns the domain name as string."
+  "Return the domain name as string."
   (dbus-call-method
    :system zeroconf-service-avahi zeroconf-path-avahi
    zeroconf-interface-avahi-server "GetDomainName"))
 
 (defun zeroconf-get-host-domain ()
-  "Returns the local host name FQDN as string."
+  "Return the local host name FQDN as string."
   (dbus-call-method
    :system zeroconf-service-avahi zeroconf-path-avahi
    zeroconf-interface-avahi-server "GetHostNameFqdn"))