\f
(defun search-forward-help-for-help ()
"Search forward in the help-for-help window.
-This command is meant to be used after issuing the `C-h C-h' command."
+This command is meant to be used after issuing the \\[help-for-help] command."
(interactive)
(unless (get-buffer help-for-help-buffer-name)
- (error "No %s buffer; use `C-h C-h' first" help-for-help-buffer-name))
+ (error (substitute-command-keys "No %s buffer; use \\[help-for-help] first")
+ help-for-help-buffer-name))
;; Move cursor to the "help window".
(pop-to-buffer help-for-help-buffer-name)
;; Do incremental search forward.