aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Kangas2020-11-03 04:16:03 +0100
committerStefan Kangas2020-11-03 04:19:53 +0100
commit39561fbfb3dd1baefc1e6f2ca3d1d02d2001cd3e (patch)
tree4bcabc26023a9d364a7f3261d9eaafebac3a27be
parent74dd264d08ee6f02ee468400bc845953f7ea30f2 (diff)
downloademacs-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.el8
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.
120This takes a while, so switch this on if you like to be informed when 119This takes a while, so switch this on if you like to be informed when
121the game is over, or off, if you are working on a slow machine." 120the 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))