------------------------------------------------------------
revno: 376
author: Syohei YOSHIDA <syo...@gmail.com>
committer: Leo Liu <sdl....@gmail.com>
branch nick: elpa
timestamp: Thu 2013-03-28 21:36:16 +0800
message:
* sokoban.el (sokoban-init-level-data): Compatibility fix.
modified:
packages/sokoban/sokoban.el
=== modified file 'packages/sokoban/sokoban.el'
--- a/packages/sokoban/sokoban.el 2013-03-04 01:19:23 +0000
+++ b/packages/sokoban/sokoban.el 2013-03-28 13:36:16 +0000
@@ -428,7 +428,9 @@
(defun sokoban-init-level-data ()
(setq sokoban-level-data nil)
(with-current-buffer (find-file-noselect sokoban-level-file)
- (read-only-mode 1)
+ (if (fboundp 'read-only-mode)
+ (read-only-mode 1)
+ (setq buffer-read-only t))
(goto-char (point-min))
(re-search-forward sokoban-level-regexp nil t)
(forward-char)
