diff options
| author | Stefan Kangas | 2020-11-03 04:16:03 +0100 |
|---|---|---|
| committer | Stefan Kangas | 2020-11-03 04:19:53 +0100 |
| commit | 39561fbfb3dd1baefc1e6f2ca3d1d02d2001cd3e (patch) | |
| tree | 4bcabc26023a9d364a7f3261d9eaafebac3a27be | |
| parent | 74dd264d08ee6f02ee468400bc845953f7ea30f2 (diff) | |
| download | emacs-39561fbfb3dd1baefc1e6f2ca3d1d02d2001cd3e.tar.gz emacs-39561fbfb3dd1baefc1e6f2ca3d1d02d2001cd3e.zip | |
Use lexical-binding in solitaire.el
* lisp/play/solitaire.el: Use lexical-binding. Remove redundant
:group args.
| -rw-r--r-- | lisp/play/solitaire.el | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lisp/play/solitaire.el b/lisp/play/solitaire.el index 5c1dd061c9c..1383efe37cd 100644 --- a/lisp/play/solitaire.el +++ b/lisp/play/solitaire.el | |||
| @@ -1,4 +1,4 @@ | |||
| 1 | ;;; solitaire.el --- game of solitaire in Emacs Lisp | 1 | ;;; solitaire.el --- game of solitaire in Emacs Lisp -*- lexical-binding: t -*- |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1994, 2001-2020 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1994, 2001-2020 Free Software Foundation, Inc. |
| 4 | 4 | ||
| @@ -38,8 +38,7 @@ | |||
| 38 | 38 | ||
| 39 | (defcustom solitaire-mode-hook nil | 39 | (defcustom solitaire-mode-hook nil |
| 40 | "Hook to run upon entry to Solitaire." | 40 | "Hook to run upon entry to Solitaire." |
| 41 | :type 'hook | 41 | :type 'hook) |
| 42 | :group 'solitaire) | ||
| 43 | 42 | ||
| 44 | (defvar solitaire-mode-map | 43 | (defvar solitaire-mode-map |
| 45 | (let ((map (make-sparse-keymap))) | 44 | (let ((map (make-sparse-keymap))) |
| @@ -119,8 +118,7 @@ The usual mnemonic keys move the cursor around the board; in addition, | |||
| 119 | "Non-nil means check for possible moves after each major change. | 118 | "Non-nil means check for possible moves after each major change. |
| 120 | This takes a while, so switch this on if you like to be informed when | 119 | This takes a while, so switch this on if you like to be informed when |
| 121 | the game is over, or off, if you are working on a slow machine." | 120 | the game is over, or off, if you are working on a slow machine." |
| 122 | :type 'boolean | 121 | :type 'boolean) |
| 123 | :group 'solitaire) | ||
| 124 | 122 | ||
| 125 | (defconst solitaire-valid-directions | 123 | (defconst solitaire-valid-directions |
| 126 | '(solitaire-left solitaire-right solitaire-up solitaire-down)) | 124 | '(solitaire-left solitaire-right solitaire-up solitaire-down)) |