* static.el (static-condition-case): Wrap lambda expression by

`function'.

* calist.el (calist-default-field-match-method): Use `function'
instead of #'.

diff --git a/ChangeLog b/ChangeLog
index 21b291e..a8fe2f7 100644 (file)
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,11 @@
+1999-06-18  Tanaka Akira      <akr@jaist.ac.jp>
+
+       * static.el (static-condition-case): Wrap lambda expression by
+       `function'.
+
+       * calist.el (calist-default-field-match-method): Use `function'
+       instead of #'.
+
 1999-06-17  Shuhei KOBAYASHI  <shuhei@aqua.ocn.ne.jp>
 
        * pcustom.el: Load "custom" anyway.

diff --git a/calist.el b/calist.el
index 634ae97..88c6ec4 100644 (file)
--- a/calist.el
+++ b/calist.el
@@ -81,7 +81,7 @@
          ((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

diff --git a/static.el b/static.el
index 2a2a89d..039fc06 100644 (file)
--- a/static.el
+++ b/static.el
@@ -51,13 +51,15 @@
               (list (quote quote) (, bodyform))
             (,@ (mapcar
                  (if var
-                     (lambda (h)
-                       (` ((, (car h))
-                           (list (quote funcall)
-                                 (lambda ((, var)) (,@ (cdr h)))
-                                 (list (quote quote) (, var))))))
-                   (lambda (h)
-                     (` ((, (car h)) (quote (progn (,@ (cdr h))))))))
+                     (function
+                      (lambda (h)
+                        (` ((, (car h))
+                            (list (quote funcall)
+                                  (function (lambda ((, var)) (,@ (cdr h))))
+                                  (list (quote quote) (, var)))))))
+                   (function
+                    (lambda (h)
+                      (` ((, (car h)) (quote (progn (,@ (cdr h)))))))))
                  handlers))))))
 
 (put 'static-defconst 'lisp-indent-function 'defun)