; Fix typos

diff --git a/lisp/files.el b/lisp/files.el
index dffce2b24747a4575dd746d8e7afd04762d4b685..6a6d5409fa22579911da396ccbce35df872371d7 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -6562,7 +6562,7 @@ details on the arguments, see `revert-buffer'."
         (fmakunbound 'revert-buffer-with-fine-grain-success-p)))))
 
 (defcustom revert-buffer-quick-short-answers nil
-  "How much confirmation to be done by the `revert-buffer-quit' command.
+  "How much confirmation to be done by the `revert-buffer-quick' command.
 If non-nil, use `y-or-n-p' instead of `yes-or-no-p'."
   :version "28.1"
   :type 'boolean)
@@ -6592,6 +6592,7 @@ auto-save file, if that is more recent than the visited file."
    (t
     (revert-buffer (not auto-save)))))
 
+\f
 (defun recover-this-file ()
   "Recover the visited file--get contents from its last auto-save file."
   (interactive)
@@ -6767,6 +6768,7 @@ This command is used in the special Dired buffer created by
            (message "No files can be recovered from this session now")))
       (kill-buffer buffer))))
 
+\f
 (defun kill-buffer-ask (buffer)
   "Kill BUFFER if confirmed."
   (when (yes-or-no-p (format "Buffer %s %s.  Kill? "
@@ -8036,6 +8038,7 @@ based on existing mode bits, as in \"og+rX-w\"."
 (define-obsolete-variable-alias 'cache-long-line-scans
   'cache-long-scans "24.4")
 
+\f
 ;; Trashcan handling.
 (defcustom trash-directory nil
   "Directory for `move-file-to-trash' to move files and directories to.
@@ -8186,6 +8189,7 @@ Otherwise, trash FILENAME using the freedesktop.org conventions,
                       (new-fn (file-name-concat trash-files-dir files-base)))
                   (rename-file fn new-fn overwrite)))))))))
 
+\f
 (defsubst file-attribute-type (attributes)
   "The type field in ATTRIBUTES returned by `file-attributes'.
 The value is either t for directory, string (name linked to) for

diff --git a/lisp/help-mode.el b/lisp/help-mode.el
index 8206115b15c37911c67e69fe468c697855461a4e..2f82d83ceb1231a39857d70cdc774e56490b9e27 100644 (file)
--- a/lisp/help-mode.el
+++ b/lisp/help-mode.el
@@ -99,7 +99,7 @@ To use the element, do (apply FUNCTION ARGS) then goto the point.")
 (put 'help-xref-forward-stack 'permanent-local t)
 
 (defvar-local help-xref-stack-item nil
-  "An item for `help-follow-symbok' to push onto `help-xref-stack'.
+  "An item for `help-follow-symbol' to push onto `help-xref-stack'.
 The format is (FUNCTION ARGS...).")
 (put 'help-xref-stack-item 'permanent-local t)