(hif-compress-define-list)

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

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