diff options
| author | Chong Yidong | 2011-02-18 17:52:58 -0500 |
|---|---|---|
| committer | Chong Yidong | 2011-02-18 17:52:58 -0500 |
| commit | abd20d91abead79a6a40be445b5926515fbfd5a8 (patch) | |
| tree | 8ffb9cab1649148cd91a761abf3f446de1e577f3 /lisp/play | |
| parent | b166dcd8bb8bf236ca43f62175b636ff3965862c (diff) | |
| download | emacs-abd20d91abead79a6a40be445b5926515fbfd5a8.tar.gz emacs-abd20d91abead79a6a40be445b5926515fbfd5a8.zip | |
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')
| -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: | |||
| 196 | 196 | ||
| 197 | (interactive "P") | 197 | (interactive "P") |
| 198 | (switch-to-buffer "*Solitaire*") | 198 | (switch-to-buffer "*Solitaire*") |
| 199 | (setq buffer-read-only t) | 199 | (let ((inhibit-read-only t)) |
| 200 | (setq solitaire-stones 32) | 200 | (solitaire-mode) |
| 201 | (solitaire-insert-board) | 201 | (setq buffer-read-only t) |
| 202 | (solitaire-build-modeline) | 202 | (setq solitaire-stones 32) |
| 203 | (goto-char (point-max)) | 203 | (solitaire-insert-board) |
| 204 | (setq solitaire-center (search-backward ".")) | 204 | (solitaire-build-modeline) |
| 205 | (setq buffer-undo-list (list (point))) | 205 | (goto-char (point-max)) |
| 206 | (solitaire-mode)) | 206 | (setq solitaire-center (search-backward ".")) |
| 207 | (setq buffer-undo-list (list (point))))) | ||
| 207 | 208 | ||
| 208 | (defun solitaire-build-modeline () | 209 | (defun solitaire-build-modeline () |
| 209 | (setq mode-line-format | 210 | (setq mode-line-format |