diff options
| author | Stefan Kangas | 2021-04-25 11:46:00 +0200 |
|---|---|---|
| committer | Stefan Kangas | 2021-04-25 11:52:40 +0200 |
| commit | 39bea8b59cd140ff72b63418631c24af84df3b57 (patch) | |
| tree | 04d4c508a4cfbce79003cf33db9ad5c4335feb06 | |
| parent | bda866009b48b73053d479ffb88e7a7ffbcf7996 (diff) | |
| download | emacs-39bea8b59cd140ff72b63418631c24af84df3b57.tar.gz emacs-39bea8b59cd140ff72b63418631c24af84df3b57.zip | |
Show correct lossage size in help-for-help
* lisp/help.el (help-for-help): Show correct lossage size. Add
trailing newline.
Suggested by Gregory Heytings <gregory@heytings.org>.
| -rw-r--r-- | lisp/help.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/help.el b/lisp/help.el index 4dcb2353ceb..8234bbd34b6 100644 --- a/lisp/help.el +++ b/lisp/help.el | |||
| @@ -273,7 +273,8 @@ Do not call this in the scope of `with-help-window'." | |||
| 273 | ("help-with-tutorial" "Start the Emacs tutorial") | 273 | ("help-with-tutorial" "Start the Emacs tutorial") |
| 274 | ("view-echo-area-messages" | 274 | ("view-echo-area-messages" |
| 275 | "Show recent messages (from echo area)") | 275 | "Show recent messages (from echo area)") |
| 276 | ("view-lossage" "Show last 300 input keystrokes (lossage)") | 276 | ("view-lossage" (format "Show last %d input keystrokes (lossage)" |
| 277 | (lossage-size))) | ||
| 277 | ("display-local-help" "Show local help at point")) | 278 | ("display-local-help" "Show local help at point")) |
| 278 | ("Miscellaneous" | 279 | ("Miscellaneous" |
| 279 | ("about-emacs" "About Emacs") | 280 | ("about-emacs" "About Emacs") |
| @@ -298,7 +299,8 @@ Do not call this in the scope of `with-help-window'." | |||
| 298 | "Describe language environment") | 299 | "Describe language environment") |
| 299 | ("describe-syntax" "Show current syntax table") | 300 | ("describe-syntax" "Show current syntax table") |
| 300 | ("view-hello-file" | 301 | ("view-hello-file" |
| 301 | "Display the HELLO file illustrating various scripts"))))) | 302 | "Display the HELLO file illustrating various scripts")))) |
| 303 | "\n") | ||
| 302 | help-map | 304 | help-map |
| 303 | help-for-help-buffer-name) | 305 | help-for-help-buffer-name) |
| 304 | 306 | ||