projects
/
elisp
/
apel.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
* timezone.el: Modified comments.
[elisp/apel.git]
/
calist.el
diff --git
a/calist.el
b/calist.el
index
36fe8de
..
fbef680
100644
(file)
--- a/
calist.el
+++ b/
calist.el
@@
-81,12
+81,14
@@
((equal (cdr s-field) field-value)
calist))))
((equal (cdr s-field) field-value)
calist))))
-(define-calist-field-match-method t #'calist-default-field-match-method)
+(define-calist-field-match-method t (function calist-default-field-match-method))
(defsubst calist-field-match-method (field-type)
(symbol-function
(defsubst calist-field-match-method (field-type)
(symbol-function
- (or (intern-soft
- (symbol-name field-type) calist-field-match-method-obarray)
+ (or (intern-soft (if (symbolp field-type)
+ (symbol-name field-type)
+ field-type)
+ calist-field-match-method-obarray)
(intern-soft "t" calist-field-match-method-obarray))))
(defsubst calist-field-match (calist field-type field-value)
(intern-soft "t" calist-field-match-method-obarray))))
(defsubst calist-field-match (calist field-type field-value)
@@
-323,6
+325,7
@@
even if other rules are matched for ALIST."
;;; @ end
;;;
;;; @ end
;;;
-(provide 'calist)
+(require 'product)
+(product-provide (provide 'calist) (require 'apel-ver))
;;; calist.el ends here
;;; calist.el ends here