Mercurial > emacs

comparison lisp/play/blackbox.el @ 63239:f48178f79206

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(blackbox-mode): Use run-mode-hooks.
author Lute Kamstra <lute@gnu.org>
date Fri, 10 Jun 2005 12:03:06 +0000
parents eaa9acd9122c
children 18a818a2ee7c a1b34dec1104
comparison
equal deleted inserted replaced
63238:5592f504d53f 63239:f48178f79206
115 115
116 The usual mnemonic keys move the cursor around the box. 116 The usual mnemonic keys move the cursor around the box.
117 \\<blackbox-mode-map>\\[bb-bol] and \\[bb-eol] move to the beginning and end of line, respectively. 117 \\<blackbox-mode-map>\\[bb-bol] and \\[bb-eol] move to the beginning and end of line, respectively.
118 118
119 \\[bb-romp] -- send in a ray from point, or toggle a ball at point 119 \\[bb-romp] -- send in a ray from point, or toggle a ball at point
120 \\[bb-done] -- end game and get score 120 \\[bb-done] -- end game and get score"
121 "
122 (interactive) 121 (interactive)
123 (kill-all-local-variables) 122 (kill-all-local-variables)
124 (use-local-map blackbox-mode-map) 123 (use-local-map blackbox-mode-map)
125 (setq truncate-lines t) 124 (setq truncate-lines t)
126 (setq major-mode 'blackbox-mode) 125 (setq major-mode 'blackbox-mode)
127 (setq mode-name "Blackbox")) 126 (setq mode-name "Blackbox")
127 (run-mode-hooks 'blackbox-mode-hook))
128 128
129 ;;;###autoload 129 ;;;###autoload
130 (defun blackbox (num) 130 (defun blackbox (num)
131 "Play blackbox. 131 "Play blackbox.
132 Optional prefix argument is the number of balls; the default is 4. 132 Optional prefix argument is the number of balls; the default is 4.