Mercurial > emacs

comparison lisp/emacs-lisp/helper.el @ 584:4cd7543be581

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Mon, 16 Mar 1992 20:39:07 +0000
parents 1e0bc00dca7a
children 08eb386dd0f3
comparison
equal deleted inserted replaced
583:3c0c1cd8428a 584:4cd7543be581
19 ;; You should have received a copy of the GNU General Public License 19 ;; You should have received a copy of the GNU General Public License
20 ;; along with GNU Emacs; see the file COPYING. If not, write to 20 ;; along with GNU Emacs; see the file COPYING. If not, write to
21 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. 21 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
22 22
23 23
24 (provide 'helper) ; hey, here's a helping hand. 24 ; hey, here's a helping hand.
25 25
26 ;; Bind this to a string for <blank> in "... Other keys <blank>". 26 ;; Bind this to a string for <blank> in "... Other keys <blank>".
27 ;; Helper-help uses this to construct help string when scrolling. 27 ;; Helper-help uses this to construct help string when scrolling.
28 ;; Defaults to "return" 28 ;; Defaults to "return"
29 (defvar Helper-return-blurb nil) 29 (defvar Helper-return-blurb nil)
145 (setq continue nil)) 145 (setq continue nil))
146 (t 146 (t
147 (ding) 147 (ding)
148 (setq continue nil)))))) 148 (setq continue nil))))))
149 149
150 (provide 'helper)