;;; show-marks.elが依存しているfm.elで使われている24.1で削除された関数
(unless (fboundp 'make-local-hook)
  (defun make-local-hook (hook)
    (if ;; (local-variable-p hook)
        (or (assq hook (buffer-local-variables)) ; local and bound.
            (memq hook (buffer-local-variables))); local but void.
        nil
      (or (boundp hook) (set hook nil))
      (make-local-variable hook)
      (set hook (list t)))
    hook))