diff options
| author | Chong Yidong <cyd@stupidchicken.com> | 2011-02-18 17:52:58 -0500 |
|---|---|---|
| committer | Chong Yidong <cyd@stupidchicken.com> | 2011-02-18 17:52:58 -0500 |
| commit | abd20d91abead79a6a40be445b5926515fbfd5a8 (patch) | |
| tree | 8ffb9cab1649148cd91a761abf3f446de1e577f3 /lisp/play/solitaire.el | |
| parent | b166dcd8bb8bf236ca43f62175b636ff3965862c (diff) | |
| download | emacs-abd20d91abead79a6a40be445b5926515fbfd5a8.tar.gz | |
Fix incorrect changes introduced in 2011-02-02T17:59:44Z!sds@gnu.org.
* lisp/apropos.el (apropos-print): Call apropos-mode before setting up
buffer variables. Use inhibit-read-only.
* lisp/emacs-lisp/package.el (package--list-packages): Call
package-menu-mode before setting up buffer variables.
* lisp/play/solitaire.el (solitaire): Call solitaire-mode before
setting up buffer variables. Use inhibit-read-only.
Diffstat (limited to 'lisp/play/solitaire.el')
| -rw-r--r-- | lisp/play/solitaire.el | 17 |
1 files changed, 9 insertions, 8 deletions
diff --git a/lisp/play/solitaire.el b/lisp/play/solitaire.el index 9d6a0ef52b1..2fe62ed0e60 100644 --- a/lisp/play/solitaire.el +++ b/lisp/play/solitaire.el @@ -196,14 +196,15 @@ Pick your favourite shortcuts: (interactive "P") (switch-to-buffer "*Solitaire*") - (setq buffer-read-only t) - (setq solitaire-stones 32) - (solitaire-insert-board) - (solitaire-build-modeline) - (goto-char (point-max)) - (setq solitaire-center (search-backward ".")) - (setq buffer-undo-list (list (point))) - (solitaire-mode)) + (let ((inhibit-read-only t)) + (solitaire-mode) + (setq buffer-read-only t) + (setq solitaire-stones 32) + (solitaire-insert-board) + (solitaire-build-modeline) + (goto-char (point-max)) + (setq solitaire-center (search-backward ".")) + (setq buffer-undo-list (list (point))))) (defun solitaire-build-modeline () (setq mode-line-format |