From c6b7d509b1481b6eafd0ae11fa71e59fd59acd31 Mon Sep 17 00:00:00 2001 From: ueno Date: Tue, 27 Jan 2004 03:34:54 +0000 Subject: [PATCH] * riece-lsdb.el: Require 'riece-identity; add autoload setting for riece-update-record; bind lsdb-hash-table, riece-command-mode-map. --- lisp/ChangeLog | 5 +++++ lisp/riece-lsdb.el | 7 ++++++- 2 files changed, 11 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 2f4fef9..878b2ac 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-01-27 Daiki Ueno + + * riece-lsdb.el: Require 'riece-identity; add autoload setting for + riece-update-record; bind lsdb-hash-table, riece-command-mode-map. + 2004-01-23 TAKAHASHI Kaoru * riece-handle.el (riece-handle-privmsg-message): Check own diff --git a/lisp/riece-lsdb.el b/lisp/riece-lsdb.el index b477adc..4ec0f5b 100644 --- a/lisp/riece-lsdb.el +++ b/lisp/riece-lsdb.el @@ -29,13 +29,16 @@ ;;; Code: +(require 'riece-identity) + (eval-when-compile (autoload 'lsdb-maybe-load-hash-tables "lsdb") (autoload 'lsdb-lookup-records "lsdb") (autoload 'lsdb-puthash "lsdb") (autoload 'lsdb-maphash "lsdb") (autoload 'lsdb-gethash "lsdb") - (autoload 'lsdb-display-records "lsdb")) + (autoload 'lsdb-display-records "lsdb") + (autoload 'lsdb-update-record "lsdb")) (defvar riece-lsdb-cache nil) @@ -78,6 +81,7 @@ (lsdb-display-records records) (message "No entry for `%s'" (riece-format-identity user t))))) +(defvar lsdb-hash-table) (defun riece-lsdb-add-user (user full-name) (interactive (let ((completion-ignore-case t) @@ -104,6 +108,7 @@ "")) (list (cons 'irc (cons irc old))))))) +(defvar riece-command-mode-map) (defun riece-lsdb-insinuate () (require 'lsdb) (add-to-list 'lsdb-secondary-hash-tables -- 1.7.10.4