(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 5b93696c10183e4a0eb5df629e8a22f9ee04f906..be175fc612a0a39493c8052882e9dea92d86c9dc 100644 (file)
--- 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))))