From 3ae7cf9aa989589c081b41cfbca3b3be151d88fa Mon Sep 17 00:00:00 2001 From: teranisi Date: Sun, 5 Oct 2003 12:09:31 +0000 Subject: [PATCH] * elmo-util.el (elmo-get-hash-val): Simplify. (elmo-set-hash-val): Rewrite. --- elmo/ChangeLog | 5 +++++ elmo/elmo-util.el | 8 ++------ 2 files changed, 7 insertions(+), 6 deletions(-) diff --git a/elmo/ChangeLog b/elmo/ChangeLog index eaa5627..2643632 100644 --- a/elmo/ChangeLog +++ b/elmo/ChangeLog @@ -1,3 +1,8 @@ +2003-10-05 Yuuichi Teranishi + + * elmo-util.el (elmo-get-hash-val): Simplify. + (elmo-set-hash-val): Rewrite. + 2003-09-27 Hiroya Murata * elmo.el (elmo-folder-list-messages): Append killed messages into diff --git a/elmo/elmo-util.el b/elmo/elmo-util.el index 9dffada..c8d7b8a 100644 --- a/elmo/elmo-util.el +++ b/elmo/elmo-util.el @@ -953,14 +953,10 @@ the directory becomes empty after deletion." file (nth 2 condition) number number-list))))) (defmacro elmo-get-hash-val (string hashtable) - `(and (stringp ,string) - ,hashtable - (let ((sym (intern-soft ,string ,hashtable))) - (if (boundp sym) - (symbol-value sym))))) + `(symbol-value (intern-soft ,string ,hashtable))) (defmacro elmo-set-hash-val (string value hashtable) - (list 'set (list 'intern string hashtable) value)) + `(set (intern ,string ,hashtable) ,value)) (defmacro elmo-clear-hash-val (string hashtable) (static-if (fboundp 'unintern) -- 1.7.10.4