From: akr <akr>
Date: Fri, 18 Jun 1999 03:09:12 +0000 (+0000)
Subject: * static.el (static-condition-case): Wrap lambda expression by
X-Git-Tag: apel-9_20~21
X-Git-Url: http://git.chise.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=cae86f530df5690cb3e6024b7f8936e6ad8ec538;p=elisp%2Fapel.git

* 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
--- 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
--- 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
--- 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)