From ab777c723cf34271513f17f15c768e192f9c8db8 Mon Sep 17 00:00:00 2001 From: Daiki Ueno Date: Thu, 14 Oct 2010 11:32:50 +0900 Subject: [PATCH] Check if make-local-hook exists. * riece-compat.el (riece-make-local-hook): Check if make-local-hook exists. Thanks to Makoto Fujiwara. --- lisp/ChangeLog | 5 +++++ lisp/riece-compat.el | 3 ++- 2 files changed, 7 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 628c15a..f04ea83 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2010-10-14 Daiki Ueno + + * riece-compat.el (riece-make-local-hook): Check if + make-local-hook exists. Thanks to Makoto Fujiwara. + 2010-09-12 TAKAHASHI Kaoru * 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 --- 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)) -- 2.25.1