diff options
| author | Juri Linkov <juri@linkov.net> | 2021-08-11 10:10:19 +0300 |
|---|---|---|
| committer | Juri Linkov <juri@linkov.net> | 2021-08-11 10:10:19 +0300 |
| commit | fc174eb20b633708da778ac6cb4bdc3e29415ef6 (patch) | |
| tree | 72a30bd1933eac1c40bd3b68dd55e015f698c9cb /lisp | |
| parent | da8277abc19d6eb1ac5a15273daca03f4237294b (diff) | |
| download | emacs-fc174eb20b633708da778ac6cb4bdc3e29415ef6.tar.gz emacs-fc174eb20b633708da778ac6cb4bdc3e29415ef6.tar.bz2 emacs-fc174eb20b633708da778ac6cb4bdc3e29415ef6.zip | |
; Fix typos
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/files.el | 6 | ||||
| -rw-r--r-- | lisp/help-mode.el | 2 |
2 files changed, 6 insertions, 2 deletions
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) |