+;;; ehelp.el --- bindings for electric-help mode
+
;; Copyright (C) 1986 Free Software Foundation, Inc.
+;; Maintainer: FSF
+;; Keywords: help, extensions
+
;; This file is part of GNU Emacs.
;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; along with GNU Emacs; see the file COPYING. If not, write to
;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
-(require 'electric)
-(provide 'ehelp)
+;;; Commentary:
+
+;; This package provides a pre-packaged `Electric Help Mode' for
+;; browsing on-line help screens. There is one entry point,
+;; `with-electric-help'; All you have to give it is a no-argument
+;; function that generates the actual text of the help into the current
+;; buffer.
+;;; Code:
+
+(require 'electric)
(defvar electric-help-map ()
"Keymap defining commands available in `electric-help-mode'.")
(if electric-help-map
()
(let ((map (make-keymap)))
- (fillarray map 'electric-help-undefined)
+ (fillarray (car (cdr map)) 'electric-help-undefined)
(define-key map (char-to-string meta-prefix-char) (copy-keymap map))
(define-key map (char-to-string help-char) 'electric-help-help)
(define-key map "?" 'electric-help-help)
(catch 'exit
(if (pos-visible-in-window-p (point-max))
(progn (message "<<< Press Space to bury the help buffer >>>")
- (if (= (setq unread-command-char (read-char)) ?\ )
- (progn (setq unread-command-char -1)
+ (if (equal (setq unread-command-events (list (read-event)))
+ '(?\ ))
+ (progn (setq unread-command-events nil)
(throw 'exit t)))))
(let (up down both neither
(standard (and (eq (key-binding " ")
(fset 'ehelp-command map)))
;; Do (define-key global-map "\C-h" 'ehelp-command) if you want to win
+
+(provide 'ehelp)
+
+;;; ehelp.el ends here