# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 960787346 0
# Node ID 0cf06902af64f494d2e7eba6873e64cd42b0aed2
# Parent  bcdfb27c5ea4d5eae298042aad3d95ed4c1094e7
(hif-compress-define-list)
(hide-ifdef-use-define-alist): Don't quote lambda.

diff -r bcdfb27c5ea4 -r 0cf06902af64 lisp/progmodes/hideif.el
--- a/lisp/progmodes/hideif.el	Mon Jun 12 05:20:23 2000 +0000
+++ b/lisp/progmodes/hideif.el	Mon Jun 12 05:22:26 2000 +0000
@@ -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 @@
 
 (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 @@
   (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))))