[ELPA-diffs] /srv/bzr/emacs/elpa r376: * sokoban.el (sokoban-init-level-data): Compatibility fix.

[Leo Liu]

------------------------------------------------------------
revno: 376
author: Syohei YOSHIDA <address@hidden>
committer: Leo Liu <address@hidden>
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)