mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-23 07:19:15 +00:00
Code Issues Releases Activity

(help-map): Add binding for info-emacs-manual.

Browse Source 
(print-help-return-message): Doc fix.
This commit is contained in:
Richard M. Stallman 2002-07-12 22:57:11 +00:00
parent 32a86c99bd
commit d009b6e905
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lisp/help.el
View File

@ -98,6 +98,8 @@
(autoload 'finder-by-keyword "finder"
"Find packages matching a given keyword." t)
(define-key help-map "r" 'info-emacs-manual)
(define-key help-map "s" 'describe-syntax)
(define-key help-map "t" 'help-with-tutorial)
@ -123,8 +125,9 @@ This is a list
(defun print-help-return-message (&optional function)
"Display or return message saying how to restore windows after help command.
Computes a message and applies the optional argument FUNCTION to it.
If FUNCTION is nil, applies `message' to it, thus printing it."
This function assumes that `standard-output' is the help buffer.
It computes a message, and applies the optional argument FUNCTION to it.
If FUNCTION is nil, it applies `message', thus displaying the message."
(and (not (get-buffer-window standard-output))
(let ((first-message
(cond ((special-display-p (buffer-name standard-output))