Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Install the sokoban item in the tools->games menubar

  • Loading branch information...
commit 00855b10c79bad719394fd5f86f44b61fcbe1615 1 parent cde235f
@leoliu authored
Showing with 9 additions and 1 deletion.
  1. +9 −1 sokoban.el
View
10 sokoban.el
@@ -73,7 +73,7 @@
(defvar sokoban-level-file
(if (fboundp 'locate-data-file)
(locate-data-file "sokoban.levels")
- (concat data-directory "sokoban.levels")))
+ (expand-file-name "sokoban.levels" data-directory)))
(defvar sokoban-width 20)
(defvar sokoban-height 16)
@@ -777,6 +777,14 @@ sokoban-mode keybindings:
(sokoban-mode)
(sokoban-start-game))
+;;;###autoload
+(unless (featurep 'xemacs)
+ (define-key-after ; install a menu entry
+ (lookup-key global-map [menu-bar tools games])
+ [sokoban]
+ '(menu-item "Sokoban" sokoban)
+ 'snake))
+
(provide 'sokoban)
;;; sokoban.el ends here
Please sign in to comment.
Something went wrong with that request. Please try again.