From cae86f530df5690cb3e6024b7f8936e6ad8ec538 Mon Sep 17 00:00:00 2001 From: akr Date: Fri, 18 Jun 1999 03:09:12 +0000 Subject: [PATCH] * static.el (static-condition-case): Wrap lambda expression by `function'. * calist.el (calist-default-field-match-method): Use `function' instead of #'. --- ChangeLog | 8 ++++++++ calist.el | 2 +- static.el | 16 +++++++++------- 3 files changed, 18 insertions(+), 8 deletions(-) diff --git a/ChangeLog b/ChangeLog index 21b291e..a8fe2f7 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,11 @@ +1999-06-18 Tanaka Akira + + * 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 * 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) -- 1.7.10.4