Check if make-local-hook exists.

* riece-compat.el (riece-make-local-hook): Check if
make-local-hook exists.  Thanks to Makoto Fujiwara.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 628c15a..f04ea83 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2010-10-14  Daiki Ueno  <ueno@unixuser.org>
+
+       * riece-compat.el (riece-make-local-hook): Check if
+       make-local-hook exists.  Thanks to Makoto Fujiwara.
+
 2010-09-12  TAKAHASHI Kaoru  <kaoru@kaisei.org>
 
        * riece-develop.el (riece-insert-struct-template): Use "\n"

diff --git a/lisp/riece-compat.el b/lisp/riece-compat.el
index f992067..fe0547a 100644 (file)
--- a/lisp/riece-compat.el
+++ b/lisp/riece-compat.el
@@ -66,7 +66,8 @@
                          (make-list (- max min) (concat regexp "?"))))
               "")))
 
-(if (get 'make-local-hook 'byte-obsolete-info)
+(if (or (not (fboundp 'make-local-hook))
+       (get 'make-local-hook 'byte-obsolete-info))
     (defalias 'riece-make-local-hook 'ignore)
   (defalias 'riece-make-local-hook 'make-local-hook))