From: Juri Linkov Date: Wed, 11 Aug 2021 07:10:19 +0000 (+0300) Subject: ; Fix typos X-Git-Tag: emacs-28.0.90~1562 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=fc174eb20b633708da778ac6cb4bdc3e29415ef6;p=emacs.git ; Fix typos --- diff --git a/lisp/files.el b/lisp/files.el index dffce2b2474..6a6d5409fa2 100644 --- 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))))) + (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)))) + (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") + ;; 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))))))))) + (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 8206115b15c..2f82d83ceb1 100644 --- 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)