[nongnu] elpa/free-keys aca6032c3e 05/19: Merge pull request #1 from syohex/support-for-old-emacs

[ELPA Syncer]

branch: elpa/free-keys
commit aca6032c3ead13949e502a829d44615e5ee86e21
Merge: 452d26a3fc 9cc42a07a6
Author: Matus Goljer <dota.keys@gmail.com>
Commit: Matus Goljer <dota.keys@gmail.com>

    Merge pull request #1 from syohex/support-for-old-emacs
    
    Support old emacs(<= 24.2)
---
 free-keys.el | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/free-keys.el b/free-keys.el
index 9fe260e261..902eeb16e2 100644
--- a/free-keys.el
+++ b/free-keys.el
@@ -7,6 +7,7 @@
 ;; Version: 0.1
 ;; Created: 3rd November 2013
 ;; Keywords: convenience
+;; Package-Requires: ((cl-lib "0.3"))
 
 ;; This file is not part of GNU Emacs.
 
@@ -30,6 +31,8 @@
 
 ;;; Code:
 
+(require 'cl-lib)
+
 (defgroup free-keys ()
   "Free keys."
   :group 'convenience)
@@ -87,7 +90,9 @@
   (let ((buf (get-buffer-create "*Free keys*")))
     (pop-to-buffer buf)
     (with-current-buffer buf
-      (read-only-mode -1)
+      (if (fboundp 'read-only-mode)
+          (read-only-mode -1)
+        (setq buffer-read-only nil))
       (erase-buffer)
       (insert "Help: (b) change buffer (p) change prefix (q) quit\n"
               "--------------------------------------------------\n\n")