changeset 29588:0cf06902af64

(hif-compress-define-list) (hide-ifdef-use-define-alist): Don't quote lambda.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Mon, 12 Jun 2000 05:22:26 +0000
parents bcdfb27c5ea4
children 793e4f0f455a
files lisp/progmodes/hideif.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- 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))))