From 16fdbdceda55de2c293b31701dad6e7860f7e99f Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Mon, 12 Jun 2000 05:22:26 +0000 Subject: [PATCH] (hif-compress-define-list) (hide-ifdef-use-define-alist): Don't quote lambda. --- lisp/progmodes/hideif.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/progmodes/hideif.el b/lisp/progmodes/hideif.el index 5b93696c101..be175fc612a 100644 --- a/lisp/progmodes/hideif.el +++ b/lisp/progmodes/hideif.el @@ -67,7 +67,7 @@ ;; following example: ;; ;; (setq hide-ifdef-mode-hook -;; '(lambda () +;; (lambda () ;; (if (not hide-ifdef-define-alist) ;; (setq hide-ifdef-define-alist ;; '((list1 ONE TWO) @@ -1044,8 +1044,8 @@ Return as (TOP . BOTTOM) the extent of ifdef block." (defun hif-compress-define-list (env) "Compress the define list ENV into a list of defined symbols only." - (let ((defs (mapcar '(lambda (arg) - (if (hif-lookup (car arg)) (car arg))) + (let ((defs (mapcar (lambda (arg) + (if (hif-lookup (car arg)) (car arg))) env)) (new-defs nil)) (while defs @@ -1067,7 +1067,7 @@ Return as (TOP . BOTTOM) the extent of ifdef block." (let ((define-list (assoc name hide-ifdef-define-alist))) (if define-list (setq hide-ifdef-env - (mapcar '(lambda (arg) (cons arg t)) + (mapcar (lambda (arg) (cons arg t)) (cdr define-list))) (error "No define list for %s" name)) (if hide-ifdef-hiding (hide-ifdefs)))) -- 2.11.4.GIT