From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 12 Jun 2000 05:22:26 +0000 (+0000)
Subject: (hif-compress-define-list)
X-Git-Tag: emacs-pretest-21.0.90~3376
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=16fdbdceda55de2c293b31701dad6e7860f7e99f;p=emacs.git

(hif-compress-define-list)
(hide-ifdef-use-define-alist): Don't quote lambda.
---

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